有關高壹的vb編程

代碼如下：

Option Explicit

Private Sub Command1_Click()

Dim a!, b!, c!, p!, s!,q!

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If a + b <= c Or b + c <= a Or a + c <= b Then

q = MsgBox("三角形兩邊之和要大於第三邊", 16, "註意")

End If

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

Text4.Text = s

End Sub

期待被采納