VBAのInterface / Msgboxのヘルプ
![](http://img.brin-designs.com/img/games/180/help-with-interface-msgbox-vba.png)
問題
こんにちは、私はVBAコースにいます、そして私は問題の1つに関して多くの問題を抱えています:
液体粒子の沈降速度は、ストークスの法則、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()DoubleとしてDim、DoubleとしてPp、DoubleとしてPl D、Doubleとしてd、Doubleとして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")End Sub
注意
フォーラムでこのヒントを提供してくれたvenkat1926に感謝します。