随机生成图形
来源:互联网 发布:淘宝买家恶意大量退货 编辑:程序博客网 时间:2024/06/05 17:31
代码编写:
Private Sub Command1_Click()
Timer1.Enabled = TrueEnd Sub
Private Sub 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
心得体会:
第一次自己制作出这么有意思的小游戏,觉得很有兴趣呢!
- 四,随机生成图形
- 随机生成图形
- 生成随机图形
- 生成随机图形
- 生成随机图形
- 生成随机图形
- 随机生成图形
- 随机生成图形
- 实验四:随机生成图形
- 实验四:随机生成图形
- 随机生成不同的图形
- 随机生成不同的图形
- 随机生成不同的图形
- asp.net 生成随机图形验证码
- VB作业之随机生成图形
- opencv2-1随机图形与文字生成
- python 生成随机图形验证码
- 随机图形
- 3、SystemV 消息队列
- gdb 64 solaris 10 sparc
- xmlHttp用法
- 离开机房后的深思
- 10个HTML5动画,让你忘掉Flash是啥
- 随机生成图形
- 使用User-Agent获取操作系统名称
- linux gdb命令
- 基于Android opengles的魔方开发总结(一)
- 我的职业规划
- android status bar 之 status bar notifications
- 最长非上升子序列
- 黑马程序员_java基础加强之(反射)
- 3种方法求解斐波那契数列