VB演示随机数的用法,演示了随机数的生成,模拟一场流星雨,运行是很是壮观!演示了随机数的产生和使用,从中看看随机数的使用方法。请参见下面的代码片段: VB6代码模拟一场流星雨的例子,从中看看随机数的使用方法: Dim X(100), Y(100), pace(100), size(100) As Integer Private Sub cmdQuit_Click() Unload Me End Sub Private Sub Form_Activate() Randomize For I = 1 To 100 X1 = Int(Form1.Width * R