VBS如何判断某一个值是否属于某一个集合的元素？

来源：百度知道编辑：UC知道时间：2024/04/28 07:35:16

我写了一个select case语句，这里的case值只有1，2和3，我想在前面加一个判断语句，判断如果用户输入的不是1，2或3这三个数字，则自动将教程程序跳转到开始时候的界面，如果输入的是1，2或3这三个数字中的任意一个，则教程根据选择执行相应的语句？请问该如做！谢谢了~！我的脚本如下：

call Form_Click()

Private Sub Form_Click()
a = InputBox("请输入1，2或3做选择","case语句的用法")
Select Case a
Case 1
msgBox("你选择的是 1")
Case 2
msgBox("你选择的是 2")
case 3
msgBox("你选择的是 3")
case else
msgBox("这里只许输入数字123")
end select

end Sub
谢谢落VS寂的回答，但有个问题哦，那个界面不是有“确定”和“取消”两个选项吗？如何得到他们的返回值呢？就是我点击“取消”按钮，她就关闭当前对话框，还有我点击对话框上面的那个红叉她也关闭当前的对话框，该如何实现啊？你给的答案挺好，就是当我什么也不输入或输入错误，她就成了一个死循环，关不掉了！我是个菜鸟，请你不吝赐教~！

什么数字都不输入的话点确定返回null 点取消或叉返回empty

call Form_Click()

Private Sub Form_Click()
do while a<>"1" and a<>"2" and a<>"3"
a=InputBox("请输入1，2或3做选择","case语句的用法")
Select Case a
Case 1
msgBox("你选择的是 1")
Case 2
msgBox("你选择的是 2")
case 3
msgBox("你选择的是 3")
case empty
exit sub
case else
msgBox("这里只许输入数字123")
end select
loop
end Sub

怎样判断一个数组中是否包含某一个变量如何隐藏某一个分区怎么判断some表示的是某一个如何禁止打开某一个网页 asp如何清除某一个Session asp 中用SQL 语句先判断数据库中某一个表是否为空应该怎么写? ACCESS数据库中如何自动计算某一个字段的值？请问如何禁止注册表中某一个值的变化 c# winform问题,如何读取xml文件的某一个值在计算机中如何判断某一个字符是大写字母、小写字母还是数字？