王净：VB简单程序设计作业

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】编写程序，输入一元二次方程ax²+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

（2）用户界面设计及程序运行结果