求原因~~各们伸下援手!

Question

本帖最后由 bcrun 于 2010-11-15 10:46:13 编辑

Answer 1

Public s2a
Public x
Public y 
Public Xa
Public Ya
Public Xb
Public Yb
Public Xc
Public Yc
Public Xd
Public Yd 
你在试试

Answer 2

本帖最后由 bcrun 于 2010-11-16 12:58:53 编辑

  

Answer 3

Public s2a, xMouse as integer, yMouse As Integer
Public Xa, Ya, Xb, Yb, Xc, Yc, Xd, Yd As Integer '你这样定义的话xa...xd都是variant类型的，vb这点和c++不同
Private Sub Command1_Click()s2a = Sqr((xMouse - Xa) ^ 2 + (yMouse - Ya) ^ 2)
S2b = Sqr((xMouse  - Xb) ^ 2 + (yMouse  - Yb) ^ 2)
S2c = Sqr((xMouse  - Xc) ^ 2 + (yMouse   - Yc) ^ 2)
S2d = Sqr((xMouse  - Xd) ^ 2 + (yMouse   - Yd) ^ 2)
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.Caption = "鼠标选取的点坐标为" & x & "," & y
xMouse=x
YMouse=y
End Sub
试试看

Answer 4

Public s2a, x, y As Integer
Public Xa, Ya, Xb, Yb, Xc, Yc, Xd, Yd As Integer这是一个特大明显的 变量定义宣告错误Public s2a As Integer, x As Integer, y As Integer
Public Xa As Integer, Ya As Integer, Xb As Integer, Yb As Integer, Xc As Integer, Yc As Integer, Xd As Integer, Yd As Integer或Public s2a%, x%, y%
Public Xa%, Ya%, Xb%, Yb%, Xc%, Yc%, Xd%, Yd%