文件名称:
VB 随机数生成使用模拟流星雨.rar
开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2019-07-10
详细说明： 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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
