让程序随机不定时间生成随机种类的图形并生成多个
2012-05-30 17:08
211 查看
PrivateSub Command1_Click()
Timer1.Enabled= True
End Sub
PrivateSub Timer1_Timer()
Randomize
Cls
Dim MaxX As Long
Dim MaxY As Long
MaxX = Form1.ScaleWidth
MaxY = Form1.ScaleHeight
For I = 1 To Int(Rnd * 50 + 1)
x = Int(Rnd * (MaxX - 500))
y = Int(Rnd * (MaxY - 500))
Shape1.Shape = Int(Rnd * 5 + 1)
Next
End Sub
Timer1.Enabled= True
End Sub
PrivateSub Timer1_Timer()
Randomize
Cls
Dim MaxX As Long
Dim MaxY As Long
MaxX = Form1.ScaleWidth
MaxY = Form1.ScaleHeight
For I = 1 To Int(Rnd * 50 + 1)
x = Int(Rnd * (MaxX - 500))
y = Int(Rnd * (MaxY - 500))
Shape1.Shape = Int(Rnd * 5 + 1)
Next
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 让程序随机不定时间生成随机种类的图形并生成多个
- 编写多线程程序，模拟多个人通过一个山洞。这个山洞每次只能通过一个人，每个人通过山洞的时间为2秒(sleep)。随机生成10个人，都要通过此山洞，用随机值对应的字符串表示人名，打印输出每次
- 编写多线程程序，模拟多个人通过一个山洞。这个山洞每次只能通过一个人，每个人通过山洞的时间为2秒(sleep)。随机生成10个人，都要通过此山洞，用随机值对应的字符串表示人名，打印输出每次通过山洞的人名
- 编写多线程程序，模拟多个人通过一个山洞。这个山洞每次只能通过一个人，每个人通过山洞的时间为2秒(sleep)。随机生成10个人，都要通过此山洞，用随机值对应的字符串表示人名，打印输出每次通过山洞的人名
- 编写多线程程序，模拟多个人通过一个山洞。这个山洞每次只能通过一个人，每个人通过山洞的时间为2秒(sleep)。随机生成10个人，都要通过此山洞，用随机值对应的字符串表示人名，打印输出
- VB----随机生成一个不同种类的图形
- 第三个程序：生成两个个ffH以内的随机数，并选择随机的运算符计算[但是好像非随机吧，cpu太快了]
- ASP.NET生成两个日期范围内随机时间的实现方法
- Java生成指定时间段的一个随机时间
- SQL 生成随机时间
- 一道遇到的面试题： 怎么判断一个随机数生成程序是真随机
- Oracle生成随机日期时间
- php不用GD库生成当前时间的PNG格式图象的程序第1/2页
- python 生成随机图形验证码
- python生成随机图形验证码
- 生成随机测试数据的文件的程序
- PLSQL 执行存储过程 17位随机时间，随机码生成
- Java 生成随机日期，时间
- JAVA生成随机码程序
- 用java写一个简单的随机生成井字棋棋子的程序