oО天之痕的回答：
楼主可以提供你的邮箱或MSN之类，我可以帮你做好，发给你
oО天之痕的回答：
楼主可以提供你的邮箱或MSN之类，我可以帮你做好，发给你
平衡的回答：
发招标任务吧，数百人帮你解决，最后选择一个最好的作为你的答案，呵呵
http://www.zhubajie.com/task/?creative=2426359
情在天理之中的回答：
Private Sub Command1_Click() Dim a, b, c, s, p As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b > c And ((a - b) < c Or (b - a) < c) Then p = (a + b + c) / 2 s = Sqr(p * ((p - a) * (p - b) * (p - c))) Text4.Text = s Text4.Enabled = False Else MsgBox "你输入的数据不能构成三角形，请重新输入！" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End If
End Sub
Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""
End Sub
大熊猫的回答：
【实验2-1】 编写程序，功能为输入三角形的三边，求三角形的面积，要求显示面积的文本框不可编辑。
要求：工程文件名为experiment-1.vbp,窗体文件名为experiment-1.frm。
（1）程序代码
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, s As Single, area As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
area = (a + b + c) / 2
s = Sqr(area * (area - a) * (area - b) * (area - c))
Text4.Text = s
End Sub
Private Sub Form_Load()
Text4.Enabled = False
End Sub
（2）用户界面设计及程序运行结果
【实验2-2】实现实验2-1，要求：三角形三边的值通过3次调用InputBox函数获取，求出的面积通过MsgBox过程输出。
要求：工程文件名为experiment-2.vbp,窗体文件名为experiment-2.frm。
（1）程序代码
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, s As Single, area As Single
a = InputBox("请输入三角形的边长a：", "三角形的边a", "")
b = InputBox("请输入三角形的边长b：", "三角形的边b", "")
c = InputBox("请输入三角形的边长c：", "三角形的边c", "")
area = (a+b+c)/2
s= Sqr(area *( area -a)*( area -b)*( area -c))
MsgBox "三边为：" & a & "；" & b & "；" & c & "的三角形面积为：" & s
End Sub
（2）用户界面设计及程序运行结果
【实验2-3】编写程序，对输入字符串进行大小写转换，提示：用UCase、LCase函数。界面如下：
要求：1．将转换结果在图片框中输出，并且要求进行下一次转换时，将前一次转换结果清除
2．工程文件名为experiment-3.vbp,窗体文件名为experiment-3.frm。
（1）程序代码
Private Sub Command1_Click()
Picture1.Cls
MyChar = UCase(Text1.Text)
Picture1.Print MyChar
End Sub
Private Sub Command2_Click()
Picture1.Cls
MyChar = LCase(Text1.Text)
Picture1.Print MyChar
End Sub
Private Sub Form_Load()
Dim MyChar As String
End Sub
（2）用户界面设计及程序运行结果
【实验2-4】编写程序，输入一元二次方程ax2+bx+c=0的系数a、b、c（保证输入系数使方程有根，不考虑无根的情况），计算二次方程的两个根x1，x2。
要求：用InputBox函数输入系数，MsgBox语句输出根的结果。工程文件名为experiment-4.vbp,窗体文件名为experiment-4.frm。
提示：可用下面方法输出根的结果（vbCrLf为回车换行，等价于Chr(13) + Chr(10)）
MsgBox "方程的两个根" & vbCrLf & "x1 = " & X1 & vbCrLf & "x2 = " & X2, , "一元二次方程求根"
（1）程序代码
Private Sub Command1_Click()
Dim A, B, C As Integer
Dim x1, x2 As Single
A = InputBox("请输入系数A：", "数据输入", "0")
B = InputBox("请输入系数B：", "数据输入", "0")
C = InputBox("请输入系数C：", "数据输入", "0")
x1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
x2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "方程的两个根" & vbCrLf & "x1 = " & x1 & vbCrLf & "x2 = " & x2, , "一元二次方程求根"
End Sub