帮忙解答VB题，超级感谢

来源：百度知道 编辑：UC知道 时间：2024/05/21 12:22:32
1在窗体中有三个滚动条（名称分别为HScroll1，HScroll2，HScroll3），
四个标签框（名称分别为 Label1、Label2、Label3 和 Label4），
Label1~Label3的Text分别为："红"、"绿"、"蓝"；Label4用来显
示颜色变化。要求程序运行后，标签框Label4的颜色随着三种颜色滚动条
的变化而变化。试在HScroll1、HScroll2、HScroll3中输入相应的代码以
实现程序功能。
2该程序的功能是：根据给定的图形的三边的边长来判断图形的类型。若为
三角形则同时计算出为何种三角形，及三角形的周长和面积。
要求完成"判断并计算"按钮的如下功能：
1）判断输入的条件是否为三角形，若是三角形则在Text1中显示"是三角
形"；在Text2中显示是何种三角形。
2）单击"清除再来"按钮可以将所有显示框清空，且按钮本身变为不可
选取状态。当单击"判断并计算"之后重新恢复为可选状态。
附：
1）三角形存在的条件为任一边不为0且任两边之和大于第三边。
2）若一边具有a^2+b^2=c^2， 则为直角三角形；
若所有边具有a^2+b^2>c^2,则为锐角三角形；
若一边具有a^2+b^2<c^2,则为钝角三角形。

Private Sub Form_Load()
Label1.BackColor = vbRed: Label1.Caption = "红"
Label2.BackColor = vbGreen: Label2.Caption = "绿"
Label3.BackColor = vbBlue: Label3.Caption = "蓝"
HScroll1.Max = 255: HScroll2.Max = 255: HScroll3.Max = 255
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value): Label4.Caption = "颜色"
End Sub

Private Sub HScroll1_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
===========================
Public a, b, c
Private Sub Command1_Click()
If a ^ 2 + b ^ 2 = c ^ 2 Then
p = (a + b + c) / 2
Text1.Text = "是三角形" & " 周长：" & a + b + c & &quo