Bantu dengan Interface / Msgbox dalam VBA

Isu

Hai, saya dalam kursus VBA dan saya mempunyai banyak masalah dengan salah satu masalah:

Halaju menetap dari zarah cecair boleh dianggarkan menggunakan undang-undang Stokes, Vs = g / 18 [(Pp-Pl) / u] * d ^ 2 di mana Vs = halaju penyelesaian (cm / s), g = untuk graviti (= 981 cm / s ^ 2), Pp dan Pl adalah kepadatan zarah dan cecair masing-masing (g / cm ^ 3), u = kelikatan dinamik (g / cm / s) diameter zarah berkesan (cm). Reka bentuk antara muka yang memasuki nilai untuk g, Pp, Pl, u, dan d dalam sel pada lembaran kerja. Gunakan prosedur Sub untuk mengira Vs, dan memaparkan hasilnya dengan kotak mesej. Uji program anda untuk zarah silinder sfera yang menetap di dalam air: Pp = 2.65, Pl = 1, u = 0.014, dan d = 0.001 cm. jawapan yang betul ialah 0.006423 cm / s.

Penyelesaian

Anda boleh menggunakan kod ini:

 Sub Ujian () Dim g Sebagai Double, Pp Sebagai Double, Pl Sebagai Double Dim u Sebagai Double, d Sebagai Double, Vs Sebagai Double g = 981 Pp = 2.65 Pl = 1 u = 0.014 d = 0.001 Vs = (g / * ((Pp - Pl) / u) * d ^ 2 Format MsgBox (Vs, "0.000000") Sub Akhir