云浮玉是不是阿富汗玉:VB计算中出现的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 16:58:55
部分程序
Dim Kd, PORO, U, CT, PI, PWF, Bo, Kf, Xf, Wf, H, TIMESTEP, FCD As Double
Dim NTT As Integer
Dim i As Integer
Kd = Val(Text6.Text)
PORO = Val(Text7.Text)
U = Val(Text8.Text)
CT = Val(Text9.Text)
PI = Val(Text10.Text)
PWF = Val(Text11.Text)
Bo = Val(Text12.Text)
Kf = Val(Text1.Text)
Xf = Val(Text2.Text)
Wf = Val(Text3.Text)
H = Val(Text4.Text)
TIMESTEP = Val(Text13.Text)
NTT = Val(Text5.Text)
PI = PI * 9.8692: PWF = PWF * 9.8692: CT = CT * 0.101325 '单位换算
FCD = Kf * Wf / (Kd * Xf)
FCD的计算老是0,例如应该是FCD(0.25) = Kf(30000) * Wf(0.005) / (Kd (3)* Xf(200)) 可是实际结果是0,原因?
FCD = Kf(30000) * Wf(0.005) / (Kd (3)* Xf(200))括号里面的数值就是给的数值.算出来应该是0.25,但程序显示为0

这两个其中一个值是否为字符串或为0?
Text1.Text
Text3.Text

简单的很的事哦
自己 好好地看一下会找到的

把字符串转换成数值即可