请老师帮我看看，窗体文本框计算错误的问题

7016427

请老师看看附件，打开附件按确定时，合计错误。

7016427

Private Sub CommandButton1_Click()' 以下黄色语句没有生效Dim a As Double, b As Double, c As Double, e As Doublea = (Val(TextBox5) - Val(TextBox1) + 1) * 0.5b = (Val(TextBox6) - Val(TextBox2) + 1) * 1c = (Val(TextBox7) - Val(TextBox3) + 1) * 5e = (Val(TextBox8) - Val(TextBox4) + 1) * 10If TextBox5 = "" Or Val(TextBox5) < Val(TextBox1) Then a = 0If TextBox6 = "" Or Val(TextBox6) < Val(TextBox2) Then b = 0If TextBox7 = "" Or Val(TextBox7) < Val(TextBox3) Then c = 0If TextBox8 = "" Or Val(TextBox8) < Val(TextBox4) Then d = 0
TextBox9 = Format(a + b + c + e, "￥0.00")End Sub

gdw831001

不清楚楼主想做什么，但是 止号为空时，算出来负数没什么不对的

7016427

gdw831001 发表于 2018-9-5 18:08
不清楚楼主想做什么，但是 止号为空时，算出来负数没什么不对的

我要的结果是止号空时，哪一行负数就为0

7016427

gdw831001 发表于 2018-9-5 18:08
不清楚楼主想做什么，但是 止号为空时，算出来负数没什么不对的

也就是止号为空时，那个就不算，请问老师怎么改？

gdw831001

1. Private Sub CommandButton1_Click()
   
2. Dim a As Double, b As Double, c As Double, e As Double
   
3. a = (Val(TextBox5) - Val(TextBox1) + 1) * 0.5
   
4. b = (Val(TextBox6) - Val(TextBox2) + 1) * 1
   
5. c = (Val(TextBox7) - Val(TextBox3) + 1) * 5
   
6. e = (Val(TextBox8) - Val(TextBox4) + 1) * 10
   
7. If a < 0 Then a = 0
   
8. If b < 0 Then b = 0
   
9. If c < 0 Then c = 0
   
10. If e < 0 Then e = 0
    
11. TextBox9 = Format(a + b + c + e, "￡¤0.00")
    
12. End Sub

复制代码