查人人中国名人网婆婆对儿媳妇生日祝福:用VB6.0编写三角形面积的计算
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 15:46:54
我编写了这样可是好象错了我第一次编写请高手指教
Option Explicit
Private Sub Form_Click()
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim s As Double
Dim y As String
str1 = InputBox("请输入第1边")
str2 = InputBox("请输入第2边")
str3 = InputBox("请输入第3边")
a = Val(str1)
b = Val(str2)
c = Val(str3)
s = Sqr(Abs(b * b - ((c * c + b * b - a * a) / (2 * c)) * ((c * c + b * b - a * a) / (2 * c)))) * c / 2
y = Val(s)
Select Case y
Case a + c < b And a + b < c And c + b < a
MsgBox ("不成立")
Case a = 0 Or b = 0 Or c = 0
MsgBox ("结果为0")
Case a < 0 And b < 0 And c < 0
MsgBox ("不成立")
Case Else
Print "结果等于"; y
End Select
End Sub
Option Explicit
Private Sub Form_Click()
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim s As Double
Dim y As String
str1 = InputBox("请输入第1边")
str2 = InputBox("请输入第2边")
str3 = InputBox("请输入第3边")
a = Val(str1)
b = Val(str2)
c = Val(str3)
s = Sqr(Abs(b * b - ((c * c + b * b - a * a) / (2 * c)) * ((c * c + b * b - a * a) / (2 * c)))) * c / 2
y = Val(s)
Select Case y
Case a + c < b And a + b < c And c + b < a
MsgBox ("不成立")
Case a = 0 Or b = 0 Or c = 0
MsgBox ("结果为0")
Case a < 0 And b < 0 And c < 0
MsgBox ("不成立")
Case Else
Print "结果等于"; y
End Select
End Sub
给你一段代码：
可直接运行
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> 0 And b <> 0 And c <> 0 Then
If a + b > c And a + c > b And b + c > a Then
s = (a + b + c) / 2
area = FormatNumber((s * (s - a) * (s - b) * (s - c)) ^ (1 / 2), 2)
Label5.Caption = "三角形ABC面积= " & Str(area)
Else
MsgBox "不合三角形定义", vbExclamation, "三角"
End If
Else
MsgBox "长宽高不能空", vbExclamation, "三角"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label5.Caption = "三角形ABC面积="
End Sub
Private Sub Command3_Click()
End
End Sub