Private Sub Command1_Click()
a = Val(InputBox("a=", "请输入三角形的第一条边"))
b = Val(InputBox("a=", "请输入三角形的第二条边"))
c = Val(InputBox("a=", "请输入三角形的第三条边"))
If a ^ 2 + b ^ 2 = c ^ 2 Then
   MsgBox ("此三角形是直角三角形")
End If
If a ^ 2 + c ^ 2 = b ^ 2 Then
   MsgBox ("此三角形是直角三角形")
End If
If b ^ 2 + c ^ 2 = a ^ 2 Then
   MsgBox ("此三角形是直角三角形")
End If
End Sub
Private Sub Form_Load()
End Sub