省二级考试VB试题汇总
End Sub
则以下说法中正确的是_______。 B
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现 B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现 C. 用过程S1和S2都可以实现交换两个变量的值的操作 D. 用过程S1和S2都不能实现交换两个变量的值的操作
68 在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签，在通用声明段声明变量x,并编写如下事件过程和SUB过程：
Private x As Integer
Private Sub Command1_Click() x = 5: y = 3 Call proc(x, y)
Label1.Caption = x Label2.Caption = y End Sub
Sub proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是_______。B A) 5和3 B) 25和3 C) 25和6 D) 5和6 69 下列程序输出结果为_______。A
Private Sub Command1_Click() For i = 1 To 3
GetValue (i) Next i
Print GetValue(i) End Sub
Private Function GetValue(ByVal a As Integer) dim S As Integer S = S + a GetValue = S End Function
A. 4 B. 5 C. 10 D. 11 70 以下程序的运行结果是_______。 C
Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub
Private Sub Command1_Click() x = 4 y = 4 Call s2(x, y) Print x + y
第 11 页 共 50 页
省二级考试VB试题汇总
End Sub
A) 0 B) 8 C) 12 D) 14 71 以下程序的运行结果是_______。 C
Private Sub Form_Click() a = 1: b = 1
Print \ Call mult(a, b)
Print \ End Sub Sub mult(x, y) x = 2 * x y = 3 * y End Sub
A. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1 A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1
72 在窗体上添加一个命令按钮Command1和3个名称分别为Label1，Label2和Label3的标签， 然后编写如下事件过程：
Private x As Integer
Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z
Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub
程序运行后，连续3次单击命令按钮，则3个标签中显示的内容分别是_______。 C A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 73 一个工程中包含两个名称分别为Form1和Form2的窗体，一个名称为mdlfunc的标准模块。假定Form1,Form2和mdlfunc中分别建立了自定义过程，其定义格式为： Form1中定义的过程：
Private sub frmFunction1() … End Sub
Form2中定义的过程： Pubilc sub frmFunction2() … End Sub
Md1func中定义的过程： Public sub md1Function () … End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是_______。 D
第 12 页 共 50 页
省二级考试VB试题汇总
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用 C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有md1Function过程能够被工程中各个窗体或模块调用 74 以下程序段的运行结果是_______。 B
Function abc(n As Integer) As Integer abc = n * 5 + 10 End Function
Private Sub Form_Click() Dim x As Integer
x = abc(234) + 109 * abc(10) Print x End Sub
A. 7700 B. 7720 C. 2340 D. 7770 75 下列程序运行后显示的结果是_______。 A
Public Sub F1(n%,ByVal m%)Private Sub Command1_Click() n=n Mod 10Dim x%,y% m=m\\10x=12:y=34 End Sub Call F1(x,y) Print x,y End Sub
A. 2 34 B. 12 34 C. 2 3 D. 12 3 76 以下关于窗体的描述中，错误的是_______。 A
A. 执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B. 窗体的load事件在加载窗体时发生
C. 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D. 窗体的Height、Width属性用于设置窗体的高和宽
77 若要使某命令按钮获得控制焦点，则可使用_______方法来设置。B A. Refresh B. SetFocus C. GotFocus D. Value
78 设组合框Combo1中有3个项目，则能删除最后一个项的语句是_______。B A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3
D. Combo1.RemoveItem Combo1.Listcount
79 将数据项\添加到列表框List1中，成为第一项应使用语句_______。A A. List1.AddItem \ B. List1.AddItem \ C. List1.AddItem 0, \ D. List1.AddItem 1, \
80 假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，计算机将发出_______次Beep声。 D
Private Sub Timer1_Timer() For i = 1 To 5 Beep
第 13 页 共 50 页
省二级考试VB试题汇总
Next i End Sub
A. 1000次 B. 10000次 C. 5次 D. 以上都不对
81 将命令按钮Command1的标题作为文本框Text1的文本内容，应执行语句_______。 B A. Text1= Command1
B. Text1.Text= Command1.Caption C. Text1.Caption=Command1.Caption D. Text1.Text= CStr(Command1)
82 下列控件可以用作其他控件容器的有_______。 D A. 窗体，标签，图片框 B. 窗体，框架，文本框 C. 窗体，图像，列表框 D. 窗体，框架，图片框
83 改变驱动器列表框的Drive属性将激活_______事件。 A
A) Change B) Scroll C) KeyDown D) KeyUp 84 在窗体上添加一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load() List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \End Sub
Private Sub List1_DblClick() a = List1.Text
Print a + Text1.Text End Sub
程序运行后，在文本框中输入\，然后双击列表框中的\，则输出结果为_______。 B A. 1245 B. 456789 C. 789 456 D. 0 85 在窗体上添加一个文本框，然后编写如下事件过程：
Private Sub Form_Load() Text1.Text = \ For i = 1 To 10
Sum = Sum + i Next i
Text1.Text = Sum End Sub
上述程序的运行结果是_______。 A
A. 在文本框Text1中输出55 B. 在文本框Text1中输出0
C. 出错 D. 在文本框Text1中输出不定值
86 在窗体上添加一命令按钮Command1，并将其Caption属性设置为cmdAA、名称属性设置为cmdBB，则关于该控件的下列_______语句是正确的。 C A. Command1.Left=100 B.cmdAA.Left=100 C. cmdBB.Left=100 D. 以上语句都不对
87 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。在List1的单击事件过程中能正确实现上述功能的语句是_______。 D
第 14 页 共 50 页
省二级考试VB试题汇总
A） Label1.Caption = List1.ListIndex B) Label1.Name = List1. ListIndex C） Label1.Name = List1.Text D） Label1.Caption = List1.Text
88 下面对语句 Open \的功能描述错误的是_______。C A. 以顺序输出模式打开文件\
B. 如果文件\不存在，则建立一个新文件
C. 如果文件\已存在，则打开该文件，新写入的的数据将添加到文件末尾 D. 如果文件\已存在，则打开该文件，新写入的的数据将覆盖原来的数据 89 执行语句Open \ #1 Len = 50 后，对文件\中的数据能够进行的操作是_______。 C A. 只能写不能读 B. 只能读不能写
C. 即可以读，也可以写 D. 不能读，也不能写
90 下列说法错误的是_______。 C
A) 当用Write # 语句写顺序文件时，文件必须以Output或Append方式打开 B) 用Input方式打开一个文件时，对同一个文件可以用几个不同的文件号打开 C) 用Output和Append方式打开文件时，不用将文件关闭，就能重新打开文件
D) 用Append方式打开文件时，进行写操作，写入文件的数据附加到原来文件的后面 91 下面几个关键字均表示文件的打开方式，只能进行读不能写的是_______。 A A. Input B. Output C. Random D. Append 92 下列哪个不是写文件语句_______。 D
A. Put B. Print C. Write D. Output 93 以下叙述中正确的是_______。B
A. 一个记录中所包含的各个元素的数据类型必须相同 B. 随机文件中每个记录的长度是固定的
C. Open命令的作用是打开一个已经存在的文件 D. 使用Input#语句可以从随机文件中读取数据
94 在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如下事件过程：
Private Sub Command1_Click() Dim s As String * 20 s = Text1.Text …… End Sub
该程序的功能是当单击按钮Command1时，把变量S的内容写入一个顺序文件dat1.dat中，正确的程序段是_______。 B
A. Open \ B. Open \ Write #1, s Write #1, s Close #1 Close #1
C. Open \ D. Open \ Write #1, s Write #1, s Close #1 Close #1
95 FileFiles.Pattern=\程序代码执行后，会显示_______。 A A. 只包含文件扩展名为\的文件 B. 第一个dat文件
第 15 页 共 50 页