用VB求 设a=5,b=2.5,c=7.8,编程序计算:y=a*b*π/a+b*c

问题描述:

用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