VBA'da Arayüz / Msgbox ile Yardım

Konu

Merhaba, VBA kursundayım ve sorunlardan biriyle ilgili çok sorun yaşıyorum:

Bir sıvı parçacığının çökelme hızı Stokes yasası, Vs = g / 18 [(Pp-Pl) / u] * d ^ 2 kullanılarak tahmin edilebilir, burada Vs = çökelme hızı (cm / s), g = nedeniyle ivme yerçekimine (= 981 cm / s ^ 2), Pp ve Pl sırasıyla partikül ve sıvının yoğunluklarıdır (g / cm ^ 3), u = dinamik viskozite (g / cm / s) ve d = bir etkili parçacık çapı (cm). Bir çalışma sayfasındaki hücrelerde g, Pp, Pl, u ve d için değerler giren bir arabirim tasarlayın. V'leri hesaplamak için bir Sub prosedürü kullanın ve sonucu bir mesaj kutusu ile görüntüleyin. Programınızı suya yerleşen küresel silt parçacıkları için test edin: Pp = 2.65, Pl = 1, u = 0.014 ve d = 0.001 cm. doğru cevap 0.006423 cm / s'dir.

Çözüm

Bu kodu kullanabilirsiniz:

 Alt TEST () Dim g İkili, Pp İkili, Pl İkili Dim u, İkili, d İkili, Vs İkili g = 981 Pp = 2.65 Pl = 1 u = 0, 014 d = 0, 001 Vs = (g / 18) * ((Pp - Pl) / u) * d ^ 2 MsgBox Biçimi (Vs, "0.000000") Bitiş Alt