求救VB的问题

来源：百度知道编辑：UC知道时间：2024/05/23 02:22:08

修改上次根据边长判断是否能构成三角形的程序，若能构成，则进一步判断三角形类型(等边、等腰、直角)。
Private Sub Command1_Click()

If Command1.Caption = "输入" Then
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
Text1.Text = a
Text2.Text = b
Text3.Text = c
If a + b > c And a + c > b And b + c > a Then
MsgBox "能构成"
Command1.Caption = "判断什么类型三角形"
Else
MsgBox "不能构成"
End If
Else
If (Text1.Text) = Val(Text2.Text) And Val(Text2.Text) = Val(Text3.Text) Then
MsgBox "等边三角形"
Command1.Caption = "输入"
ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then
MsgBox "直角三角形"
Command1.Caption = "输入"
ElseIf a = b Or b = c Or c = a Then
MsgBox "等腰三角形"
Command1.Ca

Private Sub Command1_Click()

If Command1.Caption = "输入" Then
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
Text1.Text = a
Text2.Text = b
Text3.Text = c
If a + b > c And a + c > b And b + c > a Then
MsgBox "能构成"
Command1.Caption = "判断什么类型三角形"
Else
MsgBox "不能构成" :exit sub '在判断不能构成后就要退出了，不然还是继续下去的
End If

Command1.Caption = "输入"
If (Text1.Text) = Val(Text2.Text) And Val(Text2.Text) = Val(Text3.Text) Then
MsgBox "等边三角形"

ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then
MsgBox "直角三角形"

ElseIf a = b Or b = c Or c = a Then
MsgBox "等腰三角形"

Else
MsgBox ""

End If

End Sub

Private Sub Form_Load()
Command1.Caption = &q

求救vb的问题求救VB的问题关于VB的问题~!求救一个简单的vb问题菜鸟求救 VB高手还有吗？ VB小程序的问题求救 VB问题求救！！！！求救！！ VB ! 通信问题！！！求救呀~！~！~！~VB的 VB程序简单问题求救求救啊！VB与Access连接问题！