JF=缴费 ZH=帐户 FF、AB代表两种要缴纳的费用，帐户上用正表示“欠费”，负表示“还有费”

If Total_ZH >= 0 Then '帐户>=0时,应缴费用=帐户上欠费+AB+FF
Total_JF = Total_ZH + Total_FF + Total_AB
MsgBox "用户已欠费，他应缴费" & Total_JF

ElseIf Total_ZF < 0 Then
Total_ZH = -Total_ZH '先将帐户的数字转成正数

ElseIf Total_ZH > (Total_FF + Total_AB) Then '帐户的钱>应缴费用时，用户不用缴费
Total_JF = 0
MsgBox "用户不需要缴费"

ElseIf Total_ZH < (Total_FF + Total_AB) Then '帐户的钱<应缴费用时,应缴费用等于它们相减
Total_JF = Total_FF + Total_AB - Total_ZH
MsgBox "用户帐户上有部分余额，应缴费用为:" & Total_JF
End If

我这样是有问题的，该如何改、如何写呢？它并不是三种条件的判断，而是两种条件，只是为负的情况下要做一次判断，包含了嵌套。

[此贴子已经被作者于2007-8-23 19:50:33编辑过]

是少了个end if，并且加了后并不能正常循环。
我要表达的意思是：

帐户>=0 要缴的费用=帐户+A

帐户<0
将帐户变成正数
再判断
帐户>A
不用缴费
A>帐户
要缴的费用=A-帐户

最后的结果：

If Total_ZH >= 0 Then '帐户>=0时,应缴费用=帐户上欠费+AB包+付费节目费
Total_JF = Total_ZH + Total_FF + Total_AB
MsgBox "用户已欠费，他应缴费" & Total_JF

ElseIf Total_ZH < 0 Then
'先将帐户的数字转成正数
Total_ZH = -1 * Total_ZH

If Total_ZH > (Total_FF + Total_AB) Then '帐户的钱>应缴费用时，用户不用缴费
Total_JF = 0
MsgBox "用户不需要缴费"
End If
If Total_ZH < (Total_FF + Total_AB) Then '帐户的钱<应缴费用时,应缴费用等于它们相减

Total_JF = Total_ZF - Total_AB - Total_FF
MsgBox "用户账户上有部分费用，应缴费用为:" & Total_JF
End If

End If

[此贴子已经被作者于2007-8-24 20:35:38编辑过]

你的逻辑好个*！
你那个是个错的。
If Total_ZH <= 0 Then '前面说过，负的时候是有余额，不是欠费