Помощ с интерфейс / Msgbox в VBA

Проблем

Здравейте, аз съм в курс по VBA и имам много проблеми с един от проблемите:

Скоростта на утаяване на частица течност може да бъде оценена с помощта на закона на Стокс, Vs = g / 18 [(Pp-Pl) / u] * d ^ 2, където Vs = скоростта на утаяване (cm / s), g = дължимата ускорение към гравитацията (= 981 cm / s ^ 2), Pp и Pl са плътността на частицата и течността, съответно (g / cm ^ 3), u = динамичен вискозитет (g / cm / s), а d = an диаметър на ефективните частици (cm). Проектирайте интерфейс, който въвежда стойности за g, Pp, Pl, u и d в клетки на работен лист. Използвайте Sub процедура, за да изчислите Vs, и покажете резултата с поле за съобщения. Проверете програмата си за сферични частици от тинята, които се утаяват във вода: Pp = 2, 65, Pl = 1, u = 0, 014 и d = 0, 001 cm. верният отговор е 0.006423 cm / s.

Решение

Можете да използвате този код:

 Sub TEST () Dim g Двойно, Pp като двойно, Pl като двойно dim u като двойно, d като двойно, Vs като двойно g = 981 Pp = 2.65 Pl = 1 u = 0.014 d = 0.001 Vs = (g / 18) * ((Pp - Pl) / u) * d ^ 2 Формат на MsgBox (Vs, "0.000000") Край на под