全国计算机等级考试二级Visual Basic习题集
Exit Do
Case 65, 68, 92 End End Select Next I Loop End Sub
上述事件过程执行后，下列描述中正确的是（ ）
A）当所产生的随机数为12时结束所有循环 B）在For循环中产生的随机数小于或等于100 C）当所产生的随机数为65、68或92时窗体关闭、程序结束 D）Do循环执行的次数为1000次
参考答案：C 【解析】程序Do循环中嵌套了For循环，Do循环没有设置结束条件，而是在For循环体中的Select语句中设置了退出Do循环和For循环及结束程序的分支，因此Do循环的次数无法确定。随机函数Rnd产生[0,1)之间的一个数，包括0但不包含1，因此Rnd*100的范围是大于等于0小于100。随机数为65、68或92时结束程序关闭窗体，为58时退出Do循环，为12时退出For循环进入下一次Do循环。 13．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() C=1234
C1=Trim(str(c)) For i=1 to 4
Print ____________ Next
End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234
则在横线处应填入的内容为（ A ）
A) Left(c1,i) B) Right(c1,i) C) Mid(c1,i,i) D)Mid(c1,i,1)
参考答案：A【解析】程序中使用Str(c)将数值1234转换成为一个字符串\1234\，又使用Trim函数去除了字符串首尾可能存在的空格，保证了字符串中只有1、2、3、4这4个字符。在For循环中从左边递次输出这些字符就需要使用Left()函数，Left是左部截取函数，可以截取字符串左边指定个数的字符串，以Left(c1， i)的形式即可每次循环取出期望的字符串。因此答案为A。 14．编写如下程序：
Private Sub Command1_Click() Dim num As Integer
Dim k As Integer, n As Integer
num = InputBox(\请输入一个正整数：\ k = num n = 2 Do
Do While num Mod n = 0 Print n;
num = num / n Loop
n = n + 1
Loop Until n > k / 2
End Sub 程序运行后，单击命令按钮Command1,并输入数值20，则输出结果为（C ）
A) 2 3 4 5 B) 2 5 C) 2 2 5 D) 2 3 4
15．窗体上有1个名称为Command1的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序： Private Sub Command1_Click()
Dim x As String, s As String, temp As String Dim i As Integer
x = InputBox(\输入字符串\输入\ If x <> \
For i = Len(x) To 1 Step -1 s = Mid(x, i, 1) If s <> \ temp = s + temp Else
list1.AddItem temp s = \ temp = \ End If Next
list1.AddItem temp Else
MsgBox \输入内容为空！\ End If End Sub
程序运行后，单击命令按钮Command1，并输入”Happy new year”，则在List1中显示的内容为（ A ） A) year B) yppaH C) raey D) Happy New wen wen new
第 6 页
全国计算机等级考试二级Visual Basic习题集
Happy raey yppaH year 16．编写如下程序：
Private Sub Command1_Click() Dim score As Integer score = 86
If score > 85 Then r = 1
ElseIf score > 60 Then r = 2 Else r = 0 End If Print r
End Sub 程序运行后，单击命令按钮command1，输出结果为（ D ）
A) 86 B) 0 C) 2 D) 1 17．编写如下程序：
Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1 y = 1 Do
y = x * y
If y > 10 Then Exit Do Else
x = x + 3 End If
Loop Until x <= 10 Print x; y
End Sub 程序运行后，单击命令按钮Command1，输出结果为（ D ）
A) 1 1 B) 4 2 C) 7 28 D) 4 1 18．编写如下程序：
Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 2
If a * b < 10 Then b = b + 1 Else b = b - 1 Print b - a > 0 End Sub
程序运行后，单击命令按钮Command1，输出结果为（ A ）
A) False B) 1 C) -1 D) True
19．在窗体上画一个Timer1计时器控件和一个Shape1形状控件，并编写如下程序： Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() If shape1.Shape = 1 Then shape1.Shape = 3 Else
shape1.Shape = 1 End If End Sub
运行程序，则看到的结果是（ C ）
A) 显示椭圆形，每秒移动一次 B) 显示正方形，每秒闪烁一次
C) 交替显示正方形和圆形，每秒交替一次 D) 交替显示矩形和椭圆形，每秒交替一次 20.有如下程序：
Private Sub Command1_Click()
Dim i As Integer， j As Integer Dim sum As Integer n＝1 Do
j＝1 Do
sum＝sum＋j j＝j＋1 Print j； Loop Until j>3 n＝n＋2 Loop Until n>10 Print sum
第 7 页
全国计算机等级考试二级Visual Basic习题集
End Sub 运行上述程序，外层Do循环执行的次数为( B )。 A) 4 B) 5 C) 7 D) 10
参考答案：B 【解析】外层Do循环结束条件是n>10，n初值为1，每次加2，循环体中每次循环n的值为3、5、7、9、11，值变化5次，因此外层Do循环执行次数为5次。
第七章 数组
1．下面关于控件数组的叙述中正确的是（ B ）
A) 控件数组中每个元素都是独立的控件，因此都有各自的事件过程 B) 控件数组中所有控件的名称相同，但其Index属性值各不相同 C) 控件数组中所有控件的名称相同，但其Value属性值各不相同 D) 上述都是错误的 2．命令按钮Command1的事件过程如下： Private Sub Command1_Click() Dim arr(5, 5) As Integer
Dim i As Integer, j As Integer For i = 1 To 4 For j = 2 To 4
arr(i, j) = i + j Next j Next i
Print arr(1, 3) + arr(3, 4)
End Sub 执行上述过程，输出结果是（ D ）
A) 7 B) 12 C) 6 D) 11
参考答案：C 【解析】当用Dim语句定义数组时，该语句把数组中的全部元素都初始化为0，而把字符串数组中的全部元素都初始化为空字符串。程序中利用For循环为数组arr的部分元素赋值这些元素的第一维范围是1～4，第二维的范围是2～4，值为两维下标的和。程序要输出arr(1， 3)＋arr(3， 4)的值，arr(1， 3)值为1＋3＝4，arr(3， 4)值为3＋4＝7。4＋7＝11，因此程序输出结果为11。 3．设有如下声明语句 Option Base 1
Dim arr(2,-1 to 5) As Integer
则数组arr中数组元素的个数是（ C ）
A) 12 B) 21 C) 14 D) 10
4．在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click() Dim a
a＝Array(1， 2， 3， 4) j＝1
For i＝4 To 1 Step－1 s＝s＋a(i)* j j＝j * 10 Next i Print s
End Sub 运行上面的程序，其输出结果是( A )。 A) 1234 B) 12 C) 34 D) 4321
参考答案：A 【解析】Array函数用来为数组元素赋值，即把一个数据集读入某个数组。其格式为：数组变量名=Array(数组元素值)。Dim a语句没有变量类型名，则a默认为Variant类型，这里它作为数组变量使用。现在已知数组a中元素的值依次为1、2、3、4，则For循环中各变量值变化如下： i=4时，s=s+a(4)*j=0+4*1=4,j=1*10=10 i=3时，s=s+a(3)*j=4+3*10=4+30=34,j=10*10=100 i=2时，s=s+a(2)*j=34+2*100=34+200=234,j=100*10=1000 i=1时，s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。S的值为1234。 5．在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click() Dim M(10)As Integer For k＝1 To 10 M(k)＝12－k Next k x＝8
Print M(2＋M(x))
End Sub 运行程序，单击命令按钮，在窗体上显示的是( A )。 A) 6 B) 5 C) 7 D) 8
参考答案：A 【解析】从程序中可知，数组M元素M(1)～M(10)的值为11、10、9、8、7、6、5、4、3、2。则M(8)的值为4，M(2＋M(8))即M(2＋4)，即M(6)。M(6)的值为6。因此窗体上显示为6。 6．下列数组定义中错误的是( C )。
A) Dim a(－5 To－3) B) Dim a(3 To 5) C) Dim a(－3 To－5) D) Dim a(－3 To 3) 参考答案：C 【解析】定义数组时，数组下标的上界>＝下界。故C选项错误。 7．以下叙述中错误的是（ D ）
第 8 页
全国计算机等级考试二级Visual Basic习题集
A) 用ReDim语句可以改变数组的维数 B) 用ReDim语句可以对数组中的所有元素置0或空字符串 C) 用ReDim语句可以改变数组的每一维的大小 D) 用ReDim语句可以改变数组的类型 8．在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim a(3, 3) For m = 1 To 3 For n = 1 To 3
If n = m Or n = 4 - m Then a(m, n) = m + n Else
a(m, n) = 0 End If
Print a(m, n); Next n Print Next m
End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ C ）
A）2 0 0 B）2 0 0 C）2 0 4 D）2 3 0 0 4 0 0 4 5 0 4 0 3 4 0 0 0 6 0 5 6 4 0 6 0 0 6
参考答案：C【解析】根据For循环中的If语句的条件n＝m or n＝4－m中的n＝m首先可以得出a(1,1)＝2，a(2,2)＝4，a(3,3)＝6，其次根据n＝4－m的条件可以得出a(1,3)＝4，a(2,2)＝4，a(3,1)＝4。而其他的元素值都为0。因此窗体上输出的三行分别是：2 0 4 ,0 4 0,4 0 6。
9．设有下面的程序段：
x=InputBox(“请输入一个整数”) ReDim a(x)
For k=x to 0 Step -1
a(k)=k
Next k 一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的（ A ） A) Dim a( ) As Integer B) Dim a(100) As Integer C) Dim a(0 to 100) As Integer D) Dim a As Integer
第八章 数据文件
1．窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：
Private Sub Command1_Click()
Dim s1 As String， s2 As String Open \：\\d4.dat\ Line Input #3， s1 Line Input #3， s2 Text1.Text＝s1＋s2 Close
End Sub 该程序运行时有错误，应该进行的修改是( A )。
A) 将Open语句中的For Append改为For Input B) 将Line Input改为Line
C) 将两条Line Input语句合并为Line Input #3， s1，s2 D) 将Close语句改为Close #3
参考答案：A 【解析】文件打开方式中的Append意味着打开的文件是顺序输出方式，也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此Open \：\\d4.dat\应该改为Open \：\\d4.dat\。所以A选项正确。Clsoe语句中的文件号可以省略，这时会关闭所有打开的文件。 2．顺序文件在一次打开期间( D )。
A) 只能读，不能写 B) 只能写，不能读 C) 既可读，又可写 D) 或者只读，或者只写
参考答案：D 【解析】顺序文件的读写是由Open语句的打开模式决定。用Output模式打开，则可对顺序文件进行写操作；用Input模式打开，可对顺序文件进行读操作；用Append模式打开，可将数据追加到文件尾部。打开一次期间，只能读，或只能写，不能同时进行读写操作。但随机文件和二进制文件打开以后可以同时进行读写操作。故D选项正确。 3．用语句Open “C:\\teac.txt” for Input As #1 打开文件后，就可以编程序，下列正确的是（ B ）
A）在C盘根目录下建立名为teac.txt的文件 B）将C盘根目录下teac.txt文件的内容读入内存
C）把内存中的数据写入C盘根目录下名为teac.txt的文件 D）将某个磁盘文件的内容写入C盘根目录下名为teac.txt的文件 4．写文件语句Print #与Write #的区别之一是（ B ）
A）Write # 用于写二进制文件；Print # 用于写文本文件
B）Write # 写到文件的每个数据项之间自动添加”,”字符；而Print #
C) Print # 既可以写顺序文件，也可以写随机文件；Write # 则只能写顺序文件 D）Print # 写到文件的每个数据项之间自动添加”,”字符；而Write #
第九章 通用对话框
1．在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是( A )。 A)CommonDialog1.Action＝1 B)CommonDialog1.Action＝2 C)CommonDialog1.Action＝3 D)CommonDialog1.Action＝4
第 9 页
全国计算机等级考试二级Visual Basic习题集
参考答案：A 【解析】通用对话框的属性Action＝1与ShowOpen方法等效，而Action＝2则与ShowSave等效。 2．以下关于通用对话框的叙述中，错误的是（ D ）
A) 在设计阶段，通用对话框控件的大小不能改变 B) 通用对话框不是工具箱中的标准控件
C) 通用对话框控件可以用来建立不同类型的对话框 D) 利用通用对话框建立打开文件对话框时，可以完成打开文件的操作 参考答案：D 【解析】\打开\对话框主要用来获取用户指定的文件信息并供程序使用，对话框本身并不提供打开文件功能，这些功能需另外编写代码才能实现，所以在\打开\对话框中可选中某文件，但不能打开。故D选项错误。 3．通用对话框控件文件建立对话框时，可以通过一个属性指标题，这个属性是（ D ） A) Caption B) Action C) Name D) DialogTi定对话框的tle 4．在窗体上画一个Text1文本框和一个CD1通用对话框控件，并编写下面程序： Private Sub Command1_Click( ) CD1.Flags=1 Or 256 CD1.Action=4
If CD1.Color>=0 Then
Text1.ForeColor=CD1.Color End if
End Sub 运行程序并单击命令按钮，下面叙述中正确的是（ B ）
A）弹出的是颜色对话框 B）在弹出的对话框中选了一个颜色并单击‘确定’按钮后，会改变文本框中文本的颜色 C）把代码CD1.Action=4改为CD1.ShowColor效果是一样的 D）弹出的是打开文件对话框
第十章 调用子程序和函数过程
1．以下过程的功能是从数组中寻找最大值：
Private Sub FindMax(a()As Integer， ByRef Max As Integer) Dim s As Integer， f As Integer Dim i As Integer s＝LBound(a) f＝UBound(a) Max＝a(s)
For i＝s To f
If a(i)>Max Then Max＝a(i) Next
End Sub 以下关于上述过程的叙述中，错误的是( C )。
A) 语句Call FindMax(a，m)可以调用该过程，其中的a是数组，m是Integer类型变量 B) For循环次数等于a数组的元素数 C) 过程末尾应该增加一条返回最大值的语句FindMax＝Max D) 参数Max用于存放找到的最大值 参考答案：C 【解析】过程定义语句中第1个参数是数组，调用是实参应该是一个数组变量或元素，第2个参数是整型变量。过程中LBound函数获取了数组下标的下限，UBound函数获取了数组下标的上限，在For i＝s to f语句的循环中就可以访问数组中的各个元素。本过程是用Sub定义的过程不需要返回值。程序中找到的最大值由参数Max返回，因为它是按址传递的参数，它的值会带给实参。因此C选项的说法错误。 2．窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：
Private Sub Command1_Click() Private Function fun(ByRef n As Integer)
If n Mod 3＝0 Then Dim x As Integer
n＝n＋n
x＝Val(InputBox(\输入数据\ Else
n＝n * n Text1＝Str(x＋fun(x)＋fun(x))
End If
End Sub fun＝n
End Function 对于上述程序，以下叙述中错误的是( A )。
A) 语句 fun＝n 有错，因为n是整型，fun没有定义类型 B) 运行程序，输入值为5时，文本框中显示655 C) 运行程序，输入值为6时，文本框中显示42 D) ByRef表示参数按址传递
参考答案：A 【解析】过程fun的功能是将传入的值运算后返回，当传入数值为3的整数倍时返回该值的2倍，否则返回该值的平方。过程Fun的参数指定为ByRef方式，即按址传递，因此会影响实参的值。Str函数是将数值转换为字符串。过程fun定义时没有指明返回类型因此默认为Variant类型，它可以表示任何值，因此A)选项的说法不正确。 3．设有如下通用过程：
Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr＝\
strL＝Len(xStr) i＝1
Do While i<＝strL / 2
tStr＝tStr & Mid(xStr， i， 1)& Mid(xStr， strL－i＋1， 1) i＝i＋1 Loop
Fun＝tStr End Function
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1＝\
Print UCase(Fun(S1))
第 10 页