作者tshin (勋勋勋)
看板Visual_Basic
标题[VB6 ] 一个简单的程式但就是跑不出想要的值
时间Thu Dec 17 13:06:53 2009
最近为了一个科目写一个简单的程式
全部都用IF...then在写
不知道哪里出了问题
Private Sub Command7_Click()
If List1.ListIndex = -1 Or List1.ListIndex = -1 Then MsgBox "请选择水带种类或
口径"
If List1.ListIndex = 0 And List1.ListIndex = 0 Then
Text4.Text = (Val(Text3.Text) / (1 + 0.00343 * 1.59 ^ 4 * Val(Text1.Text)))
Text5.Text = Val(Text3.Text) - Val(Text4.Text)
y = 0.805 * Val(Text1.Text)
z = Val(Text5.Text) / Val(y)
Text2.Text = Val(z) ^ 0.5 * 1000
Text6.Text = 1.5 * 1.59 ^ 2 * Val(Text4.Text)
End If
以上是某一段
似乎在TEXT4.text=时就是值错误的开始了
但不知道为什麽错了
这是消防水力学的东西
想藉由此做一个能够取代送水基准版的东西
描述的可能有点不清楚
以下为原程式码
http://www.badongo.com/cn/file/19098247
感激不尽XD
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.71.2.194
1F：推 UniFish:因为计算出来结果是数值，textbox.text是字串 12/17 14:52
2F：→ nobody1:textbox1.text不为数字就爆了 12/17 15:06
3F：推 nobody1:textbox1.text 约 -45.6也会 12/17 15:09
全部的textbox.text都为数字,text1.text是水带数量所以一定是正整数XD
不过一楼的我看不懂...谢谢楼上们的回答了!!
※ 编辑: tshin 来自: 203.71.2.194 (12/17 15:19)
※ 编辑: tshin 来自: 203.71.2.194 (12/17 15:19)
4F：→ nobody1:有bug时 最好都检查一下型别的问题... vb方便但不严谨~ 12/24 02:09