Question

vb求三角形面积程序语言

Private Sub Command1_Click()
a = Val(a.Text)
b = Val(b.Text)
c = Val(c.Text)
If a + b <= c Or a + c <= b Or b + c <= a Or a <= 0 Or b <= 0 Or c <= 0 Then
MsgBox "sorry error"
Else
d = (a + b + c) / 2
s = Sqr(d * (d - a) * (d - b) * (d - c))
End If
End Sub
我的输入栏的名称属性设置是a，b，c。

Answer 1

Private Sub Command1_Click()
dim va = Val(a.Text)
dim vb = Val(b.Text)
dim vc = Val(c.Text)
If va + vb <= vc Or va + vc <= vb Or vb + vc <= va Or va <= 0 Or vb <= 0 Or vc <= 0 Then
MsgBox "sorry error"
Else
d = (va + vb + vc) / 2
s = Sqr(d * (d - va) * (d - vb) * (d - vc))
End If
End Sub

Answer 2

你的控件名分别为a、b、c，而变量名也是a、b、c，所以系统无法识别。将三个控件名恢复为text1,text2,text3即可。

Answer 3

变量名和控件名重复了，请不要起相同名字！

Answer 4

变量名称不能与控件名称相同。

Answer 5

LZ想问什么呢？？