刚学vb,一个基础的问题，不要见笑。

Question

跟着教程学vb,对下面的代码也测试了，可以，。但是不明白两个问题
1 Scale (-320, 320)-(320, -320)，这个坐标是什么意思，为什么有-320？
2 新年快乐的位置为什么不在顶部，而在中间？是怎么确定的这几个字的位置？Private Sub Form_Click()
Dim x1 As Integer, y1 As Integer, i As Integer
FontSize = 24
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

Answer 1

还有一个问题是什么情况下if---then---end if这个语句可以不用end if?

Answer 2

1  Scale 语句是为窗体显示区设置坐标。也就是不使用窗体原有的坐标系。有负号的意思是将窗体的中心点定位 （0,0）。
2  就是因为窗体中心点是 （0,0），所以打印是从这一点开始的。你注释掉 Scale (-320, 320)-(320, -320) 再运行一下就知道了。
3 If Then 在同一行上时不用 End If。

Answer 3

   如果if---then后面的语句和then 放在同一行那么就不用end if
   Scale (-320, 320)-(320, -320)这条语句从新定义坐标系的意思，原来没定义之前，窗体左上角是（0，0），坐标轴 默认的是向右和向下为正方向，现在用Scale (-320, 320)-(320, -320)语句定义了左上角坐标是(-320, 320），右下角坐标是(320, -320)，这样也就间接重新定义了坐标原点
  再就是你重新定义了坐标系以后，坐标原点在窗体中间了，那么输出的时候是在原点输出的，这样就导致 “新年快乐”在中间了