VB中的Select Case语句能不能举例子啊？

 我来答

4个回答

#热议# 为什么有人显老，有人显年轻？

四舍五不入6

高粉答主

2020-01-02 · 还没有填写任何签名哦

四舍五不入6

采纳数：27 获赞数：71380

向TA提问私信TA

关注

展开全部

举例如下：

Private Sub Form_Click()

Dim a As Integer

a = InputBox("请输入一个数：")

Select Case a

Case Is > 0

MsgBox "是正数"

Case Is < 0

MsgBox "是负数"

Case Else

MsgBox "是零"

End Select

End Sub

扩展资料：

参数

testExpression：必要参数，任何数值表达式或字符串表达式。

expression：如果有Case出现，则为必要参数。

statements：可选参数，一条或多条语句，当 testExpression 匹配 expression 中的任何部分时执行。

elseStatements：可选参数，一条或多条语句，当 testExpression 不匹配 Case 子句的任何部分时执行。

参考资料来源：百度百科-Select Case

已赞过 已踩过<

评论收起

苏州蓝晓生物科技有限公司_
2022-08-05 广告

苏州蓝晓生物科技有限公司。标准化核心产品：公司拥有完整的琼脂糖介质、葡聚糖介质、聚甲基丙烯酸酯介质生产线，年产分离介质50000L，产品质量稳定并达到国际领先水平。核心优势：公司核心技术人员拥有近二十年不同基质的基球开发和官能化的丰富技术经... 点击进入详情页

本回答由苏州蓝晓生物科技有限公司_提供

匿名用户
2013-07-06

展开全部

比如在一个文本框里输人一个分数，按一下按钮，根据分数判断出级别，代码如下：

Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case 0 To 59
MsgBox ("不及格")
Case 60 To 79
MsgBox ("及格")
Case 80 To 89
MsgBox ("良好")
Case 90 To 100
MsgBox ("优秀")
Case Else
MsgBox ("输人不正确，请重新输人！")
End Select
End Sub

已赞过 已踩过<

评论收起

匿名用户
推荐于2017-11-28

展开全部

Private Sub Form_Click()
    Dim a As Integer
    a = InputBox("请输入一个数：")
    Select Case a
        Case Is > 0
            MsgBox "是正数"
        Case Is < 0
            MsgBox "是负数"
        Case Else
            MsgBox "是零"
    End Select
End Sub


本回答被网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起