设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2133|回复: 5
打印 上一主题 下一主题

[模块/函数] is 关键字的请教

[复制链接]
跳转到指定楼层
1#
发表于 2014-3-24 11:06:32 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我想测试一个变量是否大于某个值,测试如下。如果我输入15.当判断语句为case is>10时,显示结果为打印>10.如果将判断语句改为Case num1>10,观察变量num1明明为15,但显示结果为“other!”,也就是全部不符合条件。找不到Is关键字的解释,烦请高手解释下Is的使用,及num1>10为什么会不成立,谢谢!
Public Sub caseTest()
Dim num1 As Integer
num1 = InputBox("please input your test number: ")
Select Case num1
  Case Is > 10
‘Case num1>10
   Debug.Print "> 10"
   Case Is > 20
   Debug.Print "> 20"
   Case Is > 30
   Debug.Print "> 30"
   Case Else
    Debug.Print "other!"
    End Select
   
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
推荐
发表于 2014-3-24 12:09:35 | 只看该作者
前面的select case已经定义了变量num1,后面的case语句不需要再提到变量了,所以num1>10这样的句子是不对的
回复 支持 1 反对 0

使用道具 举报

点击这里给我发消息

2#
发表于 2014-3-24 11:19:27 | 只看该作者
Public Sub caseTest()
Dim num1 As Integer
num1 = InputBox("please input your test number: ")
Select Case num1
    Case Is > 30
       Debug.Print "> 30"
    Case Is > 20
       Debug.Print "> 20"
    Case Is > 10
       Debug.Print "> 10"
    Case Else
        Debug.Print "other!"
End Select
End Sub

没任何问题啊
3#
发表于 2014-3-24 11:23:01 | 只看该作者
本帖最后由 access学习交流 于 2014-3-24 11:24 编辑

http://www.office-cn.net/access/20131104/8320.html
select case 的用法

这个没有为什么的,语法就是这样,select case  后面就是的 case 条件的。
4#
 楼主| 发表于 2014-3-24 11:29:00 | 只看该作者
多谢各位的回答,我的问题是,我明明想测试num1这个值的大小。为什么当我用case num1>10来判断时,就不正确了。而要改成is>10,判断就正确了。
Public Sub caseTest()
Dim num1 As Integer
num1 = InputBox("please input your test number: ")
Select Case num1
  
  Case num1>10
   Debug.Print "> 10"
   Case Is > 20
   Debug.Print "> 20"
   Case Is > 30
   Debug.Print "> 30"
   Case Else
    Debug.Print "other!"
    End Select
   
End Sub
在这里is和num1是个什么样的关系?
6#
 楼主| 发表于 2014-3-24 12:22:34 | 只看该作者
多谢!我的理解,当值为单一数值,或为某个范围时,用case 1,2,40to50来判断,当需要用关系操作符判断时,例is>20时,需要用到is关键字,我试了=10,会直接修改为IS =10.再次感谢大家的帮助!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-6-16 15:12 , Processed in 0.096160 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表