Pomoc s rozhraním / Msgbox vo VBA

Problém

Ahoj, som v kurze VBA a mám veľa problémov s jedným z problémov:

Rýchlosť usadzovania častíc kvapaliny možno odhadnúť pomocou Stokesovho zákona, Vs = g / 18 [(Pp-Pl) / u] * d ^ 2, kde Vs = rýchlosť usadzovania (cm / s), g = zrýchlenie spôsobené do gravitácie (= 981 cm / s ^ 2), Pp a Pl sú hustoty častíc a kvapaliny (g / cm ^ 3), u = dynamická viskozita (g / cm / s) a d = an účinný priemer častíc (cm). Navrhnite rozhranie, ktoré zadá hodnoty pre g, Pp, Pl, u a d v bunkách na pracovnom hárku. Na výpočet Vs použite procedúru Sub a zobrazte výsledok so správou. Otestujte svoj program na častice sférického bahna usadzujúce sa vo vode: Pp = 2, 65, Pl = 1, u = 0, 014 a d = 0, 001 cm. správna odpoveď je 0.006423 cm / s.

Riešenie

Tento kód môžete použiť:

 Sub TEST () Dim g Ako Double, Pp Double, Pl As Double Dim u As Double, d 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 Formát MsgBox (Vs, "0.000000") Koniec Sub