1,451
社区成员
发帖
与我相关
我的任务
分享一个简单得不好意思问的问题？
我在一张表单上放置了一个编辑框text1及一个按钮控件Command1，在按钮控件的click事件中添加代码Dim x As Integer
x = Val(Text1.Text)
Rem 上面这句换成x=Text1.Text也一样
Select Case x
Case x < 60
Print "不及格"
Case x >= 80
Print "优秀"
Case Else
Print "一般"
End Select
End Sub
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
Select Case x
Case x < 60
Print "不及格"
Case x >= 80
Print "优秀"
Case Else
Print "一般"
End Select
End Sub
我想问的是当我在编辑框中输入98，为何还是打印“一般”？
x = Val(Text1.Text)
Rem 上面这句换成x=Text1.Text也一样
Select Case x
Case x < 60
Print "不及格"
Case x >= 80
Print "优秀"
Case Else
Print "一般"
End Select
End Sub
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
Select Case x
Case x < 60
Print "不及格"
Case x >= 80
Print "优秀"
Case Else
Print "一般"
End Select
End Sub
我想问的是当我在编辑框中输入98，为何还是打印“一般”？
...全文
请发表友善的回复…
发表回复
northwolves 2005-11-15
- 打赏
- 举报
Print IIf(x < 60, "不及格", IIf(x >= 80, "优秀", "一般"))
fishmans 2005-11-15
- 打赏
- 举报
select case 语句做范围判断应该用 IS
Tiger_Zhao 2005-11-14
- 打赏
- 举报
如果 x = 98
那么 case x<60
等于 case false
等于 case 0
x 当然不等于 0 了，其他同理。
仔细看帮助，应该改成
select case x
case is < 60
...
case is >= 80
...
case else
...
end select
那么 case x<60
等于 case false
等于 case 0
x 当然不等于 0 了，其他同理。
仔细看帮助，应该改成
select case x
case is < 60
...
case is >= 80
...
case else
...
end select
li_guang_hua 2005-11-14
- 打赏
- 举报
谢谢！！！
winehero 2005-11-14
- 打赏
- 举报
Select Case 不能用于范围值，这里只能使用If Then
If x<60 then
Print "不及格"
elseif x>=80 then
Print "优秀"
else
Print "一般"
end if
If x<60 then
Print "不及格"
elseif x>=80 then
Print "优秀"
else
Print "一般"
end if
li_guang_hua 2005-11-14
- 打赏
- 举报
不好意思，上面的代码被我多拷了一次，抱歉！！！
