D、cdef ○
16、执行以下语句后，输出的结果是： a=\
mid(a,3,4)=\print a
A、abcdxxe B、abxxe ○
C、axxde D、axxbcde
17、表达式Int(-17.8)的值是：
A、-16 B、-18 ○
C、18 D、-17
18、执行以下语句后，输出的结果是： a=\a=UCase(a) print a
A、Visual Basic B、visual basic C、Visual BASIC D、VISUAL BASIC ○
19、表达式3^2*2+3 MOD 10_的值是:
A、1 B、19 C、0 D、18
20、设S=\中华人民共和国\，
表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为:中国人民
6
2013-4-8第六组
三
1、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim j, s, x As Integer For j = 1 To 10
x = Val(InputBox(\
If x / 3 = Int(x / 3) Or x / 5 = Int(x / 5) Then s = s + x Next j Print s End Sub 程序运行后，单击命令按钮，输入1,3,5,7,9,11,13,15,17,19后，输出的结果是 ____ 。 A、20 B、27 C、32 D、37 ○
2、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim a, b, m, j As Integer a = 0
For m = 1 To 10
a = a + 1: b = 0 For j = 1 To 10
a = a + 1: b = b + 2 Next j Next m Print a; b End Sub
程序运行后，单击命令按钮，输出的结果是 ____ 。
A、20 110 B、10 20 C、110 20 ○
D、200 110
3、在窗体上画一个命令按钮，然后在代码窗口中输入如下内容：
Sub inc(a As Integer) Static x As Integer x = x + a Print x; End Sub
Private Sub Command1_Click() inc 2 inc 3 inc 4
7
2013-4-8第六组
End Sub
程序运行后，单击命令按钮，则输出的结果是 ____ 。
A、3 6 10 B、11 14 18 C、4 7 11 D、2 5 9 ○
4、在窗体上画一个命令按钮，然后在代码窗口中输入如下内容：
Sub m5(x As Integer, y As Integer, z As Integer) If x < y Then If y < 0 Then z = 0
Else
z = z + 1 End If End If Print z End Sub
Private Sub Command1_Click() m5 2, -1, 2 End Sub
程序运行后，单击命令按钮，则输出的结果是 ____ 。
A、0 B、3 C、1 D、2 ○
5、写出程序执行后的输出结果____。
s1=0:s2=0
FOR i=1 TO 4 FOR j=1 TO i s1=s1+i s2=s2+j NEXT j
FOR k=4 TO i+1 STEP -1 s1=s1+k s2=s2+i NEXT k NEXT i
PRINT \
END
A、s1=51 s2=31 B、s1=51 s2=30 C、s1=50 s2=30 ○
D、s1=50 s2=31
6、在窗体上画一个列表框和一个文本框，然后编写如下事件过程：
8
2013-4-8第六组
Private Sub Form_Load() List1.AddItem \ List1.AddItem \
List1.AddItem \
List1.AddItem \ List1.AddItem \End Sub
Private Sub List1_DblClick() Text1.Text = List1.Text End Sub
程序运行后，双击列表框中\项时，文本框中的内容是 ____ 。
A、Bbb B、Ccc C、2 D、3
7、写出下面程序的运行结果____。 10 READ k
IF k<0 THEN 20 READ m
IF m<0 THEN 20
FOR i=1 TO k STEP m a=a+k NEXT i GOTO 10
20 PRINT \
DATA 5,4,2,1,3,3,-1 END
A、a=17 B、a=19 C、a=18 D、a=16
8、在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() Dim x(3, 3) As Integer Dim j, k As Integer For j = 1 To 3 For k = 1 To 3
x(j, k) = (j - 1) * 3 + k Next k Next j
For j = 2 To 3 For k = 1 To 2
Print x(k, j); Next k
9
2013-4-8第六组
Next j
A、4 7 5 8 B、2 5 3 6 C、4 5 7 8 D、2 3 5 6 ○
9、在窗体上画一个水平滚动条和一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim i, s As Integer
For i = 1 To HScroll1.Value s = s + i Next i Print s End Sub
Private Sub Form_Load() HScroll1.Max = 10 End Sub
程序运行后，把水平滚动条从左端拖到最右端，然后单击命令按钮，则输出的结果是 ____ 。 A、66 B、55 ○
C、11 D、10
10
2013-4-8第六组