Palīdzība ar interfeisu / Msgbox VBA

Izdevums

Sveiki, es esmu VBA kursā, un man ir daudz problēmu ar vienu no problēmām:

Šķidruma daļiņu nosēšanās ātrumu var novērtēt, izmantojot Stoksa likumu, Vs = g / 18 [(Pp-Pl) / u] * d ^ 2, kur Vs = nosēšanās ātrums (cm / s), g = vajadzīgais paātrinājums līdz gravitācijai (= 981 cm / s ^ 2), Pp un Pl ir daļiņu un šķidruma blīvums (g / cm ^ 3), u = dinamiskā viskozitāte (g / cm / s) un d = an efektīvais daļiņu diametrs (cm). Izveidojiet saskarni, kas darblapas šūnās ievada g, Pp, Pl, u un d vērtības. Izmantojiet Sub procedūru, lai aprēķinātu Vs, un parādītu rezultātu ar ziņojumu lodziņu. Pārbaudiet savu programmu sfēriskām nogulšņu daļiņām, kas nosēdušās ūdenī: Pp = 2, 65, Pl = 1, u = 0.014 un d = 0, 001 cm. pareizā atbilde ir 0, 006423 cm / s.

Risinājums

Jūs varat izmantot šo kodu:

 Sub TESTS () Dim g kā dubultā, Pp kā dubultā, Pl kā dubultā Dim u kā dubultā, d kā dubultā, Vs kā dubultais g = 981 Pp = 2, 65 Pl = 1 u = 0, 014 d = 0, 001 Vs = (g / 18) * ((Pp - Pl) / u) * d ^ 2 MsgBox formāts (Vs, "0, 000000") Beigas beigas 

Piezīme

Pateicoties venkat1926 par šo padomu forumā.

Iepriekšējais Raksts Nākamais Raksts

Top Padomi