省二级考试VB试题汇总
Print I
232 下列程序的执行结果为______。 1
A=75
If A>60 then I=1
ElseIf A>70 Then I=2
ElseIf A>80 Then I=3
ElseIf A>90 Then I=4
End If Print I
233 以下循环的执行次数是______。 11
K = 0
Do While K<=10 K = K + 1 Loop
234 在窗体的MouseUp事件中有下列程序代码：
Select Case Button Case 1 “Hello!” Print \ Case 2
Print \ Case 4
Print \End Select
运行此程序，当单击鼠标右键时，窗体显示______。 Hello!
235 将通用对话框Commondialog1的类型设置成“颜色”对话框，可调用该对话框的______方法。
showcolor
236 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()“计算机” Text1.Text=\计算机\计算机\End Sub
Private Sub Text1_Change()
Picture1.Print \等级考试\ End Sub
程序运行后，在文本框中显示的内容是______，改变文本框内容,则图片框中显示的内容是______。
计算机 “等级考试”
237 下面是窗体Form1的Click事件过程，运行时每次单击窗体，窗体均向右移动100缇，请将程序补充完整。 form_click static
Private Sub ______()
______ intleft As Integer intleft=intleft+100 Form1.left=intleft End Sub
第 26 页 共 50 页
省二级考试VB试题汇总
238 在窗体上画一个名称为Label1的 标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干个列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，将程序补充完整。 DblClick List1.Text
Private Sub Form_Load()List1 List1.Additem\西安\
List1.Additem\连云港\ List1.Additem\南京\end sub
Private Sub List1_ ______() Label1.Caption= ______ End Sub
图4—1 第二部分：能力测试题
注意事项和基本知识点：
1． 双击考试窗口中的打开考生文件夹，看准所在路径，如C:\\11121100109，但
是考试时不在是C盘了，换成了S盘，应看清楚。
2．
在考生文件夹中双击指定工程的图标打开工程文件，应分清楚工程名称和工程文件名称，如：“将该工程文件的工程名称改为“Spks””，指的是选中工程资源管理器其中的工程图标，在属性窗口中的名称内输入：Spks（不区分大小写），（如图4—1），工程文件名的更改则是在工程资源管理器窗口中选中工程图标单击右键选择保存，尤其要注意要把文件保存的考生文件夹内（对于基本操作题和简单应用题属于非第一次保存的文件，可直接单击保存即可，对于综合应用题第一次保存时应先选准考生文件夹后再保存）；窗体名称和窗体文件
3．
4． 5．
名称的修改与工程类似。
按照题目要求在工具箱中选择适当控件在窗体中作出所要界面，并设置相应属性。
根据题目要求首先分析对“哪”个对象做“什么”动作，就在“哪_动作”事件过程中写代码，在此事件中要实现“哪个属性”的改变，就应有“哪.属性”的赋值。
若题目要求添加模块，则在工程资源管理器窗口中选中窗体图标单击右键选择添加→添加文
件→在添加文件对话框中选则→打开，即可把指定模块添加到指定工程中，然后查看模
块的代码，仔细阅读代码中的过程，读懂功能，看清楚形参，在窗体中的相应代码处进行调
用。
6． 建议先保存（先保存窗体，再保存工程）后运行，以免进入死循环丢失代码。 7． 完全正确后使用文件菜单下的生成exe文件命令生成可执行文件。 8． 常用控件的基本属性、事件和方法： (1) 窗体form
属性：name，caption。
事件：load（窗体加载时触发的事件，一般用来对属性和变量初始化）
第 27 页 共 50 页
省二级考试VB试题汇总
unload（关闭窗体时触发此事件） click（单击事件），dblclick（双击事件） activate（当窗体变为活动窗体时触发此事件）
deactivate（当窗体变为非活动窗体时触发此事件） 方法：print（在窗体上输出），cls（在清除窗体中的文字或图形） show（装载并显示指定窗体），hide（隐藏并不卸载指定窗体） (2) 标签label
属性：name，caption，autosize（值为true时自动标签调整大小），borderstyle（设置标签
样式），backcolor，wordwrap。 事件：click（单击事件），一般不考。 (3) 文本框text
属性：name，text（显示文本框信息），multiline（多行显示），scrollbars，passwordchar，
maxlength（允许显示最大长度），locked，selstart（选定文本开始位置），sellength（选定文本的长度），seltext（选定文本的内容），fontname，fontsize，fontcolor，fontitalic等。
事件：change（文本框改变时触发此事件），click（单击事件），
keypress（在文本框中按下某键时触发本事件，并通过keyAscii返回所按键的Ascii值）
方法：SetFocus（把焦点移动到指定的文本框中）
注意:文本框置空时不能使用cls方法，而用text1.text=””；没有caption属性，只有text
属性。
(4) 命令按纽command
属性：name，caption（注意用&设置快捷键），
style（是图片样式还是普通按纽的样式），default，cancel。
事件：click（单击事件） 方法：print（在窗体上输出），cls（在清除窗体中的文字或图形） show（装载并显示指定窗体），hide（隐藏并不卸载指定窗体） (5) 单选按纽option
属性：name，caption，borderstyle（按纽样式），value（选中为true）。 事件：click（单击事件） (6) 复选框check
属性：name，caption， value（选中为true）。 事件：click（单击事件）
(7) 框架frame（注意先做框架，再往框架中做控件）
属性：name，caption。 事件：click（单击事件），一般不考。 (8) 计时器timer
属性：name，enable（是否发生）， interval（间隔多久触发timer事件）。 事件：timer
(9) 列表框list、组合框combo
属性：name，style（样式），list（字符串数组，每个数组元素都是列表框或组合框中的一项，
如list1.list（0）），listcount（列表中的总项数），listindex（返回当前选项的下标序号），multiselect，selected（运行时用代码来选中某项），text（设置或返回列表框或组合框中当前选项的值）。 事件：click（单击事件），dblclick（双击事件） 方法：additem（向列表中添加某项），clear（清除列表中的所有项）
第 28 页 共 50 页
省二级考试VB试题汇总
removeitem（清除列表中指定的选项）
(10) 滚动条hscroll和vscroll
属性：min，max，value，largechange，smallchange。 事件：chang（value值改变触发本事件），scroll（拖动滑块触发本事件） (11) 图片框picture和图象框image
属性：picture1.autosize=true（图片框自动调整大小适应图片尺寸）
image1.strenth=true（图片自动调整大小适应图象框尺寸）
方法：loadpicture（“绝对路径”） (12) line和shape控件 (13) 驱动器列表框drive
属性：drive
事件：chang（drive属性发生改变触发本事件） 语句：chidrive（设置当前驱动器） (14) 目录列表框dir
属性：path（读取或指定当前目录）
事件：chang（path属性发生改变触发本事件） (15) 目录列表框dir
属性：path（读取或指定当前文件目录），pattern（限定文件列表框中文件类型），filename
（表示文件列表框中选定的文件名）
事件：click（单击事件），dblclick（双击事件）
四、基本操作题（每套试卷有1个基本操作题，每题15分） 评分规则如下：
所建控件所在工程得分：4分 所建的窗体得分：11分 控件设计满分：15分
1．在考生文件夹中，完成以下要求： （1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm
的窗体名称改为“vbbc”，窗体的标题为“二级VB考试”。
（2）在窗体上增加以下控件：定时器Timer1，时间间隔值为10；图片框Picture1；标签Label1放
置在图片框中，标签的大小自动调整；标签Label2的标题为“快”；文本框Text1放置在图片框下方；水平滚动条HScroll1，最小值为0,最大值为100 。 （3）按如下要求编写代码：
文本框中输入的字符自动显示为标签的标题；标签自动向左移动，移出图片框后又从右边进入（提
示：编程使得当标签的Left<-1000时，重置Left＝10000）；拖动水平滚动条时，将调整移动的速度。
（4）请先调试、运行，然后将工程、窗体保存。
第 29 页 共 50 页
省二级考试VB试题汇总
参考程序如下：
Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value End Sub
Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 100
If Label1.Left < -1000 Then Label1.Left = 10000 End Sub
2．在考生文件夹中，完成以下要求：
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。 （2）请在适当位置添加控件：三个标签，Label1标题为“姓名：”，Label2标题为“籍贯：”， Label3
标题为空；一个框架Frame1标题为“性别”；两个单选按钮在框架Frame1中，Option1标题为“男”,Style属性为1且为选中状态，Option2标题为“女”，Style属性为1；一个文本框Text1内容为空，且Tabindex属性值为0；一个列表框List1；一个命令按钮Command1，标题为“确定”。（以上操作在属性窗口中完成） （3）在窗体模块中声明全局变量xb，jg；在窗体的装载事件中完成：列表框添加三项内容：“北京”，
“上海”，“合肥”，且“北京”选项默认被选中，xb变量的初始值为“男”。
(4)按如下要求编写代码：选中Option1时，为变量xb赋值为“男”；选中Option2时，为变量xb
赋值为“女”；选中列表框的某一项时，把选中的内容赋值给jg (要求在列表框的Click事件中实现)；单击按钮Command1时，在Label3中顺次显示姓名（Text1中的内容），籍贯（变量jg的值）,性别（变量xb的值）。 运行后如图所示： a
第 30 页 共 50 页