vb画三角形

Private Sub Command3_Click()
Dim a, b, c, temp As Integer
Dim x, y As Double
a = Val(InputBox("1边"))
temp = a
b = Val(InputBox("2边"))
If b > a Then
a = b
b = temp
End If
c = Val(InputBox("3边"))
If c > a Then
temp = a
a = c
c = temp
End If
If c + b <= a Then '判断是不是三角形
Print "不是三角形"
Exit Sub
End If
Print a, b, c
Line1.X2 = 1800 + a * 100
Line3.X1 = 1800 + a * 100

x = (a ^ 2 - c ^ 2 + b ^ 2) / (2 * a)
y = Sqr(b ^ 2 - x ^ 2)
Line2.X2 = 1800 + x * 100
Line2.Y2 = 2880 - y * 100

Line3.X2 = 1800 + x * 100
Line3.Y2 = 2880 - y * 100
End Sub