|
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 * Rnd) Y1 = Int(Form1.Height * Rnd) pace1 = Int(500 - (Int(Rnd * 499))) size1 = 25 * Rnd X(I) = X1 Y(I) = Y1 pace(I) = pace1 size(I) = size1 Next End Sub Private Sub Timer1_Timer() For I = 1 To 100 Circle (X(I), Y(I)), size(I), BackColor Y(I) = Y(I) pace(I) If Y(I) >= Form1.Height Then Y(I) = 0: X(I) = Int(Form1.Width * Rnd) Circle (X(I), Y(I)), size(I) Next End Sub
|