的窗体上添加1个名称为Image为Form1标题为“图片练习”的窗体上添加1个名称为Image1

vb中image练习题在VB中进行图像练习题可以帮助我们熟悉图像处理的基本操作，掌握图像在界面上的展示与操作等技能。

以下将通过一个具体的图像处理练习题来演示VB中图像的应用。

本练习题的要求是设计一个简单的图像处理应用程序，实现以下功能：加载一张指定的图片，对其进行灰度化处理，并实现对图像的旋转和缩放。

首先，我们需要创建一个新的VB项目，命名为"ImageProcessing"。

1. 创建界面：在Form1窗体上，添加以下控件：- PictureBox控件：命名为"picImage"，用于显示处理后的图像；- Button控件：命名为"btnLoadImage"，用于加载图像；- Button控件：命名为"btnProcessImage"，用于进行图像处理；- TrackBar控件：命名为"trbRotate"，用于控制图像旋转角度；- TrackBar控件：命名为"trbZoom"，用于控制图像缩放比例。

2. 图像加载功能：在"btnLoadImage"的Click事件中编写以下代码，实现图像加载功能：```vbPrivate Sub btnLoadImage_Click(sender As Object, e As EventArgs) Handles btnLoadImage.ClickDim openFileDialog As New OpenFileDialog()openFileDialog.Filter = "Image Files(*.bmp;*.jpg;*.png)|*.bmp;*.jpg;*.png"If openFileDialog.ShowDialog() = DialogResult.OK ThenpicImage.Image = Image.FromFile(openFileDialog.FileName)End IfEnd Sub```3. 图像处理功能：在"btnProcessImage"的Click事件中编写以下代码，实现图像的灰度化处理、旋转和缩放功能：```vbPrivate Sub btnProcessImage_Click(sender As Object, e As EventArgs) Handles btnProcessImage.ClickIf picImage.Image IsNot Nothing ThenDim originalImage As Bitmap = New Bitmap(picImage.Image)' 灰度化处理For y As Integer = 0 To originalImage.Height - 1For x As Integer = 0 To originalImage.Width - 1Dim pixel As Color = originalImage.GetPixel(x, y)Dim gray As Integer = CInt(pixel.R * 0.299 + pixel.G * 0.587 + pixel.B * 0.114)originalImage.SetPixel(x, y, Color.FromArgb(gray, gray, gray))NextNext' 图像旋转Dim rotateAngle As Integer = trbRotate.ValueDim rotatedImage As Bitmap = RotateImage(originalImage, rotateAngle)' 图像缩放Dim zoomFactor As Decimal = trbZoom.Value / 10Dim zoomedImage As Bitmap = ZoomImage(rotatedImage, zoomFactor)picImage.Image = zoomedImageEnd IfEnd SubPrivate Function RotateImage(image As Bitmap, angle As Integer) As BitmapDim rotatedImage As New Bitmap(image.Width, image.Height)rotatedImage.SetResolution(image.HorizontalResolution,image.VerticalResolution)Using graphics As Graphics = Graphics.FromImage(rotatedImage)graphics.TranslateTransform(CSng(image.Width / 2),CSng(image.Height / 2))graphics.RotateTransform(angle)graphics.TranslateTransform(-CSng(image.Width / 2), -CSng(image.Height / 2))graphics.DrawImage(image, Point.Empty)End UsingReturn rotatedImageEnd FunctionPrivate Function ZoomImage(image As Bitmap, factor As Decimal) As BitmapDim zoomedImage As New Bitmap(CInt(image.Width * factor), CInt(image.Height * factor))zoomedImage.SetResolution(image.HorizontalResolution, image.VerticalResolution)Using graphics As Graphics = Graphics.FromImage(zoomedImage)graphics.InterpolationMode =Drawing2D.InterpolationMode.HighQualityBilineargraphics.DrawImage(image, New Rectangle(Point.Empty, zoomedImage.Size))End UsingReturn zoomedImageEnd Function```4. 图像旋转控制：在"trbRotate"的Scroll事件中编写以下代码，实现图像旋转角度的实时控制：```vbPrivate Sub trbRotate_Scroll(sender As Object, e As EventArgs) Handles trbRotate.ScrollIf picImage.Image IsNot Nothing ThenDim originalImage As Bitmap = New Bitmap(picImage.Image)Dim rotateAngle As Integer = trbRotate.ValueDim rotatedImage As Bitmap = RotateImage(originalImage, rotateAngle)picImage.Image = rotatedImageEnd IfEnd Sub```5. 图像缩放控制：在"trbZoom"的Scroll事件中编写以下代码，实现图像缩放比例的实时控制：```vbPrivate Sub trbZoom_Scroll(sender As Object, e As EventArgs) Handles trbZoom.ScrollIf picImage.Image IsNot Nothing ThenDim originalImage As Bitmap = New Bitmap(picImage.Image)Dim zoomFactor As Decimal = trbZoom.Value / 10Dim zoomedImage As Bitmap = ZoomImage(originalImage, zoomFactor)picImage.Image = zoomedImageEnd IfEnd Sub```以上即为一个简单的VB图像处理应用程序的代码示例。

基础题(1) 【解题思路】ControlBox属性：确定程序运行时是否在窗体上显示控件菜单栏，MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.153和表3.154。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】根据题意，在单击命令按钮事件过程中，通过设置FontBold和FontItalic属性，使文本框的内容显示为粗体格式或斜体格式。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.155和表3.156。

表3.155表3.156步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click()Text1.FontItalic = TrueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】根据题意，在计时器的Timer事件中控制文本框中数字的显示。

并在Select Case语句中，依据所选单选按钮索引号的不同，为计时器设置不同的Interval 属性值。

在"开始"和"停止"命令按钮的单击事件过程中分别启动和停止计时器。

为使计时器在初始状态下不计时，还需在设计时将其Enabled属性值设置为False。

【操作步骤】步骤1：打开本题工程文件，计时器的Enabled属性设置为False。

步骤2：分析并编写程序代码。

程序提供代码Private Sub Op1_Click(Index As Integer)'Select Case ?Case 0Timer1.Interval = 1000Case 1Timer1.Interval = 3000End SelectEnd SubPrivate Sub Timer1_Timer()'Text1.Text =？.Text + 1End Sub程序结束参考答案第1个？处填入：Index第2个？处填入：Text1Private Sub C1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click()Timer1.Enabled = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】通过图片框的Name 、Picture属性设置图片框的名称和加载图片，在Form_Click 事件过程中，通过图片框Print方法，在图片框中显示"VB等级考试"。

【操作步骤】步骤1：建立界面，在窗体中添加一个图片框并设置图片框的属性，属性见表3.71。

表3.71步骤2：编写程序代码。

参考答案Private Sub Form_Click()Pic.Print "VB等级考试"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第39套第一大题的第二小题来进行同类知识点的练习。

简单题(2)【解题思路】添加一个名称为Command1的命令按钮，标题为"命令按钮"。

通过菜单编辑器(标题、名称、内缩符号)建立一个菜单，标题为"控件"，名称为menu，包含两个子菜单顶，一个是"显示命令按钮"，名称为subMenu1；另一个是"隐藏命令按钮"，名称为subMenu2。

通过Command1的Visible属性的设置，使选择"显示命令按钮"菜单命令，则显示命令按钮控件；而如果选择"隐藏命令按钮"菜单命令，则将命令按钮控件隐藏。

【操作步骤】步骤1：建立界面，添加一个名称为Command1的命令按钮，标题设置为"命令按钮"。

菜单编辑的相关属性见表3.72。

表3.72步骤2：编写程序代码。

参考答案Private Sub submenu1_Click()Command1.Visible = TrueEnd SubPrivate Sub submenu2_Click()Command1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第7套第一大题的第二小题来进行同类知识点的练习。

基本操作题请根据以下各题的要求，设计Visual Basic应用程序（包括界面和代码）。

基本操作题1(1)在名称为Forml的窗体上画1个名称为Lablell、标题为“列表框的使用”标签。

再画1个名称为Listl的列表框，列表中含有5个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。

运行后的窗体如图1-1所示。

要求：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1-1 运行界面图1-2运行界面(2)在名称为Forml的窗体上画一个名为Imagel的图像框，其高、宽分别为2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为Cmd1、Cmd2。

如图1-2所示。

需编写2个命令按钮的Click事件过程，使得当单击“显示图片”按钮时，将当前文件夹下的图片文件“图片.jpg”显示在图像框中；如果单击“隐藏图片”按钮，则清除图像框中的图片。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

基本操作题2(1) 在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”：再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。

如图2-1所示。

请在属性窗口中设置适当的属性满足以下要求：1) 窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；2) 在任何情况下，按回车键都相当于单击“是”按扭；按ESC键都相当于单击“否”按扭。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图2-1 运行界面图2-2 运行界面(2) 在名称为Form1窗体上画一个文本框，名称为Text1，其宽度为1000；再画一个滚动条，名称为HS1。

基础题(1)【解题思路】依照题目要求，通过图像框的Name、Width、Height题Picture属性设置图像框，Stretch属性用于设置图像框中的图形能自动放大或缩小以与图像框的大小相适应。

【操作步骤】步骤1：成立界面，并设置控件的属性。

程序中涉及的控件及属性见表3.127。

表3.127步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】在Command1_Click事件进程中，通过列表框的AddItem和RemoveItem方式将选中的列表项内容复制到已有列表项的尾部；在Command2_Click事件进程中，通过列表框的RemoveItem方式将选中的列表项内容删除。

【操作步骤】步骤1：成立界面，并设置控件的属性。

程序顶用到的控件及属性见表3.128。

表3.128步骤2：编写程序代码。

参考答案Private Sub Command1_Click()List1.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】在计时器的Timer事件进程中，通过设置标签的Left属性值使其在原有基础上加100来实现自左向右移动的功能。

在"开始"按钮的单击事件进程中应启动计时器，禁用"移动"按钮，并改变其题目为"暂停"。

在"退出"按钮的单击事件进程中要通过End语句停止程序。

【操作步骤】步骤1：打开此题工程文件，并设置控件的属性。

程序中涉及的控件及属性见表3.129。

步骤2：分析并编写程序代码。

程序提供代码Dim flag As IntegerPrivate Sub Form_Load()flag = 0End SubPrivate Sub Command1_Click()If Command1.Caption = "移动" Then'Timer1.Enabled = ?Command1.Caption = "暂停"ElseTimer1.Enabled = FalseCommand1.Caption = "移动"End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer()Select Case flagCase Is = 0''Label1.Left = Label1.Left ? 100If Label1.Left + Label1.Width = Form1.Width Then flag = 1Case Is = 1'Label1.Left = Label1.Left ? 100If Label1.Left = 0 Then flag = 0End SelectEnd Sub程序终止参考答案第1个？处填入：True第2个？处填入：+第3个？处填入：-步骤3：调试并运行程序，关闭程序后按题目要求存盘。

全国计算机等级考试二级VISUAL BASIC题库1 2015年9月(总分100,考试时间120分钟)一、选择题1. 窗体上有多个控件，在Form_Activate()事件过程中添加__________语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。

A. Text1．Text=""B. Text1．SetFocusC. Form1．SetFocusD. Text1．Visible=True2. 语句Print "5*20"输出的结果是__________。

A. "5*20"B. 出现错误信息C. 5*20D. 1003. 不能打开代码窗口的操作是__________。

A. 双击窗体设计器的任何地方B. 按下F4键C. 单击工程窗口中的“查看代码”按钮D. 选择“视图”下拉菜单中的“代码窗口”4. 在VB中可以作为容器的是__________。

A. Form、TextBox、PictureBoxB. Form、PictureBox、FrameC. Form、TextBox、LabelD. PictureBox、TextBox、ListBox5. 能被对象所识别的动作与对象可执行的活动分别称为对象的__________。

A. 方法、事件B. 过程、方法C. 事件、属性D. 事件、方法6. 计算下面的表达式，其值是__________。

CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3) 4 -3 4 2A. -7B. -4C. -8D. 67. 以下有关对象属性的说法中正确的是__________。

A. 对象所有的属性都罗列在属性窗口列表中B. 不同对象不可能有同名属性C. 不同对象的同名属性取值一定相同D. 对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变8. 要使定时器控件可以使用，需设置的属性是__________。

6（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮(如图1所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：①窗体标题为"设置按钮属性"；②命令按钮的标题为"等级考试"；③程序运行后，命令按钮不可见；④命令按钮的标题字体用三号常规黑体显示。

程序的运行情况如图2所示。

要求：不编写任何代码。

注意：最后把修改后的文件按原文件名存盘。

【操作步骤】步骤1：新建一个窗体，在窗体中添加一个命令按钮控件并设置命令按钮和窗体的相应属性。

如表3.25所示。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

13（2）在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加1个命令按钮，名称为Command1，标题为"选中字符数是"。

程序运行时，在Text1中输入若干字符，选中部分内容后，单击"选中字符数是"按钮，则选中的字符个数显示在Text2中(如图所示)。

请编写按钮的Click事件过程。

要求：程序中不得使用变量，事件过程中只能写一条语句。

注意：最后把修改后的文件按原文件名存盘。

【操作步骤】步骤1：建立界面，在窗体中添加两个文本框和一个命令按钮，然后在属性窗口设置控件的属性。

程序中用到的控件及属性见表3.50。

表3.50步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Text2 = Text1.SelLengthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

3（1）在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为"窗口"。

请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为"*"。

一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。

只建立菜单，不必定义其事件过程。

注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。

2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。

编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。

程序中不能使用任何变量，直接显示字符串。

注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。

一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。

（2）菜单设计见表4-1。

表4-1标题名称内缩符号文件vbFile 0打开vbOpen 1关闭vbClose 1退出vbExit 1帮助vbHelp 0（3）按要求设计含有“文件”和“帮助”的菜单栏。

（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。

（5）设计完成之后，按规定方式存盘。

2．【解题步骤】（1）建立界面和控件并设置控件属性。

程序中用到的控件及其属性见表4-2。

表4-2控件属性设置值按钮Name Cmd1Caption 喜欢按钮Name Cmd2Caption 不喜欢（2）编写程序代码。

参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。

基础题(1) 【解题思路】首先通过窗体的Caption属性设置窗体的标题，其次通过框架的Name和Caption属性设置框架的名称和标题，最后通过单选按钮的Name和Caption属性设置命令按钮的名称和标题。

【操作步骤】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。

程序中用到的控件及属性见表3.120。

表3.120步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】FillStyle属性用于返回/设置一个形状控件的填充样式。

Shape属性用来设置形状控件的形状，0：矩形(默认设置),1：正方形，2：椭圆，3：圆，4：圆角矩形，5：圆角正方形。

【操作步骤】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。

程序中用到的控件及属性见表3.121和表3.122。

表3.121步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Shape1.FillStyle = 3End SubPrivate Sub Command2_Click()Shape1.FillStyle = 2End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】String(个数，字符)函数用于返回含指定个数字符的字符串，其中的字符可以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。

本题关键是计算同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差值表达式应为：n% ＝ASC("a") －ASC("A")。

对于小写字母的ASCII码应减去这个差值以获得其大写字母；对于大写字母的ASCII码则应加上这个差值以获得其小写字母。

【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。

程序中用到的控件及属性见表3.123。

表3.123步骤2程序提供代码Private Sub C1_Click()Dim a$, b$, k%, n%a$ = ""'n% = Asc("a") - Asc( ? )For k% = 1 To Len(Text1.Text)b$ = Mid(Text1.Text, k%, 1)If b$ >= "a" And b$ <= "z" Thenb$ = String(1, Asc(b$) - n%)ElseIf b$ >="A" And b$ <="Z" Then'b$ =String(1, Asc(b$) ? )End IfEnd Ifa$ =a$ +b$Next k%' Text1.Text =?End Sub程序结束参考答案第1个？处填入："A"第2个？处填入：+n%第3个？处填入：a步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基本题(1)【解题思路】文本框的Text属性用于设置文本框中显示的文本。

标签的Caption属性可设置其标题。

Visible属性用于设置控件或菜单项在程序运行时是否可见。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中涉及的控件及属性见表3.104和表3.105。

表3.104步骤2参考答案Private Sub Command1_Click()Label1.Visible = TrueLabel1.Caption = Text1.TextText1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基本题(2) 【解题思路】通过调整滚动条滑块的位置即可改变其V alue属性的值，滚动条的Max和Min属性为滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。

当改变滚动条滑块位置后将触发其Change事件。

文本框的高度和宽度分别由其Height属性值和Width属性值设定。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.106。

步骤2：编写程序代码。

参考答案Private Sub HScroll1_Change()Text1.Height = HScroll1.ValueText1.Width = 1.2 * Text1.HeightEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。

在"删除项目"单击事件中，For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。

【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。

国家二级VB机试（上机操作）模拟试卷407(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画一个名称为Pic的图片框，通过属性窗口将考生文件夹下的文件Tul-1．jpg添加到图片框，然后编写适当的事件过程。

运行程序时，单击窗体，在图片框中显示“VB等级考试”，如图3—179所示。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。

(2)在名称为Form1的面体上画一个名称为Command1的命令按钮，标题为“命令按钮”。

然后建立一个菜单，标题为“控件”，名称为menu，包含两个子菜单项，一个是“显示命令按钮”，名称为subMenul；另一个是“隐藏命令按钮”，名称为subMenu2，如图3—180所示。

编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件。

注意：程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个名称为Pic的图片框，并设置其Picture属性为Tu1－1．jpg。

步骤2：双击窗体打开代码编辑窗口，在窗体的Click事件过程中输入代码。

参考代码：Private Sub Form_Click( )Pic．Print”VB等级考试”End Sub 步骤3：按要求将文件保存至考生文件夹中。

(2)【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，按要求建立菜单项。

VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。

A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。

A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。

A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。

A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。

A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。

A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。

A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。

A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。

A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。

A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。

A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。

A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。

基础题(1) 【解题思路】ControlBox属性：确定程序运行时是否在窗体上显示控件菜单栏，MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.153和表3.154。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】根据题意，在单击命令按钮事件过程中，通过设置FontBold和FontItalic属性，使文本框的内容显示为粗体格式或斜体格式。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.155和表3.156。

表3.155表3.156步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click()Text1.FontItalic = TrueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】根据题意，在计时器的Timer事件中控制文本框中数字的显示。

并在Select Case语句中，依据所选单选按钮索引号的不同，为计时器设置不同的Interval 属性值。

在"开始"和"停止"命令按钮的单击事件过程中分别启动和停止计时器。

为使计时器在初始状态下不计时，还需在设计时将其Enabled属性值设置为False。

【操作步骤】步骤1：打开本题工程文件，计时器的Enabled属性设置为False。

步骤2：分析并编写程序代码。

程序提供代码Private Sub Op1_Click(Index As Integer)'Select Case ?Case 0Timer1.Interval = 1000Case 1Timer1.Interval = 3000End SelectEnd SubPrivate Sub Timer1_Timer()'Text1.Text =？.Text + 1End Sub程序结束参考答案第1个？处填入：Index第2个？处填入：Text1Private Sub C1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click()Timer1.Enabled = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

第1套（1）在名称为Forml的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

第2套（1）在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为"请输入密码"，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中显示为"*"字符，此外再把窗体的标题设置为"密码窗口"，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

第3套（1）在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为"窗口"。

请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为"*"。

程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

第4套（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为"打开文件"，再添加一个名称为CD1的通用对话框。

程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：①设置适当属性，使对话框的标题为"打开文件"；②设置适当属性，使对话框的"文件类型"下拉式组合框中有两项可供选择："文本文件"、"所有文件"(如图所示)，默认的类型是"所有文件"；③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。

基础题（1）【考点分析】本题考点有：菜单编辑器的使用（名称，标题，内缩符号）和图片框的Name属性和Print、Cls方法。

【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。

另外，在图片框中显示"等级考试"的信息通过图片框的Print 方法实现，清除图片框信息通过图片框的Cls属性实现。

【操作步骤】步骤1：建立界面，添加一个名称为P1的图片框，然后用菜单编辑器建立如下表3.226所示的菜单。

步骤2参考答案Private Sub Clea_Click()P1.ClsEnd SubPrivate Sub Dis_Click()P1.Print "等级考试"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题（2）【考点分析】本题考点有：列表框的的Name、List、Text属性，AddItem方法和DblClick事件。

【解题思路】在列表框的DblClick事件中，通过AddItem方法将列表框中选中的文本添加到列表框中。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.227。

步骤2：编写程序代码。

参考答案Private Sub L1_DblClick()L1.AddItem L1.TextEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题（1）【考点分析】本题考点有：文本框的Name属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性，窗体的Click事件以及If判断语句。

【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。

通过If语句判断单选按钮的Value属性是否为True，即某个单选按钮是否被选中来显示标签的内容。

一般地，我们认为Value属性是单选按钮的默认属性。

【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。

第一套题1·在名称为FORM1的窗体上画一个标签，名称为L1,标签上显示“请输入密码”，在标签右面画一个文本框，名称为TEXT1,其宽、高分别为2000和500，设置适当的属性，使得在输入密码时，文本框中显示“＊”字符，此外再把窗体的标题设置为“密码窗口”(如示例所示) 答案：将passwordchar属性输入*字符注意：1) 以上设置都只能在属性窗口中进行设置。

2) 存盘时必须存放在考生文件夹下，工程文件名为SJT1.VBP,窗体文件名为SJT1.FRM。

2·在名称为FORM1 的窗体上放置一个名为TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。

（如示例所示）*****注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM，工程文件名为SJT2.VBP。

答案：将计时器控件中的interval属性内输入1000 在timer1中输入的语句Private Sub Timer1_Timer()Text1 = TimeEnd Sub3. 在窗体上新建一名为“TXTCOLOR”的文本框，文本框中的初始内容为“颜色测试”，再新建一个命令按钮，名称为“COLOR”，标题为“测试”，最后加入一个名称为“CDG1”通用对话框控件。

要求程序运行后，点击命令按钮后，弹出颜色对话框，选择一种颜色后，点击确定后，文本框中的字体颜色即变为当前选中的颜色。

注意：在考生文件夹中已有工程文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（’）但不能修改其他部分，存盘时不得改变文件名和文件夹。

程序运行时的窗体界面如“示例”所示。

答案：在测试命令按钮中输入的语句Private Sub COLOR_Click()CDG1.ShowColorTXTCOLOR.ForeColor = CDG1.COLOREnd Sub加入通用对话框的方法打开工程~打开部件选控件中的microsoft common dialog control 6.0 (sp6)即可选择颜色对话框用showcolor4. 在名为FORM1的窗体上已有一LABEL1的标签，新建一名称为“START”,标题为“开始”的命令按钮，和一名称为“STOP”，标题为“结束”的命令按钮，再新建一名称为L1的标签，内空，BORDERSTYLE属性为1。

二级VISUAL BASIC-471(总分15,考试时间90分钟)1 基本操作题1. 在名为Form1的窗体上绘制一个标签，名为Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Text1其宽、高分别为1500和300。

设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord窗口”。

运行时的窗体如下图所示。

注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为sj1.vbp，窗体文件名为sj1.frm。

2 简单应用题1. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即"号)，但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗口中有一个名称为Image1的图像框，一个名称为Timer1的计时器，一个名称为HScroll1的滚动条，还有一个名称为C1，标题为“开始”的命令按钮。

要求程序运行后，点击开始按钮，则图像框中的图片根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。

程序运行界面如图12-5和图12-6所示。

(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即"号)，但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗体中有一个名为Image1的图像框，还有两个命令按钮，名称分别是C1和C2，标题分别是“放大”和“缩小”。

要求程序运行后，点击C1按钮，则图像框变大；点击C2按钮，则图像框变小。

程序运行界面如图12-7所示。

3 综合应用题1. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

1在名称为Form1的窗体上添加一个名称为Label1、标题为"添加项目："的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为"添加"、"统计"。

在程序运行时，向Text1中输入字符，单击"添加"按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击"统计"按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。

请编写两个命令按钮的Click事件过程。

注意：程序中不得使用变量，也不能使用循环结构。

存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。

List添加项目Private Sub Command1_Click()Combo1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Print Combo1.ListCountEnd Sub2在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel的文件列表框，名称为Label1、标题为"文件名"的标签和名称为Labe12、BorderStyle为1的标签。

将窗体的标题设置为"文件系统控件"，如图所示。

请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。

单击文件列表框时，将在Label2中显示选中的文件名。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。

Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd Sub3在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意。

基础题(1)【操作步骤】步骤1：新建一个Form1窗体，将该窗体的Caption设置为"菜单练习"。

步骤2：在窗体的空白处右击，在弹出的快捷菜单中选择"菜单编辑器"命令，弹出菜单编辑器。

步骤3：在菜单编辑器中的"标题"文本框中输入"操作"，在"名称"文本框中输入"operation"，选中"有效"和"可见"复选框，然后单击"下一个"按钮。

步骤4：在"标题"文本框中输入"输入"，在"名称"文本框中输入"input"，选中"有效"和"可见"复选框，然后单击按钮，设置为下一级菜单。

再单击"下一个"按钮。

步骤5：在"标题"文本框中输入"输出"，在"名称"文本框中输入"output"，选中"可见"复选框，再单击"下一个"按钮。

步骤6：在"标题"文本框中输入"查询"，在"名称"文本框中输入"query"，选中"有效"和"可见"复选框，再单击"下一个"按钮。

步骤7：在"标题"文本框中输入"统计"，在"名称"文本框中输入"count"，选中"有效"和"可见"复选框，然后单击按钮，再单击"下一个"按钮。

步骤8：在"标题"文本框中输入"按月"，在"名称"文本框中输入"bymonth"，选中"复选"、"有效"和"可见"复选框，然后单击按钮，再单击"下一个"按钮。

基础题(1) 【解题思路】Sorted属性用于设置列表框中的项目是否按字母表顺序排序。

可能的取值如下：True：列表框中的项目按字母表顺序排序。

False：列表框中的项目不按字母表顺序排序。

注意：Sorted属性必须在设计时设置，在运行时为只读属性。

【操作步骤】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。

程序中用到的控件及属性见表3.167。

表3.167步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过程中，通过标签的FontSize 属性值的动态设置实现标签内容字体的缩小和还原。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.168和表3.169。

表3.168表3.169步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Label1.FontSize = Label1.FontSize - 2End SubPrivate Sub Command2_Click()Label1.FontSize = 12End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】根据题意，将考生文件夹下in3.dat文件中已按升序排列的30个整数读入一个维数组a中，同时运用Space函数和Str函数把这30个数值显示在Text1文本框内。

在Cmd2 Click事件过程中，通过InputBox函数弹出输入对话框，接收用户输入的任意一个数，若接收的数为奇数，弹出"输入数为奇数，请重输！"提示重新输入。

如果接收的偶数超出一维数组a的数值范围，Text2显示"已超出所给数值范围"；否则，通过For循环语句和If判断语句在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数"不存在于数组中"；否则显示该数在数组中的位置。