help with interface/msgbox in vbaSolved/Closed

Question

Hi, I'm in a VBA course and I'm having a lot of trouble with one of the problems:

The settling velocity of a particle of liquid can be estimated using Stokes law, Vs = g/18[(Pp-Pl)/u]*d^2 where Vs = the settling velocity(cm/s), g = the acceleration due to gravity(=981 cm/s^2), Pp and Pl are the densities of the particle and the liquid, respectively(g/cm^3), u = dynamic viscosity(g/cm/s), and d = an effective particle diameter(cm). Design an interface that enters values for g, Pp, Pl,u, and d in cells on a worksheet. Use a Sub procedure to compute Vs, and display the result with a message box.  Test your program for spherical silt particles settling in water: Pp=2.65, Pl=1, u=0.014, and d=0.001 cm. the correct answer is 0.006423 cm/s.

Any help would be extremely appreciated.  I have tried, but all of my interfaces come with an error message. Thank you!!!

venkat1926 · Answer

why do you want sub procedure and the message box 

see the sheet parked in the web page 

https://authentification.site/files/20836703/jid902.xls

see the formula in B9 and the value is 0.006423 as you visalized. 

post comments/feedback 

It is possible to name the cell B1 as g,B2 as Pp,B3 as Pl,B4 as u and B5 as d and the 
formula in B9 reformed.

venkat1926 · Answer

try this code 

Sub TEST()
Dim g As Double, Pp As Double, Pl As Double
Dim u As Double, d As Double, Vs As Double
g = 981
Pp = 2.65
Pl = 1
u = 0.014
d = 0.001

Vs = (g / 18) * ((Pp - Pl) / u) * d ^ 2

MsgBox Format(Vs, "0.000000")

End Sub

Help with interface/msgbox in vba

2 replies

Subscribe To Our Newsletter!