28.A.Line Input #2, str                                         B.Line Input str，#2

 C.Line Input 2, str                                              D.Line Input str, 2

（三）【程序说明】该程序的功能是随机产生20个两位数，从中找出最大的元素和最小的元素，请完善程序完成上述功能。

【程序】

Option Base 1

Private Sub Command1_Click()

Dim a(20) As Integer, i As Integer

Dim max As Integer, min As Integer

Randomize

For i = 1 To 20

a(i) =   29 

Print a(i);

Next i

Print

max = a(1): min = a(1)

For i = 2 To 20

If a(i) > max Then

  30 

ElseIf   31   Then

min = a(i)

End If

Next i

Print "最大数是："; max

Print "最小数是："; min

End Sub

【供选择的答案】

29.A.Int（(Rnd*90)+10）                                  B.Int（(Rnd*89)+10）

C.Rnd*90+10                                                      D.Int(Rnd*90)

30.A.a(i)=max                                                       B.max= a(i)

C.max=i                                                                D.i=max

31.A.a(i)<min                                                      B.min>a(i)

C.max<a(i)                                                           D.max<=a(i)

四、程序阅读题（本大题共11小题，每小题2分，共22分）

（一）【程序】

Private Sub Command1_Click()

Dim w As Integer, n As Integer

Static m As Integer

w = 1∶ n = w * 2

m = n + m

n = m + n

Print w; m; n

End Sub

【问题与供选择的答案】

32.运行程序后，第1次单击command1在窗体显示的结果为

A.1 3 5                                                                  B.1 2 4

C.1 2 3                                                                   D.2 2 3

33.当第二次单击命令按钮Command1时，窗体上显示的结果为

A.1 5 7                                                                  B.1 2 4

C.1 4 6