Pomoč za Vmesnik / Msgbox v VBA

Težava

Živjo, sem v tečaju VBA in imam veliko težav z eno od težav:

Hitrost usedanja delca tekočine lahko ocenimo z uporabo Stokesovega zakona, Vs = g / 18 [(Pp-Pl) / u] * d ^ 2, pri čemer je Vs = hitrost usedanja (cm / s), g = dolžina pospeška za gravitacijo (= 981 cm / s ^ 2), sta Pp in Pl gostota delca in tekočine (g / cm ^ 3), u = dinamična viskoznost (g / cm / s) in d = premer delcev (cm). Oblikujte vmesnik, ki v celicah na delovnem listu vnese vrednosti za g, Pp, Pl, u in d. Uporabite Sub postopek za izračun Vs in rezultat prikažite s sporočilnim okencem. Preizkusite program za sferične delce mulja, ki se usedejo v vodi: Pp = 2, 65, Pl = 1, u = 0, 014 in d = 0, 001 cm. pravilen odgovor je 0, 006423 cm / s.

Rešitev

To kodo lahko uporabite:

 Sub TEST () Dim g Kot dvojno, Pp kot dvojno, Pl kot dvojno dim u kot dvojno, d kot dvojno, vs kot dvojno g = 981 str = 2, 65 pl = 1 u = 0, 014 d = 0, 001 vs = (g / 18) * ((PP - Pl) / u) * d ^ 2 Format MsgBox (Vs, "0.000000") 

Opomba

Hvala za venkat1926 za ta nasvet na forumu.