VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
关于select case的疑问
发表在VB答疑区
2010-07-16
是否精华
是
否
版块置顶:
是
否
《视频学VB》94页第一道练习题，我刚写了个程序但找不出错误，我简单点写下来：
Private Sub Form_Load()
Dim i%
i = Val(InputBox("请输入数值"))
Select Case i
Case i >= 1000
MsgBox i * 1.2
Case i >= 800
MsgBox i * 1.15
Case Else
MsgBox i * 1.1
End Select
End Sub
我运行后输入1000，本以为会输出1200但结果输出了1100，请老师指教
Private Sub Form_Load()
Dim i%
i = Val(InputBox("请输入数值"))
Select Case i
Case i >= 1000
MsgBox i * 1.2
Case i >= 800
MsgBox i * 1.15
Case Else
MsgBox i * 1.1
End Select
End Sub
我运行后输入1000，本以为会输出1200但结果输出了1100，请老师指教
分享到：
