Private Sub Form_Click（） S=0 n=5 For i=1 to n S＝S+n Next i Print s End Sub
运行后输出的结果是＿。
A）15 B）20 C）25 D）30 11．下列程序 option Explicit
Private Sub Command1_Click（） Dim a！，b！，c！，mmm！
a=InputBox（”请输入第 l个数：”） b＝inputbox（”请输入第2个数：”） c=Inputbox（”请输入第 3个数：”） mmm＝a
if b>mmm then mmm=b if c>mmm then mmm=c Print mmm End Sub
运行时，输入数据是：100，200，－300，输出的结果是＿D 。 A）-300 B） 0 C）100 D）200 12．下列程序
Private Sub form_Click（） S=0 n＝ 100 For i＝1 to n S＝S+i
If i Mod 5＝0 then print “*” Next i Print s End Sub
16
运行后输出的星号个数是 B 。
A） 15 B） 20 C）25 D）30 13下列程序
Private Sub Form_Click（） For i=1 to 10 For j=1 to i S=S＋1 Next j Next i Print s End Sub
运行时，循环体执行的次数是 C 。 A） 45 B） 50 C）55 D）100 14．下列程序
Private sub Form_click（） For i＝ 1 to 10 For j＝ 1 to i Print”＊”； Next j Print Next i End Sub
运行时，输出星号的行数是＿A 。 A） 10 B） 20 C） 50 D） 100 。15．下列程序
Private Sub Form_click（） a=3
If a<= 3 Then Print 3； End if
If a<=4 Then Print 4； End if
17
If a<=5 then Print 5； End If If a<=6 then Print 6 ； End if Print End Sub
运行时，输出的结果是＿D 。 A） 3 B） 3 4 C） 3 4 5 D） 3 4 5 6 16．下列程序
Private Sub Form_click（） For i=1 to 4 m=0 For j＝ 1 To 5 m=1 For k＝1 to 6 m=m＋5 Next k Next j Next i Print m End Sub
运行后输出的结果是 C 。 A） 11 B） 21 C） 31 D） 41 17下列程序
Private Sub form_click（） For i=1 to 4 m=0
For j＝1 to 3 If j=2 then m=m-59 For k＝1 to 6 m=m+5 Next k
18
Next j Next i print m End Sub
运行后输出的结果是 C 。 A） 11 B） 21
C）31 D） 41 18．有如下程序 private sub form_ click()
x=val(inputbox(“请输入一个数”)) c=abs(x) while x<>-1
if abs(x)>c then c=abs(x) x=val(inputbox(“请输入一个数”)) wend print c End Sub。
运行时输入 5，9，8，2,-999,-1,输出的结果是 C A） 9 B) -999 C）999 D) -1 二、填空题
1．下列程序的输出结果是 11 private sub form_click( ) k=1: m＝ 5 For i=1 to m k＝k+i^2 Next i Print k＼ rn End Sub
2下列程序的运行结果是 ABCDE private sub form_click( ) m=5 for i=1 to m
print chr(asc(“A”)+i-1); Next i End Sub
19
3．以下程序运行后的输出结果是 万里晴空 。 Private Sub Form_click（） a$＝”晴空万里” For i=1to 4 Step 2
Print Mid＄（a$,4-i, 2）； Next i End Sub
4以下程序运行后的输出结果是 3 1 。 Option Explicit
Private sub form_click（）
Dim h As Integer，f As Integer, t As Integer, j As Integer h＝4：f=10
if f mod 2=0 and 2*h<=f and f<=4*h then j=2*h-f/2 3 t=f／2－h 1 Print j,t End if End Sub
5若A的平方+B的平方=C的平方，则A,B，C称为一组勾股数。下面程序的功能是找出100以内的所有勾股数，并按A,B，C顺序输出。请在画线处填入适当内容。
Private Sub Command_click（） For a＝ 2 to 99 For b= a+1 to 100
C= Sqr(a*a+b*b)
If Int( c )=c and C＜＝100 then Print a， B， C End if Next B Next a End Sub
6。下列是一个统计某班学生的血型情况的程序。程序的输出是O型血的20岁男学生的姓名及各种血型的人数（输入数据包括每人的姓名、年龄、性别和血型）。
Private Sub Command_ Click（） Dim A As Integer Do
N$=InputBox（”姓名：”）
20