Option Explicit
Private Sub Command1_Click()
End
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
position
Dim XPos,YPos,i定义点的水平和垂直坐标及循环变量i
DrawWidth = 100 设置点的宽度为100
For i = 1 To 10000 循环变量从i从1到10000
XPos = Rnd * ScaleWidth 水平坐标为窗体内部宽度的随机位置
YPos = Rnd * ScaleHeight 垂直坐标为窗体内部宽度的随机位置
PSet (XPos,YPos),QBColor(Rnd * 15) 在窗体上绘制点,颜色是随机的
Next i 下一个循环变量
End Sub
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
