下面的指握棚代码是利用三边计算三角形面积Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)c=val(text3.text)p=(a+b+c)2s=sqr(p*(p

Dim a As IntegerDim b As IntegerPrivate Sub Command1_Click()k = InStr(a, Text2, Text1)If k &gt0 Then Command1.Capt