新建vb4至8单元部分题答案.docVIP

4.5 Private Sub Form_Click() n = Val(Text1.Text) If n Mod 3 = 0 And n Mod 5 = 0 And n Mod 7 = 0 Then Label1.Caption = 能同时被3、5、7整除 Else Label1.Caption = 不能整除 End If End Sub Private Sub Text1_Change() Label1.Caption = End Sub 46. Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And b + c a And a + c b Then p = (a + b + c) / 2 Text4.Text = Format(Sqr(p * (p - a) * (p - b) * (p - c)), 0.00) Else MsgBox 不能构成三角形，请重新输入 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub Private Sub Text1_Change() T