Trợ giúp với Giao diện / Msgbox trong VBA

Vấn đề

Xin chào, tôi đang tham gia khóa học VBA và tôi gặp nhiều rắc rối với một trong những vấn đề:

Tốc độ lắng của hạt chất lỏng có thể được ước tính bằng định luật Stokes, Vs = g / 18 [(Pp-Pl) / u] * d ^ 2 trong đó Vs = tốc độ lắng (cm / s), g = gia tốc do đến trọng lực (= 981 cm / s ^ 2), Pp và Pl lần lượt là mật độ của hạt và chất lỏng (g / cm ^ 3), u = độ nhớt động lực (g / cm / s) và d = an đường kính hạt hiệu quả (cm). Thiết kế giao diện nhập các giá trị cho g, Pp, Pl, u và d trong các ô trên trang tính. Sử dụng thủ tục phụ để tính Vs và hiển thị kết quả với hộp thông báo. Kiểm tra chương trình của bạn để tìm các hạt phù sa hình cầu lắng trong nước: Pp = 2, 65, Pl = 1, u = 0, 011 và d = 0, 001 cm. câu trả lời đúng là 0, 006423 cm / s.

Dung dịch

Bạn có thể sử dụng mã này:

 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 Định dạng MsgBox (Vs, "0, 000000") Kết thúc Sub