Question

关于VB画点的问题

程序:
Private Sub Form_Click()
Dim x1, y1, i As Integer
Scale (-320, 320)-(320, -320)
Cls
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(15 * Rnd)
Next
End Sub
我想问一下为什么加了注释的哪两句就可以全屏画点,不加哪两句就只能在右上方画点

Answer 1

rnd是随机数但大于零。所以没下面两句就只能在右上方画点。

Answer 2

那2句是限制画点范围的语句 不加是默认