文件名称：VB 随机数生成使用模拟流星雨.rar
文件大小：3KB
文件格式：RAR
更新时间：2022-07-30 05:53:35
VB源码-算法相关
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
【文件预览】：
srcfans.com
----VB演示随机数的产生和使用模拟一场流星雨()
--------MSSCCPRJ.SCC(194B)
--------starfield.frm(3KB)
--------starfield.vbp(714B)
--------starfield.vbw(52B)