1、国家二级 VB机试（选择题）模拟试卷 173及答案与解析 一、选择题 1 在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl Click() Dim Arr(10) As Integer For i=1 To 10 Art(i)=11一 i Next i x=InputBox(“输入一个整数 (3 10)”) Print Art(2+Art(x) End Sub 程序运行后，单击命令按钮，在输入对话框中输入 7，则输出结果为 （ A） 3 （ B） 4 （ C） 5 （ D） 6 2 设有下面程序代码： Pdvate Sub Com
2、mandl_Click() Dim a As Variant a=Array(22， 43， 23， 56， 87， 45， 67， 12， 98， 98， 56， 34， 23， 75， 64) m=a(0)n=m For k=1 To UBound(a If a (k)m Then n=m： m=a(k) Elselfa(k)n And a(k) m Then n=a(k) End If Next k Print n End Sub 程序运行时 的输出是 （ A）数组中最大的数 (即 98) （ B）数组中最小的数 (即 12) （ C）数组中第 2大的数 (即 87) （ D）数组中第
3、1个数 (即 22) 3 设有下面程序代码： Option Base 1 Private Sub Command l Click() Dim x(6) a=Array(4， 2， 5， 1， 6， 3) b=Array(64， 24， 98， 27， 58， 41) For k=1 To 6 x(a(k)=b(k) Next k For k=1 To 6 Print x(k)； Next k End Sub 程序运行时的输出是 （ A） 27 24 41 64 98 58 （ B） 64 24 98 27 58 41 （ C） 24 27 41 58 64 98 （ D） 98 64 58 4
4、1 27 24 4 以下关于控件数组的叙述中，正确的是 （ A）数组中各个控件具有相同的名称 （ B）数组中可包含不同类型的控件 （ C）数组中各个控件具有相同的 Index属性值 （ D）数组元素不同，可以响应的事件也不同 5 以下关于控件数组的叙述中，错误的是 （ A）各数组元素共用相同的事件过程 （ B） 各数组元素通过下标进行区别 （ C）数组可以由不同类型的控件构成 （ D）各数组元素具有相同的名称 6 假定通过复制、粘贴操作建立了一个命令按钮数组 Commandl，以下说法中错误的是 （ A）数组中每个命令按钮的名称 (Name属性 )均为 Commandl （ B）若未做修改，数
5、组中每个命令按钮的大小都一样 （ C）数组中各个命令按钮使用同一个 Click事件过程 （ D）数组中每个命令按钮的 Index属性值都相同 7 窗体上已有的 3个单选按钮组成了 1个名为 ChkOpt1的控件数组。用于区分控件数组 ChkOpt1中每个元素的属性是 （ A） Caption （ B） ListCount （ C） Listlndex （ D） Index 8 窗体上有一个名称为 Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub Option 1Click(Index As Integer) End Sub 下面关于此
6、过程的参数 Index的叙述中正确的是 （ A） Index为 1表示单选按钮被选中，为 0表示未选中 （ B） Index的值可正可负 （ C） Index的值用来 区分哪个单选按钮被选中 （ D） Index表示数组中单选按钮的数量 9 设在窗体上有一个名称为 Check1的复选框数组，并有以下事件过程： Private Sub Check lClick(Index As Integer) End Sub 则下面叙述中错误的是 （ A）单击数组中任何复选框都会调用此事件过程 （ B）参数 Index的值等于单击数组中某个复选框的 Index属性的值 （ C）上面的过程是数组中第 1个复选框
7、的事件过程 （ D）从过程的首部 (即第 1行 )无法确定数组中复选框的个数 10 下 面关于控件数组的叙述中正确的是 （ A）控件数组中所有控件的名称相同，但其 Index属性值各不相同 （ B）控件数组中所有控件的名称相同，但其 Value属性值各不相同 （ C）控件数组中每个元素都是独立的控件，因此都有各自的事件过程 （ D）上述都是错误的 11 下列关于控件数组的叙述中，正确的是 （ A）控件数组可以由不同类型的控件组成 （ B）控件数组元素的最小下标值为 1 （ C）在设计阶段，可以改变控件数组元素的 Index属性值 （ D）控件数组的名字由 Caption属性指定 12 窗体上有
8、一 个由两个文本框组成的控件数组，名称为 Text1，并有如下事件过程： Private Sub Text1Change(Index As Integer) Select Case Index Case 0 Textl(1) FontSize=Textl(0) FontSize*2 Textl(1),Text=Text1(0) Text Case 1 Text1(0) FontSize=Textl(1) FontSize 2 Text1(0) Text=Textl(1) Text Case Els （ A） Index用于标识数组元素 （ B）本程序中 Case Else分支的语句永远不会被执
9、行 （ C）向任何一个文本框输入字符，都会在另一个文本框中显示该字符 （ D）下标为 0的文本框中显示的字符尺寸将越来越小 13 以下叙述中错误的是 （ A）标准模块文件的扩展名是 .bas （ B）标准模块文件是纯代码文件 （ C）在标准模块中声明的全局变量可以在整个工程中使用 （ D）在标准模块中不能定义过程 14 下面不能在信息框中输出 “VB”的是 （ A） MsgBOX”VB” （ B） x=MsgBox(“VB”) （ C） MsgBox(“VB”) （ D） Call MsgBox“VB” 15 以下关于过程的叙述中，错误的是 （ A）在 Sub过程中不能再定义 Sub过程 （
10、B）事件过程也是 Sub过程 （ C）过程调用语句的形参个数必须与实参个数相同 （ D）函数过程一定有返回值 16 设子程序过程定义的首部为： Public Sub S(XAs Integer,Y As Single)则以下正确的调用形式为 （ A） Call S 5.4 8 （ B） Call Sub(5， 4 8) （ C） Sub 5， 4 8 （ D） S 5， 4 8 17 在窗体上画两个标签和一个命令按钮，其名称分别为 Label1、 Label2和Commandl，然后编写如下程序： Private Sub func(L As Label)Private Su b Command
11、l_Click() L Caption=“1 234” a=VaI(Label2 Caption) End SubCall func(Labell) Private Sub Form Load()Label2 Caption=a Labell Caption=“ABCDE”End Sub Label （ A） ABCD和 10 （ B） 1234和 100 （ C） ABCD和 100 （ D） 1234和 10 18 设有如下 Commandl的单击事件过程及 fun过程： Private Sub Commandl： Click()Private Sub fun(x As Integer)
12、Dim x As IntegerIfx Mod 2=0 Then fun(x 2) x=Val(InputBox(“请输入一个整数 ”)Print x； fun(x) End Sub End Sub 执行上述程序，输入 6，结果是 （ A） 3 6 （ B） 6 3 （ C） 6 （ D）程序死循环 19 编写如下程序： Private Sub Commandl-Cliek() Dim strlAs String， str2 As String strl=InputBox(“输入一个字符串 ”)： subfstr1， str2： Print str2 End Sub Sub subf(s1 A
13、s String， s2 As String) Dim temp As String： Static i As Integer i=i+1 temp=Mid(s1， i， 1) Iftemp “Then subf s1， s2 s2 （ A） afbecd （ B） cdbeaf （ C） fedcba （ D） adbecf 20 以下关于函数过程的叙述中，正确的是 （ A）函数过程形参的类型与函数返回值的类型没有关系 （ B）在函数过程中，过程的返回值可以有多个 （ C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 （ D）如果不指明函数过程参数的类型，则该参数没有数
14、据类型 21 在 VB中，函数过程与子 程序过程的区别之一是 （ A）函数过程必须有参数，而子程序过程可以没有 （ B）函数过程的参数传递只采用值传递，而子程序过程只采用地址传递 （ C）在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能 （ D）函数过程有返回值，而子程序过程没有 22 在窗体上画一个命令按钮 (名称为 Command1)，并编写如下代码： Function Fun I(ByVal a As Integer,b As Integer)As Integer DiIn tAs Integer t=a b： b=t+a： Funl=t+b End Function Pr
15、ivate Sub Commandl-Click() Dim x As Integer x=10 Print Funl(Funl(x， (Funl(x， x1)， x一 1) End Sub 程序运行后，单击命令按钮，输出 （ A） 10 （ B） 0 （ C） 11 （ D） 21 23 有下面程序代码： Private Sub Commandl_Click() Dim a As String a=“COMPUTER”n=search(a， “T”)： Print IIf(n=0， “未找到 ”， n) End Sub Private Function search(str As Strin
16、g， ch As String) As Intege For k=l To Lcn(str) C=Mid(str,k， 1) IfC=ch Then search=k： Exit Functio End If Nex （ A） 0 （ B） 8 （ C） 6 （ D）未找到 24 现有如下程序： Private Sub Commandl Click() s=0 For i=1 To 5 S=s+1j5+i) Next Print s End Sub Public Function f(x As Integer) Ifx=10 Then t=x+1 Else t=x+2 End If f=t E
17、nd Function 运行程序，则窗体上显示的是 （ A） 38 （ B） 49 （ C） 61 （ D） 70 25 假定有以下通用过程： Function Ft n(n As Integer)As Integer X=n*n： Fun=x-11 End Function 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Sub Command 1 Click( ) Dim iAs Integer For i=1 To 2 y=Fun(i)Print y； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 （ A） 1
18、3 （ B） 10 8 （ C）一 10一 7 （ D） 0 5 26 求 1!+2!+10 1 的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next S=f End Function Private Sub Commandl Click() Dim i As Integer, y As Long For i=1 To 10 () Next Print y End Sub 为实现功能要求，程序的括号中应该填入的内容是 （ A） Call s(i) （ B） Call s （ C） y=y+s(i) （ D） y=
19、y+s 27 在窗体上画一个名称为 Commandl的命令按钮，并编写如下程序： Function Fun(x) y=0 Ifx=y x=x-y Loop fun=x End Function 程序运行时的输出结果是 （ A） 4 0 1 0 3 0 0 4 0 （ B） 0 3 3 5 1 3 5 1 2 （ C） 9-5 3-5 7-2-4 7 2 （ D） 9 3 3 5 7 3 5 7 2 29 设有如下函数： Function DelSpace(ch As String)As Integer Dim n， st$， c$ st=“”： n=0 For k=1 To Len(ch) C
20、： Mid(ch， k， 1) IfC “”Then st=St&C Else n=n+1 End If Next k ch=st： DelSpace=n End Function 该函数的功能是 （ A）统计并返回字符串 ch中字符的个数 （ B）删除字符串 ch中的空格符，返回删除字符的个数 （ C）统计并返回字符串 ch中非空格字符数 （ D）删除字符串 ch中除空格符外的其他字符，返回删除字符的个数 30 窗体上有一个名称为 Commandl的命令按钮，其单击事件过程及相关的函数过程如下： Private Sub Command 1 click()Dim i As Integer Fo
21、r i=1 To 500 Ifp(i)Then s=s+1 Next Print s End Sub Private Function p(x As Integer)As Boolean Ifx Mod 7 0 Then P=True Else P=False End If End Function 关于上述程序，以下叙述中正 （ A）程序功能是统计 1-500范围内能被 7整除的整数个数 （ B） Commandl Click事件过程中 If语句的条件表达式不完整 （ C） Function过程定义有误，函数过程 P的名称与该过程中的变量名 P相同 （ D）函数过程 P的返回值为 Boole
22、an类型 31 设有下面程序代码： Private Sub Command l Click() Dim strAs String， chAs String str=“Visual Basic Programming” 0 ch=“a” n=fun(ch， str)： Print str,n End Sub Private Function fun(ch As String， str As String)As Integer Dim strbufAs String， c As String， n As Integer For k （ A） Visual Basic Programming 0 （
23、 B） VisuAl BAsic ProgrAmming 3 （ C） Visul Bsic Progrmming 3 （ D） VisualBasicProgramming2 32 以下叙述中错误的是 （ A）在通用过程中；多个形式参数之间可以用逗号作为分隔符 （ B）在 Print方法中，多个输出项之间可以用逗号作为分隔符 （ C）在 Dim语句中，所定义的多个变量可以用逗号作为分隔符 （ D）当一行中有多个语句时，可以用逗号作为分隔符 国家二级 VB机试（选择题）模拟试卷 173答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 本题是一个简单的数组操作，首先在一个循环中为数组元
24、素赋值，然后输出指定的数组元素值。最终输出的是 Arr(2+Arr(7)=Arr(6)=5。 【知识模块】 数组 2 【正确答案】 C 【试题解析】 本题显然是求取数组最大值的，先取得数组的第一个元素作为最大值，然后用 m保存最大值；在循环中如果发现了有比 m还大的数组元素，则将该元素作为新的最大值，原来的最大值 m赋值给 n；如果元素不比 m大就去比较元素是否大于 n，若大于 n则将元素赋值给 n，所以循环结束后 n中的 值是数组中第2大的数。 【知识模块】 数组 3 【正确答案】 A 【试题解析】 本题是一个简单的数组赋值，只要把握好每次为哪个元素赋以什么样的值就不会出错。最后 x数组中存
25、放的数据依次是 27、 24、 41、 64、 98、 58。 【知识模块】 数组 4 【正确答案】 A 【试题解析】 控件数组是一组具有共同名称和共同类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标。 【知识模块】 数组 5 【正确答案】 C 【试题解析】 控件数组 是一组具有共同名称和共同类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标。 【知识模块】 数组 6 【正确答案】 D 【试题解析】 本题考查的考点是有关控件数组的。控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的
26、索引号(Index)，即下标，默认索引号从 0开始。建立控件数组有两种方法：一是先在窗体上画好一个控件，然后再用 “复制 ”和 “粘贴 ”的方法建立；二是先在窗体上先画出若干相同类型的控件，然后再将它们的名称改为同 ?个 名称，再将其 Index属性分别设置为不同值即可。采用第一种方法建立控件数组时，每个数组元素的名称、大小、事件均使用同一个，区别只在于 Index属性不一样。 【知识模块】 数组 7 【正确答案】 D 【试题解析】 控件数组是一组具有共同名称和类型的控件，它拥有共同的事件，数组中的每个控件都有唯一的索引号 (Index)，即下标，默认索引号从 0开始。 【知识模块】 数组 8
27、 【正确答案】 C 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件 都有惟一的索引号 (Index)，即下标，默认索引号从 0开始，不能为负值。 【知识模块】 数组 9 【正确答案】 C 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标，默认索引号从 0开始，不能为负值。从过程的首部无法确定数组中控件的个数。 【知识模块】 数组 10 【正确答案】 A 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Inde
28、x)，即下标，默认索引号从 0开始，不能为负值。 【知识模块】 数组 11 【正确答案】 C 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号 (Index)，即下标，默认索引号从 0开始，在设计阶段可以手动指定控件数组元素的 Index属性值。 【知识模块】 数组 12 【正确答案】 D 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号 (Index)，即下标，默认索引号 从 0开始。本题中的两个文本框的 Index值分别为 0和 1，所以 Case Else分支的语句永远不会
29、被执行：根据程序向任何一个文本框输入字符，都会在另一个文本框中显示该字符：在 0号文本框中输入时 1号文本框的字号是 0号文本框字号的 2倍，在1号文本框中输入时 0号文本框的字号是 1号文本框字号的一半，相当于没有变化，不会越来越小。 【知识模块】 数组 13 【正确答案】 D 【试题解析】 本题考查的考点是有关标准模块的。 Visual Basic中的标准模块也称全局模块或总模块，由全局变量声明、模块层声明 及通用过程等几部分组成，其扩展名为 bas，里面只有代码而没有任何控件。其中全局声明放在标准模块的首部，可以在整个工程中使用。 【知识模块】 过程 14 【正确答案】 D 【试题解析】
30、 MsgBox()函数用于显示提示信息，并可返回一个代表用户单击了哪个按钮的 Integer类型值，当其作为函数使用时必须将参数放在括号内部，而返回值可以赋值给一个变量，也可以单独使用此函数而不将其返回值赋值给变量；MsgBox过程也用于显示提示信息，作为过程可以独立使用，也可以使用 Call关键字来进行调用，但此 时参数需要加括号。 【知识模块】 过程 15 【正确答案】 C 【试题解析】 Sub过程分为事件过程和通用过程，过程不允许嵌套定义，即在Sub过程中再定义 Sub过程；函数过程必须有一个返回值，当过程的声明语句中使用了可选参数的时候，允许实参个数与形参不同。 【知识模块】 过程 1
31、6 【正确答案】 D 【试题解析】 子过程可以独立使用，也可以使用 Call关键字来进行调用，但此时参数需要加括号。本题中子程序的名字是 S，故此 B、 C选项可以排除， A选项中缺少参数的括号。 【知识 模块】 过程 17 【正确答案】 D 【试题解析】 本题考查的考点是有关过程调用的。窗体加载时首先执行了 Load事件里面的代码，设置 Labell的标题为 “ABCDE”， Label2的标题为 “10”；当单击命令按钮时，调用了 func过程，在这个过程中把传入的 LabelI的标题设置为“1234”， Label2的标题没有发生变化。 【知识模块】 过程 18 【正确答案】 A 【试题
32、解析】 本题中的 fum过程是一个递归调用，如果参数 x为偶数则进入递归：本题中的实参 6传入 fun过程之后，因其 是偶数，所以执行 fun(6 2)，也就是先输出 3，然后返回到 fun中输出 6。 【知识模块】 过程 19 【正确答案】 C 【试题解析】 本题中的子过程 subf会进行递归调用，只要在参数 s1中取出的字符不是空字符串就进行递归，直到 i的值超过 sl的长度才停止，然后进行回归操作，相当于每一次向 s2中连接的字符都是最后取出的 si中的字符，最终实现字符串的逆序操作。 【知识模块】 过程 20 【正确答案】 A 【试题解析】 本题考查的考点是有关函数过程的。函数过程可以
33、返回一个函数值，但 这个函数值的类型和参数类型没有任何关系；如果不指明参数的类型，则默认参数为变体型：数组作为函数参数时只能通过传地址的方式来调用。 【知识模块】 过程 21 【正确答案】 D 【试题解析】 函数过程和 Sub子过程一样，也可以有参数也可以没有参数：参数传递也可以使用地址传递 tg“-7使用值传递；都是在代码中进行调用，只是函数过程必须有一个返回值，子过程没有。 【知识模块】 过程 22 【正确答案】 B 【试题解析】 本题考查的考点是有关过程调用的。对于这种复杂的函数调用，一定要 搞清楚调用的顺序以及参数传递的是值还是地址。根据过程调用的原则。首先调用最内层的 Funl(x，
34、 x-1)，其结果为 12， x的值不变仍为 10；然后调用Funl(x， 12)，其结果为 6， x的值也不变为 10；最后调用 FunI(6， x-1)，其结果为0， x的值也不变为 10。本题中的传址调用是没有作用的，因为表达式是不能传地址的。 【知识模块】 过程 23 【正确答案】 C 【试题解析】 本题中 search函数的参数是两个字符串，在函数内进行循环，依次取出第一个参数的第 k位和第二个参数进行比较，如果相等 则返回 k的值，实际上就是查找第二个参数在第一个参数中出现的位置。 【知识模块】 过程 24 【正确答案】 B 【试题解析】 本题考查的考点是有关函数调用和 If语句的
35、。要注意在前 4次循环中每次调用 f函数时传递的参数分别为 6、 7、 8、 9，都是小于 10的，最后一次循环传递参数 10，所以最终结果应该为 8+9+10+11+11=49。 【知识模块】 过程 25 【正确答案】 C 【试题解析】 本题共调用 Fun函数 2次，每次的函数值都是参数的平方减去 11的值，故此输出一 10， -7。 【知识模块】 过程 26 【正确答案】 C 【试题解析】 函数过程有一个返回值，一般出现在表达式中组成表达式的一部分。本题的题目要求累加各个数的阶乘，而函数 s的作用是求参数的阶乘，因此应该在每次循环中累加 f函数的值，参数为循环变量 i。 【知识模块】 过程
36、 27 【正确答案】 A 【试题解析】 本题是一个简单的函数调用，在函数中会判断参数 x的值，根据 x的值不同执行 If语句的不同分支。由于实际参数为 100不满足 x10，因此函数返回值为 10。 【知识模块】 过程 28 【正 确答案】 B 【试题解析】 本题中函数 fun的作用是当第一个形参比第二个形参大或着相等的时候让它减去第二个形参，直到比第二个形参小为止；在按钮的单击事件中循环调用 9次函数，每次都用数组的前一个元素和后个元素作为函数的实参，所以应输出的是 12-3-33-3、 3、 8 5、 5、 10 3、 3、 5、 9-2、 2。 【知识模块】 过程 29 【正确答案】 B
37、 【试题解析】 在函数中进行字符串的正向遍历，每次取出字符串中的一个字符，判断该字符如果不是空格就将其连接到 St上，否则令 n+1。循环结束后 将会删 ,除字符串 ch中的空格符，返并使用函数值返回删除字符的个数。 【知识模块】 过程 30 【正确答案】 D 【试题解析】 调用 Function过程要返回一个值，因此可以像内部函数一样在表达式中使用。如果在 Fanction过程中省略 “过程名 =表达式 ”，则该过程返回一个默认值 (数值函数过程返回 0值；字符串函数过程返回空字符串 )。因此，通常要在过程体中给 “过程名 ”赋值。本题中函数 P的返回值为 Boolean类型，功能是判断参数
38、 x是否能被 7整除，如果不能整除返回 True，否则返回 False。 Commandl一Click事件过程中使用了单行的 If语句，不需要 Else分支和 Endlf语句。程序功能是统计 1-500范围内不能被 7整除的整数个数。 【知识模块】 过程 31 【正确答案】 B 【试题解析】 本题中函数 fun除了有返回值外，还通过地址传递的形参 str带回修改以后的字符串。在函数中会依次遍历整个字符串，每一次取得一个字符，判断该字符和给定的参数 “a”是否相等，如果不等则将其原样连接，否则将此字符转换成大写字符以后连接，而且令计数器加 1。所以整个函数的功能就是将形参 str中所有等于形 参 ch的字符转换成大写，并且统计这类字符的个数作为函数返回值。 【知识模块】 过程 32 【正确答案】 D 【试题解析】 本题考查的考点是有关分隔符的。在过程的参数中需要用分隔符隔开；在 Print方法中使用逗号可以隔开多个输出项；在一条 Dim语句中定义多个变量时，这些变量也要用逗号隔开；在一行中写多个语句时，多个语句之间需要用冒号隔开。 【知识模块】 过程
