大佬求解
这个程序哪里有问题
为什么运行后显示 子程序或函数未定义
Private Sub Command1_Click()
h = Form1.Height
w = Form1.Width
Scale (0, h)-(w, 0)
xl = Text1.Text
y1 = Text2.Text
x2 = Text3.Text
y2 = Text4.Text
Cls
PSet (x1, y1)
Print " A "
Form1.Line (x1, y1)-(x2, y2)
Print " B "
d = DistOf2Point(x1, y1, x2, y2)
a = AngleOf2Point(x1, y1, x2, y2)
a = a * 180 / 3.1415926
a = Int(a * 100 + 0.5) / 100
PSet (0, 500)
Print " dist ="; d
Print " angle ="; a
End Sub
Function DistOf2Point(x1, y1, x2, y2)
D1 = (x2 - x1) * (x2 - x1)
D2 = (y2 - y1) * (y2 - y1)
DistOf2Point = Sqr(D1 + D2)
End Function
Function AngleOf2Point(x1, y1, x2, y2)
dist = DistOf2Point(x1, y1, x2, y2)
If Abs(dist) < 0.001 Then
AngleOf2Point = 0
r = MsgBox("两点重合", vbExclamation)
Exit Function
End If
If Abs(x2 - x1) < 0.001 Then
If y2 > y1 Then alpha = 3.1416 / 2 Else alpha = -3.1416 / 2
EIse
alpha = Atn((y2 - y1) / (x2 - x1))
If x2 < x1 Then
alpha = 3.1416 + alpha
End If
If alpha < 0 Then alpha = 2 * 3.1416 + alpha
AngleOf2Point = alpha
End Function

else的L你搞成了i
当然，这个改了之后，还有别的问题
就是少一个endif