试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙教版高一信息技术 专题五：VB程序设计
i=1:j=10:temp=a(5)
Do While a(j)>temp
j=j-1
Loop
Do While a(i)<temp
i=i+1
temp=a(i)：a(i)=a(j)：a(j)=temp
数组元素a⑴到a(10)的值依次为“36 91 36 17 93 99 2 9 97 97”，执行该程序段后，a(5)的值为（ ）
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max = ①
For i = 2 To n
if ②
Next i
Text1.Text = "成绩最高分是：" + Str(max)
Dim a(1 To 5) As Integer Randomize
s = 0
Do While s<5
t = Int(Rnd * 5 + 1) a(t) = a(t) + 1
If a(t) = 1 Then s = s + a(t)
已知数组a(1)到 a(5)的初值均为0，该段程序运行后，下列说法正确的是（ ）
试题篮
