天天看點

VB程式設計:巧用常量定義數組-37_彭世瑜_新浪部落格

運作效果:

VB程式設計:巧用常量定義數組-37_彭世瑜_新浪部落格

程式代碼:

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

繼續閱讀