A＝ InputtBox（ “年龄： ”） S$=inputBox（”性别：”） T$=inputBox（”血型：”） If N$=”END” then exit do If T$=”O” Then oo=oo+1 If T$＝”A” Then AA=AA+ I If T$＝”B” Then BB=BB＋1 If T＄＝”AB”Then AB＝AB＋1
If S$＝”M”And A=20 And T＄=”o”then print N$ loop
Print”o—type--”；oo Print”A—type--”；AA Print”B—type--”； BB Print”AB—type--”； AB End Sub
运行时，输入数据如下：
AAA，23，M，O，BBB,22，F，A,CCC，20，M，AB，DDD，21，F,O，EEE，20，F，B,GGG，20,M，O，END，0,0,0
输出的结果是＿GGG
O—Type--3 A—Type--1 B—Type—1 AB—Type--1 7．5练习题 一、选择题
1． Dim Uvw （ -3 to 3）所定义的数组元素个数是 B 。 A） 6 B） 7
C）8 D）有语法错误 2定义10个单精度实型一维数组正确的语句是 A 。
A）Dim Abc（9） As single B）Option Base 1：Dim Abc（9） C)dim abc#(9) D） Dim Abc（ 10）As Single 3下列程序 Option Base 1 Dim u
Private Sub Form_Click（） For i= 10 To l Step－1
21
Print u（i）； Next i End Sub
Private Sub Form_Load（）
u＝array（1，3，5，7，9，10，8，6，4，2） u(1)=100 End Sub
运行时，若从键盘输入3和4则输出为＿D 。
A） 1 3 5 7 9 10 8 6 4 2 B）1 3 5 7 9 10 8 6 4 100 C） 2 4 6 8 10 9 7 5 3 1 D）2 4 6 8 10 9 7 5 3 100 4．下列程序
Private Sub Form_Click（） Dim a
a＝Array（”天天向上”，”天津大学”，”天上人间”，“程序设计”） For i＝ LBound（a， 1） TO UBound（a， 1） If left(a（i），1)＝” 天”Then print a（i）; Next i End Sub
运行时输出的结果是 B
A）天天向上 B）天天向上天津大学天上人间
C）出错信息 D）天天向上天津大学天上人间程序设计 5．下列程序 option base 1
private sub form_click( ) dim a(10) For i=1 to 10 a（i）= 10－ i＋ 1 Next i
For i＝ 10 to 1 Step－2 Print a（ i）； Next i End Sub
运行时输出的结果是＿A 。
A）1 3 5 7 9 B）9 7 5 3 1
C）1 2 3 4 5 6 7 8 9 10 D）10 9 8 7 6 5 4 3 2 1 6．下列程序
22
Option Base 1
Private Sub Form_Click（）
Dim a（10） As Integer， b（5） As Integer FOr i=1TO 10 a（i）＝ 10-i+ 1 Next i FOr i＝ 1 TO 5
b（i）＝a（2＊i-1）＋a（2＊i） Next i For i＝1 TO 5 Print b（i）； Next i End sub
运行时输出的结果是＿B 。
A） 3 7 11 15 19 B） 19 15 11 C） 1 3 5 7 9 D）不确定的值 7．下列程序 Option Base 1
private Sub Form_cliCk（） Const upl＝ 6
Dim a（upl） As Integer For i=1 to upl a（i）=i＾2 NEXt i print a（i） end sub
运行时输出的结果是 D 。 A）36 B）25 C）1 D）出错信息 8下列程序一 Option Base 1 Const upl＝ 10
Private Sub Form_click（） Dim a（upl） As Integer K=-1 For i=1 to upl
23
7 3
a（i）=i*k k=-1*k Next i For i=1TO 10 Print a（ i）； End Sub
运行时输出的结果是 C 。
A） 1 3 5 7 9 10 B）-1 -3 -5 -7 -9
C） -1 2 -3 4 -5 6 -7 8 -9 10 D）1 -2 3 -4 5 -6 7 -8 9 -10 二、填空题
1．下面程序的功能是分别计算给定的10个数中正数之和与负数之和，最后输出这两个和数的绝对值之商。清在画线处填入适当内容，将程序补充完整。
option Base 1
Private Sub Commandl_click（） Dim A
A= Array（23，－5， 17 ,38, －31， 46, 11， 8, 5，-4） S1=0 S2=0 For k＝ 1 To 10 if（A（k）＞0）then S1＝ S1+A(k) Else
S2= S2+A(k) End if N6ext k
X＝ S1／ AbS（S2） Print x End Sub
2下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来10个数中的位置。请在画线处填入适当内容，将程序补充完整。
Option Base 1
Private sub Form_click（） Dim a
A=Array（23，－5，17，38－31，46，11，8 ,5，－4） Max= l K＝1
24
10 K＝ K＋ 1
If a（ K）＞ a（Max） Then Max=K End if
If K＜ 10 Then GoTo 10 AM＝ a(Max) Print Max， AM End Sub
3下面程序是来一个3×3阶矩阵的三行中元素之和最大的那一行。请在画线处填入适当内容，将程序补充完整。
option Base 1
Private Sub Form_Click（）
Dim a（3， 3） AS integer， b（3） AS integer For i=1 to3 For j＝ 1 To 3
a（i， j）= InputBox（”请输入一个数”） Next j Next i For k=1 to3 For j=1 to3
b（k）= b(k)+a(k,j) Next j Next k
sm= b(1) ns= 1 For i= 2 to 3
If b（i）＞sm Then sm＝b（i） ns＝ i End if Next i
Print “最大的一行是“； ns；”该行的和是：”； sm
End Sub 8练习题 一、选择题 1．下列程序
25