用VB求 设a=5,b=2.5,c=7.8,编程序计算：y=a*b*π/a+b*c 用开头这样的 Private Sub Command1_Click()
问题描述：
用VB求 设a=5,b=2.5,c=7.8,编程序计算：y=a*b*π/a+b*c
用开头这样的 Private Sub Command1_Click()
答
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