vb期末考试复习资料（经典总结版）

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