下列程序的功能是:单击窗体时随机生成20个两位数依次赋值给一个由20个元素组成的数组
问题:
下列程序的功能是:单击窗体时随机生成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 20a=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 20Print a(i); Next i Print End Sub