省二级考试VB试题汇总
C. 包含所有的文件 D. 显示磁盘的路径
96 目录列表框的Path属性的作用是_______。A A. 显示当前驱动器或指定驱动器上的路径
B. 显示当前驱动器或指定驱动器上的某个目录下的文件名 C. 显示根目录下的文件
D. 只显示当前路径下的文件
97 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框同步协调工作，需要_______。 A
A. Drive1的Change事件过程中加入Dir1.Path = Drive1.Drive，在Dir1的Change事件中加入File1.Path = Dir1.Path代码
B. Drive1的Change事件过程中加入Dir1.Path =Dir1.Path，在Dir1的Change事件中加入File1.Path = Drive1.Drive代码
C. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive，在Drive1的Change事件中加入File1.Path = File1.FileName代码
D. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive，在Drive1的Change事件中加入File1.Path = Dir1.Path代码
98 以下程序运行后，a1.dat文件的内容是_______。 B
Private Sub Form_Click()
Dim f1 As Integer, f2 As Integer, f3 As Integer
Open \ f1 = 2 f2 = 3 f3 = f2 + f1
Write #1, f1 * f2, f2, f3 Close #1 End Sub
A. 2，3，3 B. 6，3，5 C. 2，5，6 D. 无内容
99 以下能判断是否到达文件尾的函数是_______。 D
A) BOF B) LOC C) LOF D) EOF 100 一条语句要分行书写，用_______符号作续行符。 C A. + B. - C. _ D. …
101 VB 6.0的标准化控件位于IDE(集成开发环境)中的_______窗口内。 B A. 工具栏 B. 工具箱 C. 对象浏览器 D. 窗体设计器
102 关于Visual Basic应用程序正确的叙述是_______。 A A. Visual Basic程序运行时，总是等待事件被触发 B. Visual Basic程序设计就是编写代码 C. Visual Basic程序是以线性方式顺序执行的
D. Visual Basic的事件可以由用户随意定义，而事件过程是系统预先设置好的 103 保存文件时，窗体的所有数据以_______存储。B
A. *.PRG B. *.FRM C. *.VBP D. *.EXE 104 下列哪组语句可以将变量a，b的值互换_______。 B
第 16 页 共 50 页
省二级考试VB试题汇总
A. a=b : b=a
B. a=a+b : b=a-b : a=a-b C. a=c : c=b : b=a
D. a=(a+b)/2 : b=(a-b)/2
105 以下程序段执行后，整型变量n的值为_______。 A
year1 = 2004
n = year1 \\ 4 + year1 \\ 400 - year1 \\ 100
A. 486 B. 496 C. 506 D. 466
106 将一文本框与数据控件相关联，需要设定文本框的_______属性。 C A. DataMember B. Datafield C. DataSource D. DataFormat
107 窗体Form1上有两个文本框Text1、Text2和一个命令按钮Command1，编写如下两个事件过程：
Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub
Private Sub Form_Load() Text1.Text = \ Text2.Text = \ End Sub
程序运行时点击Command1按钮，窗体上显示的运行结果是_______。 B
A. 444 B. 123321 C. 321123 D. 132231
108 在窗体上添加三个文本框，名称分别为Text1、Text2、Text3，一个命令按钮Command1。如果在Text1中输入150，Text2中输入数200，则执行下列程序后，Text3中显示的数为_______。 D
Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m < n Then
t = m: m = n: n = t End If Do
r = m Mod n m = n n = r
Loop While r <> 0 Text3.Text = Str(m) End Sub
A. 200 B. 150 C. 100 D. 50 109 以下程序段的执行结果是_______。 B
a=10:y=0 Do
a=a+2 y=y+a If y>20 Then Exit Do
第 17 页 共 50 页
省二级考试VB试题汇总
End If Loop While a<=14 Print \
A. a=18 y=24 B. a=14 y=26 C. a=14 y=24 D. a=12 y=12 110 以下叙述中错误的是_______。A
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B）以.BAS为扩展名的文件是标准模块文件 C）窗体文件包含该窗体及其控件的属性 D）一个工程中可以含有多个标准模块文件
111 关于VB中的监视表达式，错误的叙述是_______。A）监视表达式不能引起中断
B）可使监视表达式为真时引起中断 C）可使监视表达式的值变化时引起中断 D）监视表达式可以监视对象
112 以下程序段的运行结果是_______。 C
Private Sub Form_Click() Dim x() As String a = \ n = Len(a) ReDim x(1 To n)
For i = n To 1 Step -1 x(i) = Mid(a, i, 1) Next I For i = 1 To n Print x(i); Next i End Sub
A. !uoy era woH B. !uoy era woh C. How are you! D. how are you!
113 以下程序段的运行结果是_______。 D
Private Sub Form_Click() Dim nsum As Integer nsum = 1 For i = 2 To 4
nsum = nsum + factor(i) Next i Print nsum End Sub
Function factor(ByVal n As Integer) As Integer Dim temp As Integer temp = 1 For i = 1 To n
temp = temp * i Next i factor = temp
第 18 页 A
50 页
共省二级考试VB试题汇总
End Function
A. 10 B. 13 C. 23 D.33 114 以下程序段的运行结果是_______。 C
Private Sub Form_Click()
Dim s As String, once As String, sum As Integer For i = 1 To 5
once = InputBox(\请输入一个字符\ '分别输入A,C,A,D,E sum = sum + checks(once, s) Next i Print s; sum End Sub
Private Function checks(ByVal x As String, y As String) As Integer If x <> \ y = y + x checks = 1 End If End Function
A. ACA 3 B. ACA 5 C. CDE 3 D.CDE 5 115 以下程序段的运行结果是_______。 B
Private Sub Form_Click()
Dim i As Integer, y As Integer i = 0 Do While i <= 4 y = fa(i + 1) i = i + 1 Loop Print y End Sub
Function fa(x As Integer) As Integer Dim term As Integer, i As Integer term = 1 For i = 1 To x
term = term * i Next i fa = term End Function
A. 110 B. 120 C. 130 D. 140
116 运行下列程序时，如果连击3次cmd1，且输入9，3，16，获得的运行结果分别是_______。Private Sub Cmd1_Click() Dim x As Integer Dim y As Integer
x = Val(InputBox(\输入数据\ If Int(Sqr(x)) <> Sqr(x) Then y = x * x Else y = Sqr(x)
第 19 页 共 50 页
C
省二级考试VB试题汇总
End If
Form1.Text1.Text = Str(y) End Sub
A. 3、3、4 B. 81、9、256 C. 3、9、4 D. 9、3、16 117 设输入的数据分别为14、3时，标签Label1中显示的值分别是_______。A
Private Sub Form_Click() Dim a As Integer
a = Val(InputBox(\请输入一个数\ Select Case a Mod 5 Case Is < 2 w = a + 10
Case Is < 4 w = a * 2
Case Else w = a - 10 End Select
Label1.Caption = Str(w) End Sub
A. 4、6 B. 6、4 C. 24、6 D. 6、24 118 下列程序段的运行结果是_______。 B
Private Sub Command1_Click() Dim a(3) As Long
a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1
For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub
A. 4321 B. 1234 C. 34 D. 12 119 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim x%,n%,i%,j% n = InputBox(\ For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是_______。D
A）3 B）4 C）5 D）6
二、判断题（每套试卷有10个判断题，每题1分）
第 20 页 共 50 页