省二级考试VB试题汇总
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() 定义s为20个字符的字符串 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文件 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
第 16 页 共 74 页
省二级考试VB试题汇总
= 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
往1号文件写入数据 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 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
第 17 页 共 74 页
省二级考试VB试题汇总
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
109 以下程序段的执行结果是_______。 B
a=10:y=0 Do
a=a+2 y=y+a If y>20 Then Exit Do 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
A）监视表达式不能引起中断
B）可使监视表达式为真时引起中断 C）可使监视表达式的值变化时引起中断 D）监视表达式可以监视对象
112 以下程序段的运行结果是_______。 C
第 18 页 共 74 页
省二级考试VB试题汇总
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 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 ' xy都是字符串,所以这里是连接运算,结果放入y
checks = 1 ' 使函数返回1,此时是x不是\A\为其它字符则函数返回0 End If End Function
第 19 页 共 74 页
省二级考试VB试题汇总
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，获得的运行结果分别是_______。 C
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 sqr( )函数是对参数开平方运算，参见第三章 Else y = Sqr(x) 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
第 20 页 共 74 页