UC知道谁帮我看看这段vb代码什么意思?
来源：百度知道 编辑：UC知道 时间：2024/06/17 19:45:08
Private Sub Form_Click()
Dim x1, y1, i As Integer
FontSize = 16
Scale (-320, 320)-(320, -320)
Cls
Print "你好，傻瓜"
For i = 1 To 80
DrawWidth = 6
x1 = 320 * Rnd
y1 = 320 * Rnd
If Rnd < 0.5 Then x1 = -x1
If Rnd < 0.5 Then y1 = -y1
PSet (x1, y1), QBColor(Rnd * 15)
Next i
End Sub
在每一句后面写一下注释,谢谢,我很菜......
Dim x1, y1, i As Integer
FontSize = 16
Scale (-320, 320)-(320, -320)
Cls
Print "你好，傻瓜"
For i = 1 To 80
DrawWidth = 6
x1 = 320 * Rnd
y1 = 320 * Rnd
If Rnd < 0.5 Then x1 = -x1
If Rnd < 0.5 Then y1 = -y1
PSet (x1, y1), QBColor(Rnd * 15)
Next i
End Sub
在每一句后面写一下注释,谢谢,我很菜......
Private Sub Form_Click() '当窗体被单击的时候，执行下面的代码
Dim x1, y1, i As Integer
FontSize = 16
Scale (-320, 320)-(320, -320) 重定义窗口坐标范围
Cls 清除窗口信息
Print "你好，傻瓜" 打印输出
For i = 1 To 80 循环80次，打印80个点
DrawWidth = 6 '设置线条宽度是6
x1 = 320 * Rnd 在0-320范围内生成随机数两个x1 y1
y1 = 320 * Rnd
If Rnd < 0.5 Then x1 = -x1 如果随机数小于0.5则，将x1 y1变成负数
If Rnd < 0.5 Then y1 = -y1
PSet (x1, y1), QBColor(Rnd * 15) 在x1,y1处描点，点的颜色也是随机的
Next i
End Sub