我正在自学VB，做一个简单的快递付费软件

Private Sub cmd1_Click()
Dim a As Single
a = Val(txt.Text)
If a = 0 Then
lbl.Caption = "您应支付零元"
ElseIf a > 3 Then     '第二段。。。
lbl.Caption = "您应支付" & a + 2 & "元"     
ElseIf 0 < a < 3 Then    '第三段。。。
lbl.Caption = "您应支付5元"
End If
End Sub

Private Sub cmd2_Click()
lbl.Caption = ""
txt.Text = ""
End Sub

有两个问题，第一问题：事件一中，第二段和第三段换个位置，我输入5，6，7。。。结果都是5元，为什么？
第二个问题：如果TXT。TEXT为空，点计算，出错，怎么解决？

菜鸟求指导，自学不容易啊~~~~

不容易啊
select

Private Sub cmd1_Click()
Dim a As Single
if not isnumber(txt.text) then           '如果输入不为数字，则提示
    lbl.caption="请输入重量"
else
  a = Val(txt.Text)      '否则，转换为数值
if a>0 then        '输入了重量
  a=int(a)+2        '取整，并计算价格
  if a<5 then         '如果价格小于5元
    a=5            '最低支付5元
  end if
else   
  a=0            '重量为负数或0，就支付0元
end if
lbl.caption="你应支付" & a & "元。"

End If
End Sub

楼主、、、代码精炼、、、简洁、、帅啊、、

不戒
 


 等　级：新手上路
 帖　子：5
 专家分：0
 注　册：2012-3-15
 结帖率：0%
https://bbs.bccn.net/thread-332567-1-1.html