Question

VB程序生成数组用随机数1~1000给这个数组赋值然后形成数组,该数组中有20个元素,在文本框中循环显示

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

Dim a(1 To 20) As Integer, x As Integer
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 20
a(i) = Int(Rnd * 1000) + 1
Next
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
x = x + 1
If x > 20 Then x = 1
Text1.Text = a(x)
End Sub

追问

执行不了，又不加时间的么

追答

学点基础知识还是有必要的。