运行效果：
程序代码：
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
