VB一维数组赋值的问题

来源：百度知道 编辑：UC知道 时间：2024/05/02 00:49:44
如何将1-10 十个数随机分配给数组 a（1 to 10)
然后打印a(1)=?,a(2)=?........a(10)=?
请用最简单的语句，我是初学者
只知道ARRAY赋值
谢谢谢谢

Private Sub Form_click()
Dim a(1 To 10) As Single
Randomize
a(1) = Int(Rnd * 10 + 1)
i = 2
Print a(1)
Do
lp: Randomize
a(i) = Int(Rnd * 10 + 1)
For j = 1 To i - 1
If a(i) = a(j) Then
GoTo lp
End If
Next
Print a(i)
i = i + 1
Loop While i <= 10
End Sub

Private Sub Command1_Click()
Dim a(0 To 9) '定义个数组大小为10
For i = 0 To 9
a(i) = Int(Rnd * 10 + 1) '给数组赋随机值
Next i
For j = 0 To 9
Print a(j) '打印数组的元素值
Next j
End Sub
这很简单吧

point.print a(1 to 10)这是是打印把
至于赋值没看明白，偶也是新手，不太会