【正确答案】该题用到两个函数和一个公式,Val()是将其内容转变为数字类型的函数,Sqr()是求数值的平方根函数,而求解三角形的面积的时候用到海伦公式即S=Sqr(L*(L-a)*(L-b)*(L-c)),其中a、b、c是三角形的三个边,L=(a+b+c)/2。根据题意,双击Command1命令按钮进入代码窗口,补充后的代码如下:
Option Explicit
Dim a As Single
Dim b As Single
Dim c As Single
Dim S As Double
Dim L As Single
Private Sub Command1_Click()
a=Val(Text5.Text)
b=Val(Text6.Text)
c=Val(Text7.Text)
If a

0 And b

0 And c

0 And a+b>c And a+c>b And b+c>a Then
Text1.Text="是三角形"
If a^2+b^2=c^2 Or a^2+c^2=b^2 Or b^2+c^2=a^2 Then
Text2.Text="是直角三角形"
Else
If a^2+b^2>C^2 And a^2+c^2>b^2 And b^2+C^2>a……2 Then
Text2.Text="是锐角三角形"
Else:Text2.Text="是钝角三角形"
End If
End If
Text3.Text=a+b+C '计算三角形的周长
L=(a+b+c)/2
Text4.Text=Sqr(L*(L-a)*(L-b)*(L-c)) '计算三角形的面积
Else:Text1.Text="非三角形"
Text2.Text=" "
Text3.Text=" "
Text4.Text=" "
End If
Command2.Enabled=True
End Sub
Private Sub Command2_Click() '此处需要设置,以实现清空所有文本框及使“重新输入”按钮无效的功能
Text1.Text=" " Text2.Text=" " Text3.Text=" " Text4.Text=" " Text5.Text=" " Text6.Text=" " Text7.Text=" " Command2.Enabled=False End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Command2.Enabled=False
End Sub
单击
