[VB6 ] 一個簡單的程式但就是跑不出想要的值

看板Visual_Basic作者 (勛勛勛)時間16年前 (2009/12/17 13:06), 編輯推噓2(2推 0噓 2→)
留言4則, 2人參與, 最新討論串1/1
最近為了一個科目寫一個簡單的程式 全部都用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
推
12/17 14:52, , 1F
因為計算出來結果是數值，textbox.text是字串
12/17 14:52, 1F
→
12/17 15:06, , 2F
textbox1.text不為數字就爆了
12/17 15:06, 2F
推
12/17 15:09, , 3F
textbox1.text 約 -45.6也會
12/17 15:09, 3F
全部的textbox.text都為數字,text1.text是水帶數量所以一定是正整數XD 不過一樓的我看不懂...謝謝樓上們的回答了!! ※ 編輯: tshin 來自: 203.71.2.194 (12/17 15:19) ※ 編輯: tshin 來自: 203.71.2.194 (12/17 15:19)
→
12/24 02:09, , 4F
有bug時 最好都檢查一下型別的問題... vb方便但不嚴謹~
12/24 02:09, 4F
‣ 更多 tshin 的文章
文章代碼(AID): #1BARnlDK (Visual_Basic)