求助一个小小的计算

hdstu

Dim $fpqh,$fpzh,$kjfs
Dim $bl=1
Dim $lgfs=$fpzh-$fpqh+$bl
If @error=1 Or $lgfs="" and $fpqh="" and $fpzh="" and $kjfs="" Then
EndIf
$fpzh=inputBox("发票统计","请录入发票止号")
$fpqh=inputBox("发票统计","请录入发票起号")
Select
        Case $fpzh="" and $fpqh=""
                MsgBox("0","发票统计","请录入数据")
        Case Else
                MsgBox("0","发票统计","领购份数为:"&$lgfs&"")
EndSelect


录入起号，止号，计算结果总是“1” 高手们指点下 谢谢

afan

Dim $fpqh, $fpzh, $kjfs, $bl = 1, $lgfs
If @error = 1 Or $lgfs = "" And $fpqh = "" And $fpzh = "" And $kjfs = "" Then
EndIf
$fpzh = InputBox("发票统计", "请录入发票止号")
$fpqh = InputBox("发票统计", "请录入发票起号")
Select
        Case $fpzh = "" And $fpqh = ""
                MsgBox("0", "发票统计", "请录入数据")
        Case Else
                $lgfs = $fpzh - $fpqh + $bl
                MsgBox("0", "发票统计", "领购份数为:" & $lgfs & "")
EndSelect

hdstu

Dim $fpqh, $fpzh, $kjfs, $bl = 1, $lgfs
If @error = 1 Or $lgfs = "" And $fpqh = "" And $fpzh = "" And $kjfs = "" Then
EndIf
$fpzh = InputBox("发票统计", "请录入发票止号")
$fpqh = InputBox("发票统计 ...
afan 发表于 2009-8-15 11:16

去掉了Dim $lgfs=$fpzh-$fpqh+$bl

kn007

楼上的什么意思？？？

顽固不化

lz的代码，存在逻辑上的不足。

hdstu

呵，我在看教程 一边看，一边学习