UC知道高手来解释一下以下代码啊
来源：百度知道 编辑：UC知道 时间：2024/06/05 19:43:47
Private Sub Form_Load()
Timer1.Interval = 500
Scale (-320, 320)-(320, -320)
Me.FontSize = 40
End Sub
Private Sub Timer1_Timer()
Dim x, y, j As Integer
Cls
For i = 1 To 80
DrawWidth = 6
x = 320 * Rnd
y = 320 * Rnd
If Rnd < 0.5 Then x = -x
If Rnd < 0.5 Then y = -y
PSet (x, y), QBColor(Rnd * 15)
Next i
Me.ForeColor = QBColor(Rnd * 15)
Print "谢谢啊"
End Sub
哪位高手能解释以下每行每个代码的意思啊 ？？
急需。。。。十分感谢啊
Timer1.Interval = 500
Scale (-320, 320)-(320, -320)
Me.FontSize = 40
End Sub
Private Sub Timer1_Timer()
Dim x, y, j As Integer
Cls
For i = 1 To 80
DrawWidth = 6
x = 320 * Rnd
y = 320 * Rnd
If Rnd < 0.5 Then x = -x
If Rnd < 0.5 Then y = -y
PSet (x, y), QBColor(Rnd * 15)
Next i
Me.ForeColor = QBColor(Rnd * 15)
Print "谢谢啊"
End Sub
哪位高手能解释以下每行每个代码的意思啊 ？？
急需。。。。十分感谢啊
Private Sub Form_Load() //声明form_load过程
Timer1.Interval = 500 式 //时钟控件跳动间隔为500毫秒
Scale (-320, 320)-(320, -320) //设置某坐标位置
Me.FontSize = 40 //设置对象me的字体大小为40
End Sub //过程结束
Private Sub Timer1_Timer() //声明Timer1_Timer过程
Dim x, y, j As Integer //定义变量xyj为integer类型
Cls //清除当前显示的内容
For i = 1 To 80 //循环从1开始到80结束
DrawWidth = 6 //图形宽度等6
x = 320 * Rnd //为坐标X赋值
y = 320 * Rnd //为坐标y赋值
If Rnd < 0.5 Then x = -x //如果变量rnd小于0.5那么x为负
If Rnd < 0.5 Then y = -y //如果变量rnd小于0.5那么y为负
PSet (x, y), QBColor(Rnd * 15) //用坐标X和Y绘制曲线,并设置颜色
Next i //继续下一次循环
Me.ForeColor = QBColor(Rnd * 15) //设置对象me前景色为QBColor()函数返回的值
Print "谢谢啊" //输出""谢谢啊""
End Sub //结束本过程
妈呀，你用什么写的也不说，叫人如何回答你