3第三讲习答案.docVIP

第三讲习题答案 从键盘输入三个数，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计算三角形的面积，否则给出相应信息。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim s As Single Dim area As Single a = InputBox(请输入第一条边的长度:) b = InputBox(请输入第二条边的长度:) c = InputBox(请输入第三条边的长度:) If (a + b c) And (a + c b) And (b + c a) Then s = (a + b + c) / 2 area = Sqr((s - a) * (s - b) * (s - c)) MsgBox 能构成三角形 Chr(13) Chr(10) 三角形面积是: area Else MsgBox 不能构成三角形 End If End Sub 编写程序，任意输入一个整数，判定该整数奇偶性。 Private Sub Command1_Click() Dim n A