新手请教，百思不解

不戒发布于 2012-03-29 11:26， 543 次点击

书上的习题，快递支付
Private Sub Command1_Click()

Select Case txt.Text
Case Is = ""
lbl.Caption = "请输入重量"
Case Is > 3
lbl.Caption = "请支付" & Val(txt.Text) + 2 & "元"
Case Is = 0
lbl.Caption = "别开玩笑了，请输入重量"
Case Else
lbl.Caption = "请支付5元"
End Select
End Sub

输入10以下数字正常，10以上数字，一律5元，为什么？

4 回复

bulesun2012-04-03 14:29

你可以试着输入35 或者54 什么的就是第一位的数字大于3的数看看返回什么值

chenyu8809262012-04-05 13:58

不懂

xcbyxl0012012-04-07 12:29

学习学习学习

苦寒2012-04-08 10:03

Private Sub Command1_Click()
   If (IsNumeric(txt.Text) = False) Then
      lbl.Caption = "请输入重量"
   Else
      Select Case Val(txt.Text)
      Case Is > 3
         lbl.Caption = "请支付" & Val(txt.Text) + 2 & "元"
      Case Is = 0
         lbl.Caption = "别开玩笑了，请输入重量"
      Case Else
         lbl.Caption = "请支付5元"
      End Select
   End If
End Sub