分支结构的参考例题.docVIP

Private Sub CmdCal_Click() Dim a As Integer, b As Integer, c As Integer, s As Single, area As Single a = Val(Txta.Text) b = Val(Txtb.Text) c = Val(Txtc.Text) If a + b c And a + c b And c + b a Then s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c)) Txtarea = CStr(area) Else Txtarea = 输入数据无法构成三角形三边 End If CmdClear.SetFocus End Sub Private Sub CmdClear_Click() Txta.Text = Txtb.Text = Txtc.Text = Txtarea.Text = Txta.SetFocus End Sub Private Sub CmdEnd_Click() End End Sub Option Explicit