程序代码：
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
VB编程：巧用常量定义数组-37_彭世瑜_新浪博客
阅读 120
2022-04-06
程序代码：
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
相关推荐
精彩评论（0）
