填空题

下列程序的功能是:单击窗体时随机生成20个两位数依次赋值给一个由20个元素组成的数组,然后把数组反序存放,再输出。 Option Base 1 Private Sub Form Click() Dim a(20)As Integer,i As Integer Dim t As Integer,j As Integer Randomize For i=1 To 20 a=10+Int(90*Rnd) Print a(i); Next Print i=1: 【4】 Do While i<j t=a(i): 【5】 a(j)=t i=i+1: j=j-1 Loop For i=1 To 20 Print a(i); Next i Print End Sub

【参考答案】

j=20 a(i)=a(j)