用VB求设a=5,b=2.5,c=7.8,编程序计算：y=a*b*π/a+b*c 用开头这样的 Private Sub Comm_其他解答

用VB求设a=5,b=2.5,c=7.8,编程序计算：y=a*b*π/a+b*c
用开头这样的 Private Sub Command1_Click()

人气：474 ℃　时间：2020-02-01 08:57:14

解答

Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double, y As Double
a = 5
b = 2.5
c = 7.8
y = a * b * 3.1415926 / (a + b * c)
MsgBox y
End Sub