国家二级VB机试（控制结构）模拟试卷14
选择题
1.编写如下程序：
Private Sub Commandl_Click()
Dim a(10)As String
s=\\(A)
A. 654321
B. 123456
C. 654123
D. 123654
解析：本题中有三个For循环，但是这三个循环之间没有嵌套关系，而是顺序的关系。在第一个循环中依次取出字符串s中的每一个字符存入数组a；第二个循环中将数组的第一个元素和最后一个元素互换，第二个元素和倒数第二个元素互换……以此类推完成数组的逆序；第三个循环输出数组元素。
2.窗体上有1个名称为Commandl的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序：
Private Sub Commandl_Click()
Dim x As String，s As String，temp As String
Dim iAs Integer
x=InputBox(\\(A)
A. year new Happy
B. Happy new year
C. raey wen yppaH
D. yopaH wen raey
解析：本题的循环中倒序从字符串s中依次取出每一个字符，只要该字符不是空格就将其连接到temp的前面，见到空格就把连接好的temp加入到列表框中，即先加入year，然后是new，最后是Happy。
3.设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As String，ch As String S=\\(B)
A. Basic
B. cisaB
C. BASIC
D. CISAB
解析：本题考查的考点是有关循环和取子串函数的。本题比较简单，循环次数就是字符串的长度，每次都在第k位取一个字母，最后倒序连接起来。注意每次都把ch连接到s的前面。
4.某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Commandl_Click()
Dim a(10)As Integer,max As Integer
For k=1 To 10
a(k)=InputBox(\\(D)
A. 把Ifa(k)＞max Then改为Ifa(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=0改为max=a(10)
解析：本题考查的考点是有关循环和数组的。本题为了实现求取最大值，首先应该假设数组中的某一个数就是最大值，再依次与数组元素比较，一旦某个元素比当前的最大值大，就把它作为新的最大值。max初值设为0是不可以的，它没有考虑到数组元素都小于0的情况。
5.在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim iAs Integer,nAs Integer
For i=0 To 50
i=i+3：n=n+1
If i＞10 Then Exit For
Next
Text1．TeXt=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是(B)
A. 2
B. 3
C. 4
D. 5
解析：本题考查的考点是有关循环的。实际上本题就要关注循环何时结束，第一次循环中，i的值变成3，n的值变为1，然后i+1变成4；由于满足循环条件，所以第二次循环中，i的值变成7，n的值变为2，然后i+1变成8；由于还是满足循环条件，所以第三次循环中，i的值变成11，n的值变为3，然后判断由于i已经大于10，所以退出循环，最后n的值为3。
6.在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Commandl_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
解析：本题考查的考点是有关循环的。本题也很简单，首先取得数组的最后一个元素加到累加变量中，然后取倒数第二个元素，乘10后加到累加变量中，然后取倒数第三个元素，乘100后加到累加变量中，以此类推，最后结果为1234。
7.在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Commandl Click()
Dim iAs Integer,nAs Integer
For i=0 To 50
i=i+3：n=n+1
Ifi＞10 Then Exit For
Next
Text1．Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是(B)
A. 2
B. 3
C. 4
D. 5
解析：语句Exit For的作用是退出当前For循环。本题中。For循环语句的循环变量i不仅在执行到Next语句时后自动加1，而且在每次执行循环体中的i=i+3语句时，还会加3。当第1次进入循环体时i=0、n=0；当第2次进入循环体时i=4、n=1；当第3次进入循环体时i=8、n=2，此时当执行i=i+3和n=n+1语句后，i=11、n=3，If语句的条件表达式i＞10为真，将退出循环，故文本框中显示的值为3。
8.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Commandl_Ciek()
d=0：c=10：x=Array(10，12，21，32，24)
For i=1 To 5
Ifx(i)＞c Then
d=d+x(i)：c=x(i)
Else
d=d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)
A. 89
B. 99
C. 23
D. 77
解析：本题的循环中依次用数组的每个元素和c进行比较，如果比c大就将数组元素累加，并令数组元素成为新的c值；否则令累加和d减去c。在5次循环中d的累加过程为－10+12+21+32－32=23。
9.在窗体上画1个名称为Commandl的命令按钮，并编写如下事件过程：
Pri
本文档预览：3600字符，共11272字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
