请各位老师，帮我修改代码

7016427

Private Sub UserForm_Initialize()
以下计算结果错误，正确=213，显示的-14.5，请各位老师帮我看看，哪里错误？
Dim l%, a As Double, b As Double, c As Double, e As Double
a = (Val(TextBox5) - Val(TextBox1) + 1) * 0.5
b = (Val(TextBox6) - Val(TextBox2) + 1) * 1
c = (Val(TextBox7) - Val(TextBox3) + 1) * 5
e = (Val(TextBox8) - Val(TextBox4) + 1) * 10
For l = 5 To 8
If Me.Controls("TextBox" & l) <> "" Then
TextBox9 = a + b + c + e
End If
Next
End Sub

hsw212

计算没有问题吧

7016427

hsw212 发表于 2018-8-14 07:40
计算没有问题吧

你好！你看我的附件，执行的结果是 -14.5，而正确数是213

vbee

1. Private Sub UserForm_Initialize()
   
2. Dim l%, 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. 
   
8. If TextBox5 = "" Then a = 0
   
9. If TextBox6 = "" Then b = 0
   
10. If TextBox7 = "" Then c = 0
    
11. If TextBox8 = "" Then d = 0
    
12. 
    
13. TextBox9 = a + b + c + e
    
14. 
    
15. End Sub
    

复制代码

hsw212

a=(0-456+1)*0.5=-227.5
b=(791-789+1)*1=3
c=(1235-1234+1)*5=10
d=(31-12+1)*10=200

textbox9=a+b+c+d=-14.5

wj2368

7016427 发表于 2018-8-14 07:47
你好！你看我的附件，执行的结果是 -14.5，而正确数是213

看了下，其实你条件没有说清，还运算空的不能参加结果计算吧