7.1If语句 例7.7:编写一个程序,让用户输入三个数判并断该三个 数能否组成一个直角三角形。 编写代码: Private sub command1 click o a +b>c And a+c>b and btc>a If a+b>c And a +c>b and b+ c> a then If a2=b 2+c2 Or b 2=a 2+c 2 Or c 2=a2+b 2 Then Label4. Caption="可以构造一个直角三角形 Else Label4. Caption="可以构造一个非直角三角形 End if Else Labe14. Caption="不可以构造一个三角形 End if例7.7:编写一个程序，让用户输入三个数判并断该三个 数能否组成一个直角三角形。 ▪ 编写代码： Private Sub Command1_Click() Dim a, b, c As Single a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) End Sub T T 三角形？ F T 直角三角形？ F 输出判断结果 输出判断结果 输出判断结果 a + b > c And a + c > b And b + c > a a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Label4. Caption= " " Label4. Caption= " " Label4. Caption= " " If a + b > c And a + c > b And b + c > a Then If a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then Label4. Caption= "可以构造一个直角三角形 " Else Label4. Caption= "可以构造一个非直角三角形" End If Else Label4. Caption= "不可以构造一个三角形 " End If 7.1 If语句