高校问答中国恒天新能源汽车:VB题中生成随机数的问题
来源：百度文库 编辑：高校问答 时间：2024/04/29 14:03:20
我想利用for循环联合赋值语句生成20个0到100之间的随机数,存于a(1)--a(20),于是,我的代码如下:
Dim a(1 To 20) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 100 + 1)
Text1 = Text1.Text & i & " "
Next
End Sub
问题是,当我点按钮时,text1中却显示
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
哪位高手帮一下了.我的作业啊.
Dim a(1 To 20) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 100 + 1)
Text1 = Text1.Text & i & " "
Next
End Sub
问题是,当我点按钮时,text1中却显示
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
哪位高手帮一下了.我的作业啊.
Text1 = Text1.Text & i & " " 这句是要显示i的数据 而不是数组中的数据把i换成 a(i)看看