End Sub
(A) 6 (B) 10 (C) 14 (D) 21 3设有以下程序段： Dim i As Integer,j As Integer i=1
Do While i <4
i=i+l
For j=5 To 1 Step-1
Print i*j Next j loop
则其中的语句Print i*j 的执行次数是:
(A)15 (B)16 (C)17 (D)18 4下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form-Click() Dim k As Integer,y As Integer y =3:k=5
For k =l To 5 Step-1
y =y+k Next k Print y;k End Sub
(A)3 1 (B)3 5 (C)8 6 （D）3 6 5下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form_Click()
Dim x As Integer,a As Integer,y As Integer For x=l To 2
a =0 For y=l To x+1
a =a +1 Next y
45
Print a; Next x End Sub
(A)1 1 (B)2 3 (C)0 0 (D)1 2 6下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form_Click()
Dim x As Integer,y As Integer,i As Integer x=2:y=3
For i=x To x+y
x=x+2 Next i Print x End Sub
(A)8 (B)9 (C)10 7执行语句a=IIf(5>10,1,-1)后，变量a的值为：
(A)5 (B)10 (C)1 8下面程序的执行结果为: Private Sub Form-Click()
Dim k As Integer,n As Integer,m As Integer k=1:m=1:n=10 Do While k〈=n
m=m*2 k=k +1 loop print m End Sub
(A)20 (B)1 (C)1024 9设有以下循环 X=1 Do
x=x十3
(D)11 (D)-1 (D)200 46
Loop Until x>10 Print x
该程序段的输出结果为:
(A)1 (B)4 (C)12 (D)13 10下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form_Click() Dim x As Integer,y As Integer x=1
For y=1 To 50
If x>=10 Then Exit For End If
If x Mod 2=l Then x=x+5 Else x==x-3 End If Next y Print x End Sub
(A)4 (B)6 (C)8 (D)10 11下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form-Click()
Dim i As Integer,j As Integer,s As Single For i=6 To 5 Step-1
s =0#
For j=i To 4 Step -1
s =s +i*j Next j Next i Print s
47
End Sub
(A)90 (B)45 (C)135 (D)60 12下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form-Click() Dim k As Integer,c As String*l k=0: C=\Do
Select Case C Case \
k=k+l Case \
k=k-1 Case \
k=k+2 Case \Case \
k=k*2 Case Else
k=k/3 End Select c =Chr(Asc(c)+1) k=k+1 Loop While c<\Print k End Sub
(A)2 (B)5 (C)6 （二）、编程题
13编写程序求:1!+2!+?+10!的值。
14编写程序求:1-1/2+1/3-1/4+?+1/99-1/100的值。 (D)13 48
