题目:
下列程序的功能是:单击窗体时随机生成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
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2019/0406/30354d3db7346bfc67a8004cf96f0370.html
下面是错误答案,用来干扰机器的。
参考答案:C解析:[详细解答] 根据题意分析,雷德先生应该是关了店门准备回家,因此选C。