VB高手帮忙！如何用VB编写函数程序，随机抽取30个1到100以内的整数？用到数组,多谢晒！~~

Private Sub Command1_Click()
Dim a(1 To 30) As Integer
Randomize
For i = 1 To 30
a(i) = int(Rnd * 90 + 9)
Print a(i);
Next
End Sub

private sub form_load()
din i%,a(1 to 30) as integer
for i = 1 to 30
a (i) = int( rnd * 100 + 1)
next i
end sub

Private Sub Form_Click()
Dim A(1 to 30) as Integer
Randomize
For i=1 to 30
A(i)=Int(Rnd*100)+1
Print Tab(i*4-3);A(i);
Next
End Sub

为什么上面的回答那么完美呢...