1、国家二级 VB机试（选择题）模拟试卷 14及答案与解析 一、选择题 1 有如下程序： Private Sub Command 1_Click() Dim i As Integer,j As Integer， sum As Integer n=1 Do j=1 Do sum=sum+j： j=j+1 Printj； Loop Until j 3 n=n+2 Loop Until n 10 Print sum End Sub 运行上述程序，外层 Do循环执行的次数为 （ A） 4 （ B） 5 （ C） 7 （ D） 10 2 设有如下事件过程： Private Sub Command l_Cli
2、ck() For i=1 To 5 j=i Do Print”*”j=j-1 Loop Until j=0 Next i End Sub 运行程序，输出 “*”的个数是 （ A） 5 （ B） 1 5 （ C） 20 （ D） 25 3 设有如下事件过程： Private Sub Command l_Click()Dim a a=Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x=0 n=UBound(a) For i=0 To n m=0 For j=0 To n If a(i)=a(j)Then m=m+l End If N
3、ext j If m x Then x=m： b=a(i) End If Next i Print b End Sub 运行程序，输出是 （ A） 2 （ B） 3 （ C） 5 （ D） 9 4 窗体上有一个名称为 Commandl的命令按钮，其单击事件过程如下： Private Sub Command l_Click() For i=3 To 1 Step-1 Sum=0 For j=1 To i Sum=Sum+i*i Next Next Print Sum End Sub 运行程序时，单击命令按钮，则窗体上显示的是 （ A） 1 （ B） 6 （ C） 1 8 （ D） 25 5 窗体
4、上有一个名称为 Commandl的命令按钮，编写如下事件过程： Private Sub Command l_C lick() i=0 Do While i 6 For i=1 To i n=n+1 Next i=i+1 Loop Print n End Sub 运行程序，单击命令按钮时，窗体上显示的是 （ A） 10 （ B） 1 5 （ C） 1 6 （ D） 21 6 阅 读程序： Option Base 1 Private Sub Form_Click() Dim Arr(3， 3)As Integer For i=1 To 3 For i=1 To 3 If j=i Or j=3-i+
5、1 Then Arr(i， j)=1 Else Arr(i， j)=0 End If Next j Next i For i=1 To 3 For j=1 To 3 Print Arr(i， j)； Next j Print Next i End Sub 程序运行后，如粜单击窗体，则输出结果为 7 有下面程序代码： Private Sub Command l_Click()i=1 Do While i 5 j=1 Do j=j+1 Print”*”； Loop Until i+j 1 0 Print i=i+2 Loop End Sub 程序运行时输出字符 “*“的个数是 （ A） 50 （
6、B） 20 （ C） 1 6 （ D） 1 5 8 以下数组定义语句中，错误的是 （ A） Static a(10)As Integer （ B） Dim c(3， 1 To 4) （ C） Dim d(-10) （ D） Dim b(0 To 5， 1 To 3)As Integer 9 语句 Dim a(-3 To 4， 3 To 6)As Integer定义的数组的元素个数是 （ A） 1 8 （ B） 28 （ C） 21 （ D） 32 10 下面正确使用动 态数组的是 （ A） Dim arr()As Integer ReDim arr(3， 5) （ B） Dim arr()As
7、 Integer ReDim arr(50)As String （ C） Dim arr() ReDim arr(5 0)As Integer （ D） Dim arr(50)As Integer ReDim arr(20) 11 设有如下数组定义语句： Dim a(-1 To 4， 3)As Integer以下叙述中正确的是 （ A） a数组有 1 8个数组元素 （ B） a数组有 20个数组元素 （ C） a数组有 24个数组元素 （ D）语法有错 12 语句 Dim Arr(-2 To 4)As Integer所定义的数组的元素个数为 （ A） 7个 （ B） 6个 （ C） 5个 （
8、D） 4个 13 下列数组定义中错误的是 （ A） Dim a(-5 To-3) （ B） Dim a(3 To 5) （ C） Dim a(-3 To-5) （ D） Dim a(-3 To 3) 14 以下关于数组的叙述中，错误的是 （ A） Variant类型的 数组中各数组元素的类型可以不同 （ B）各数组元素可以是不同类型的控件 （ C）各数组元素通过下标进行区别 （ D）各数组元素具有相同的名称 15 设有如下声明语句 Option Base 1 Dim art(2， -1 To 5)As Integer 则数组 arr中数组元素的个数是 （ A） 10 （ B） 12 （ C）
9、14 （ D） 21 16 以下叙述中错误的是 （ A）用 ReDim语句可以改变数组的维数 （ B）用 ReDim语句可以改变数组的类型 （ C） 用 ReDim语句可以改变数组每一维的大小 （ D）用 ReDim语句可以对数组中的所有元素置 0或空字符串 17 设有下面的程序段： x=InputBox(”请输入一个整数 ”) ReDim a(x) For k=x To 0 Step-1 a(k)=k Next k 一般，在这段程序之前应先进行数组 a的定义。下面定义语句中正确的是 （ A） Dim a(100)As Integer （ B） Dim a()As Integer （ C） D
10、im a As Integer （ D） Dim a(0 To 100)As Integer 18 如果要在语句： a=Array(1， 2， 3， 4， 5)的前面声明变量 a，则正确的声明是 （ A） Dim a(4)As Integer （ B） Dim a(5)As Variant （ C） Dim a(1 To 5) As Integer （ D） Dim a As Variant 19 设有如下一段程序： Private Sub Command l_Click() Static aAs Variant a=Array(”one”， ”two”， ”three”， ”four”， ”
11、five”) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是 （ A）变量声明语句有错，应改为 Static a(5)As Variant （ B）变量声明语句有错，应改为 Static a （ C）可以正常运行，在窗体上显示 three （ D）可以正常运行，在窗体上显示 four 20 在窗体上画一个命令按钮 (其 Name属性为 Commandl)，然后编写如下代码： Private Sub Command l_Click() Dim n()As Integer Dim a， b As Integer a=InputBox(”Enter the first n
12、umber”) b=InputBox(”Enter the second number”) ReDim n(a To b) For k=LBound(n)To UBound(n) n(k)=k Print n(k)； Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 2和 3，输出结果为 （ A） 1 2 （ B） 2 3 （ C） 3 4 （ D） 4 5 21 在程序中要使用 Array函数给数组 art赋初值，则以下数组变量定义语句中错误的是 （ A） Static arr （ B） Dim arr(5) （ C） Dim arr() （ D） Dim ar
13、r As Variant 22 有下面程序代码： Private Sub Command l_Click() a=Array(1， 2， 3， 4， 5， 6， 7， 8， 9， 10)： n=UBound(a) For k=0 To UBound(a) 2 Print a(k)*a(n)；： n=n-1 Next k End Sub 程序运行后，单击命令按钮 Commandl，输出结果是 （ A） 2 6 12 20 30 （ B） 2 12 20 56 90 （ C） 30 28 24 1 8 10 （ D） 10 1 8 24 28 30 23 有下面程序代码： Option Base
14、1 Private Sub Command l_Click() Dim a(10)As Integer， x， b x=InputBox(”请输入一个多位整 数 ”) For k=1 To Len(x) b=Mid(x， k， 1) a(Val(b)+1)=a(Val(b)+1)+1 Next k For k=1 To 10 Print a(k)； Next k End Sub 程序运行时，单击命令按钮 Commandl，输入 2355270224，则输出是 （ A） 1 0 4 1 1 2 0 1 0 0 （ B） 0 4 1 1 2 0 1 0 0 0 （ C） 2 3 5 5 2 7 0
15、 2 2 4 （ D） 4 2 2 0 7 2 5 5 3 2 24 窗体上：有 Commandl、 Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer,mAs Integer Private Sub Cortmaandl Click() m=InputBox(”请输入一个正整数 ”) ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox(”请输入一个正整数 ”) ReDim a(m) End Sub 运行程序时，单击 Commandl后输入整数 10，再单击 Comma
16、nd2后输入整数5，则数组 a 中元素的个数是 （ A） 5 （ B） 6 （ C） 10 （ D） 1 1 25 在窗体上画一个名为 Commandl的命令按钮，然后编写以下程序： Private Sub Command l_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） 6 （ B） 5 （ C） 7 （ D） 8 26 在窗体上画一个命令按钮和一个标签，其名称分别为 Commandl和 Labell，然后编写如下事
17、件过程： Private Sub Command l_Click() Dim arr(10) For i=6 To 1 0 arr(i)=i-5 Next i Label 1 Caption=arr(0)+arr(arr(1 0) arr(6) End Sub 运行程序，单击命令按钮，则在标签中显示的是 （ A） 0 （ B） 1 （ C） 2 （ D） 3 27 在窗体上画一个名称为 Textl的文本框，并编写如下程序： Option Base 1 Private Sub Form_C lick() Dim arr Dim Start As Integer， Finish As Intege
18、r Sum As Integer air=Array(12， 4， 8， 16) Start=LBound(arr)： Finish=UBound(arr)： Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Textl Text=C End Sub 运行程序，单击窗体，则在文本框中显示的是 （ A） 40 （ B） 10 （ C） 12 （ D） 16 28 以下过程的功能是从数组中寻找最大值： Private Sub FindMax(a()As Integer,ByRef Max As Integer) Dim s
19、 As Integer， f As Integer Dim i As Integer s=LBound(a)： f=UBound(a) Max=a(s) For i=s To f Ifa(i) Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中，错误的是 （ A）语句 Call FindMax(a， m)可以调用该过程，其中的 a是数组， m是 Integer类型变量 （ B） For循环次数等于 a数组的元素数 （ C）过程末尾应该增加一条返回最大值的语句 FindMax=Max （ D）参数 Max用于存放找到的最大值 29 窗体上有一个名称为 Comm
20、andl的命令按钮，并有如下程序代码： Option Base l Private Sub Command l_Click() Dim a (3， 3) For i=1 To 3 Forj=1 To 3 If i 1 Andj 1 Then a(i， j)=a(a(i-1， j-1)， a(i， j-1)+1 Else a(i， j)=i*j End If Next Next Print a(2， 2)； a(3， 3) End Sub 运行程序，单击命令按钮，窗体上显示的是 （ A） 1 3 （ B） 2 1 （ C） 2 2 （ D） 3 3 30 窗体上有一个名称为 Commandl的命
21、令按钮，其单击事件过程如下： Option Base 1 Private Sub Command 1_Click() Dim a(4， 4)As Integer For i=1 To 4 Forj=1 To 4 a(i， j)=Int(Rnd*100) Next Next x=a(1， 1)y=a(1， 1) For i=1 To 4 Forj=1 To 4 Ifx a(i， j)Then x=a(i， j) Ify a(i， j)Then y=a(i， j) Next s=s+a(i， i) Next Print x， y， s End Sub 关于以上程序，以下叙述中错误的是 （ A）二维
22、数组元素的值是不大于 99的随机整数 （ B）计算结果 x是二维数组各元素中的最大数 （ C）计算结果 y是二维数组各元素中的最小数 （ D）计算结果 s是二维数组各行第一个元素之和 31 窗体上有一个名称为 Commandl的命令按钮。要求编写程 序，把文件 f1 txt的内容写到文件 f2 txt中，然后将 f1 txt删除。命令按钮的单击事件过程如下： Private Sub Command l_Click() Open”c： f1 txt”For Input As#1 Open”c： f2 txt”For Output As#2 Do While Not EOF(2) Line Inp
23、ut#1， str1 Print#2， str1 Loop Close Kill”c： f1 txt” End Sub 该程序运行时发生错误，应该进行的修改是 （ A）打开 f1 txt应该使用 Output方式，打开 f2 txt应该使用 Input方式 （ B） Not EOF(2)应该改为 Not EOF(1) （ C） Line Input应改为 Get （ D） Close语句改为 Close All 国家二级 VB机试（选择题）模拟试卷 14答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 外循环的控制条件 为 n 10，即 n 10的时候结束循环；在每次内循环中 j都会
24、自加， j 3的时候退出内循环，即每次外循环中内循环都会执行 3次；由于内循环没有改变 n的值，而在外循环中 n的值自加 2，所以外循环共循环5次。 2 【正确答案】 B 【试题解析】 本题是一个二重循环，在内循环中输出 “*”，而在每次外循环中内循环的循环次数均为 i次，即共输出 1 3 【正确答案】 B 【试题解析】 本题是一个二重循环，外循环从 0循环到 n，也就是遍历整个数组；在内循环中统计数组中和 a(i)相同的数组元素的个数放到 m中 ，内循环结束后判断 m是不是比 x大，如果比 x大的话让 m成为新的 x，并且把当前数组元素放到 b中，其本质是求出重复次数最多的数字， x保存重复
25、次数， b保存该数字。 4 【正确答案】 A 【试题解析】 本题是一个简单的二重循环，只要注意到 i的值逐渐递减，而且在内循环执行之前都会重新将 Sum的值设置为 0，不难得出只会输出最后一次外循环的 Sum值，由于此时 i=1，所以内循环只会执行一次，最终输出 1作为结果。 5 【正确答案】 B 【试题解析】 本题是一个二重循环，最后输出的是内循环总共执行的次 数，即1+2+3+4+5=15。 6 【正确答案】 D 【试题解析】 本题是用一个二重循环为二维数组赋值，只有满足下标 j=i或者j=3-i+1才将其设置为 1，否则设置为 0，如果写出这个二维数组可以看出，两个对角线的元素被设置成
26、1 7 【正确答案】 C 【试题解析】 本题是一个二重循环，最终求星号的个数，实际上就是计算内循环总共执行了多少次。 i=1的时候内循环执行 9次， i=3的时候内循环执行 7次， i=5的时候跳出循环，内循环共执行了 16次。 8 【正确答案】 C 【试题解析】 本题考查的考点是有关数组定义的。在 Visual Basic中，可以用 4个关键字来定义数组，分别是 Dim、 ReDim、 Public和 Static。在 Visual Basic中定义数组有两种格式。 格式一： Dim数组名 (下标上界 ) As类型名称 Dim数组名 (第一维下标上界，第二维下标上界 ) As类型名称 格式二
27、： Dim数组名 (下界 To上界 ，下界 To上界 ) As类型名称 其中上界必须大于下界。本题中选项 C)采取第一种格式定义数组，则数组默认下 界为 0，上界 -10小于 0，故不符合要求。 9 【正确答案】 D 【试题解析】 本题考查的考点是有关二维数组的。二维数组定义时对于数组的每一维均给定下标的下界和上界，中间用 To连接，即给出下标可取值的变化范围。“数组元素个数 ”指的是数组中成员的个数，每一维的长度是上界 -下界 +1，数组元素个数等于各维长度之积。 10 【正确答案】 A 【试题解析】 通常把需要在编译时分配内存区的数组叫做静态数组，而把需要在运行时分配内存区的数组叫做动态数
28、组。定义动态数组通常分两步：首先在窗体层或标准模块中用 Dim、 Privet或 Public声明一个没有下标的数组 (括号不能省略 )，然后在过程中用 ReDim语句定义带下标的数组。 ReDim语句只能用于动态数组，它可以改变每一维的大小，但不能改变维数和数组类型。 11 【正确答案】 C 【试题解析】 二维数组定义时对于数组的每一维均给定下标的下界和上界，中间用 To连接，即给出下标可取值的变化范围。 “数组元素个数 ”指的是数组中成员的个数，每一维的长度是上界 -下界 +1，数组元素个数等于各维长度之积。数组下标的默认下限值为 0，此时数组某一 维的元素个数等于该维下标上界值加 1。
29、12 【正确答案】 A 【试题解析】 数组中所含有的元素个数为：上界 -下界 +1，本题中计算 4-(-2)+1=7。 13 【正确答案】 C 【试题解析】 定义数组一般使用的格式是 Dim数组名 (下界 To上界 ，下界 To上界 ) As类型名称，其中定义数组时，每一维的下标必须是常数，不能是变量或表达式。即使在执行数组定义语句之前给出变量的值，也是错误的；无论定义数组的格式为那种，下界都必须小于上界。 14 【正确答案】 B 【试题解析】 数组是一组具有相同类型和名称的变量的集合。这些变量称为数组元素，它们具有相同的名称，每个数组元素都有一个编号被称为下标，可以通过下标来区别这些元素。变
30、体型数组，控件数组中各数组元素必须是相同类型的控件。 15 【正确答案】 C 【试题解析】 二维数组定义时对于数组的每一维均给定下标的下界和上界，中间用 To连接，即给出下标可取值的变化范围。 “数组元素个数 ”指的是数组中成员的个数，每一维的长度是上界 -下界 +1，默认下界是 0，数组元素个数等于各维长度之积。 16 【正 确答案】 B 【试题解析】 Visual Basic中有两种类型的数组：固定大小的数组及动态数组。固定大小的数组总是保持同样的大小，而动态数组在运行时可以改变大小。要使用动态数组可先声明一个不指明大小的空数组 (即没有维数下标 )，然后再用ReDim语句在过程中改变数组
31、大小和类型，对于多维数组，无法改变维数，只能改变最后一维的大小。 17 【正确答案】 B 【试题解析】 动态数组以变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用 Dim或 Public声明一个没有下标的数组 (括号不能省略 )，然后在过程中随时用 ReDim语句可以重定义变量作为下标的数组，重定义后原数组的所有元素值被清空。 18 【正确答案】 D 【试题解析】 Array(arglist)函数用于将 arglist参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量，此时要求数组变量在定义时定义成变体型变量或者不声明长度的数组，不能是定长数组。
32、 19 【正确答案】 D 【试题解析】 Array(arglist)函数用于将 arglist参数中一组用逗号隔开的 值列转换成一个数组并赋值给某数组变量，此时要求数组变量在定义时定义成变体型变量或者不声明长度的数组，不能是定长数组。数组的默认下界为 0，所以 a(3)是数组的第四个元素。 20 【正确答案】 B 【试题解析】 动态数组以变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用 Dim或 Public声明一个没有下标的数组 (括号不能省略 )，然后在过程中随时用 ReDim语句可以重定义变量作为下标的数组，重定义后原数组的所有元素值被清空。输入
33、2、 3之后数组被重新定义成了 n(2 To 3)，只有两个数组元素，并且 n(k)=k，即输出 2 3。 21 【正确答案】 B 【试题解析】 Array(arglist)函数用于将 arglist参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量，此时要求数组变量在定义时定义成变体型变量或者不声明长度的数组，不能是定长数组。 22 【正确答案】 D 【试题解析】 使用 Array函数建立的数组其下标下界为 0， n的值是数组的上界即 9；在循环中 k从 0循环到数组长度的一半，每次输出 a(k)*a(n)的值然后令 n-1， 故此容易得到每次输出的是数组两端值之积，依次向数组中间移
34、动，即 1*10、2*9、 3*8、 4*7、 5*6。 23 【正确答案】 A 【试题解析】 InputBox函数将会返回用户在输入对话框中输入的文本，以字符串的形式返回；在第一个 For循环中从前到后依次取出字符串中的每一位数字，然后令对应的数组元素自加 1，其中数组的第一位放的是 0的个数，所以循环结束后数组中存放的是各个数字出现的个数。 24 【正确答案】 B 【试题解析】 本题考查的考点是有关动态数组的。动态数组以变量作为下标值 ，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用 Dim或 Public声明一个没有下标的数组 (括号不能省略 )，然后在过程中随
35、时用ReDim语句可以重定义变量作为下标的数组，重定义后原数组的所有元素值被清空。本题中由于数组下标从 0开始，所以单击 Commandl后输入 10，数组被重定义成了 11个元素；然后单击 Command2输入 5，数组又被重定义成了 6个元素，所以最后数组中有 6个元素。 25 【正确答案】 A 【试题解析】 本题考查的考点是有关数组的。本题只需要清楚知道最终 输出的是什么就可以了，由于 x被赋值为 8，所以 M(x)也就是 M(8)，其值为 4；将 4代换M(x)，可以知道最终输出的是 M(2+4)也就是 M(6)，所以最终输出结果为 6。 26 【正确答案】 A 【试题解析】 在本题的
36、循环中分别将 arr(6)到 arr(10)的数组元素赋值为 1 5，而 arr(0)到 arr(5)的数组元素没有被赋值，将保留默认初值 0，即最后标签上显示的是 arr(0)+arr(5)=0。 27 【正确答案】 B 【试题解析】 本题中变量 Start存放的是数组的下界， Finish存放数组的上界，因此 For循环将遍历整个数组；在每次循环中将数组元素累加到累加和变量 Sum中，循环结束后用累加和变量除以数组上界，由于数组下界从 0开始，即求出数组平均值。 28 【正确答案】 C 【试题解析】 本题中定义了一个子过程 FindMax，第一个形参是一个数组，第二个形参是一个整型值，所以
37、调用此过程的实参也应该是一个数组和一个整型变量：在过程中遍历整个数组，首先让数组的第一个元素为最大值，然后依次用数组元素和 Max进行比较，若其比 Max大则令其成为新的最大值，所以 For循环次数等 于 a数组的元素数，参数 Max用于存放找到的最大值；子过程没有返回值，也无需增加一条返回最大值的语句 FindMax=Max。 29 【正确答案】 D 【试题解析】 本题是一个二维数组的赋值问题，要判断清哪一个数组元素的值被赋值成了多少。首先确定 a(1， 1)=1， a(1， 2)=2， a(1， 3)=3， a(2， 1)=2,a(3，1)=3；然后按照公式计算其余的元素。 30 【正确答
38、案】 D 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数，本题中产生的整数不 会大于 99；后一个二重循环用于遍历整个二维数组并且进行比较，如果数组元素的值大于 x则成为新的最大值，小于 y则成为新的最小值，循环结束后 x是二维数组各元素中的最大数， y是二维数组各元素中的最小数。 s中存放的是二维数组对角线元素之和。 31 【正确答案】 B 【试题解析】 打开文件的基本格式为： Open FileName For Mode AsFileNumber。打开方式主要有 Output、 Append、 Input、 Random等几种。本题中打开了两个文件，其中 1号文件用于读取， 2号文件用于 写入。当进行读取时循环条件应该为 Not EOF(1)即还没有读取到文件结尾。
