運作效果:

程式代碼:
Private Const general = 5
Private Sub Command1_Click()
Dim myarray(general - 1) As Integer
For i = 0 To general - 1
myarray(i) = Int(Rnd * 90) + 5
Print myarray(i)
Next i
End Sub
運作效果:
程式代碼:
Private Const general = 5
Private Sub Command1_Click()
Dim myarray(general - 1) As Integer
For i = 0 To general - 1
myarray(i) = Int(Rnd * 90) + 5
Print myarray(i)
Next i
End Sub