足球预测公式vb最全三角形公式

2020年10月1日发(作者：俞庆棠)
Private Sub Command1_Click()
Dim a As Single, h As Single
a = Val(InputBox(请输入底
h = Val(InputBox(请输入高
area = a * h 2
MsgBox 面积是:
End
End Sub

Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single, s As Single
a = Val(InputBox(请输入第一边
b = Val(InputBox(请输入第二边
c = Val(InputBox(请输入第三边
s = (a + b + c) 2
If a >= s Or b >= s Or c >= s Then
MsgBox 不能构成三角形
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox 面积是:
End If
End
End Sub

Private Sub Command3_Click()
Dim a As Single
a = Val(InputBox(请输入边长
area = Sqr(3) 4 * a * a
MsgBox 面积是:
End
End Sub

Private Sub Command4_Click()
Dim a As Single, b As Single, c As Single, k As Single, pi As Double
a = Val(InputBox(请输入第一边
b = Val(InputBox(请输入第二边
c = Val(InputBox(请输入其夹角
pi = 4 * Atn(1)
k = c * pi 180
area = 1 2 * a * b * Sin(k)
MsgBox 面积是(x.999999999999999=x+1):
End
End Sub

Private Sub Command5_Click()
Dim a As Single, b As Single, c As Single, d As Single, k As Single, l As Single, m As Single,
pi As Double
a = Val(InputBox(请输入第一边
b = Val(InputBox(请输入其邻角1
c = Val(InputBox(请输入其邻角2
d = 180 - b - c
pi = 4 * Atn(1)
k = b * pi 180
l = c * pi 180
m = d * pi 180
area = (a * a * Sin(k) * Sin(l)) (2 * Sin(m))
MsgBox 面积是(x.999999999999999=x+1):
End
End Sub