vb 程序设计教程(机械工业出版社)习题答案 实验4.docVIP

实验4 习题1 程序 Private Sub Form_Click() Dim a%, b%, c% a = Val(InputBox(输入第一边长, 输入数据)) b = Val(InputBox(输入第二边长, 输入数据)) c = Val(InputBox(输入第三边长, 输入数据)) If a + b c And a + c b And b + c a Then If c * c = a * a + b * b Or a * a = b * b + c * c Or b * b = a * a + c * c Then MsgBox 直角三角形 ElseIf a = b And b = c Then MsgBox 等边三角形 ElseIf a = b Or b = c Or a = c Then MsgBox 等腰三角形 Else MsgBox 一般三角形 End If Else MsgBox 不是三角形 End If End Sub 截图 （1）直角三角形 （2）等边三角形 （3）等腰三角形 （4）一般三角形 （5）不是三角形 习题2 程序 Private Sub Form_Click() Dim a!, b!, c!, d!, e! a = Val(InputBox(输入一个整数, 输入数据)) b = a Mod 2 c = a Mod 3 d = a Mod 5 e = a * a If b = 0 And c = 0 And d = 0 Then Print a 它的平方是 e Else Print 不能同时被2,3和5整除 End If End Sub 截图 习题3 程序 Private Sub Command1_Click() Dim a!, b!, c!, d! a = Val(Text1.Text) b = 0.2 * a If a 20 Then MsgBox 行李费(元)= a * 0.2 ElseIf a 50 Then MsgBox 行李费(元)= a * 0.3 ElseIf a 100 Then MsgBox 行李费(元)= a * 0.4 Else MsgBox 行李费(元)= (a - 100) * 0.5 + 20 End If End Sub Private Sub Command2_Click() End End Sub 截图