[问答题] 在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个框架、7个标签和7个文本框，所有控件已经画好。该程序的功能是：根据给定的图形的三边的边长来判断

[问答题] 在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个框架、7个标签和7个文本框，所有控件已经画好。该程序的功能是：根据给定的图形的三边的边长来判断图形的类型。若为三角形，则同时计算出为何种三角形，及三角形的周长和面积。
要求完成“判断并计算”按钮的如下功能：
①判断输入的条件是否为三角形，若是三角形，则在Text1中显示“是三角形”；在Text2中显示是何种三角形。
②单击“重新输入”按钮可以清空所有显示框．且按钮本身变为无效状态。当单击“判断并计算”按钮之后重新恢复为可用状态。
附加信息：
①三角形存在的条件为任一边不为0，且任两边之和大于第三边。
②若一边具有a2+b2=c2，则为直角三形；若所有边具有a2+b2＞c2，则为锐角三角形；若一边具有a2+b2＜c2，则为钝角三角形。
本程序不完整，请补充完整，并能正确运行。程序运行情况如下图所示。
要求：去掉程序中的注释符“’”，把程序中的问号“”改为正确的内容，使其实现上述功能，但不得修改其他部分。最后按原文件名并在原文件夹中保存修改后的文件。

参考答案：

该题用到两个函数和一个公式，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 a0 And b0 And c0 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 单击按钮运行程序，并按要求保存。

问题解析:

解析无