pggw.net
当前位置:首页 >> vB中sElECt CAsE >>

vB中sElECt CAsE

是一种条件语句,类似IF语句 例如:select case X case X mod2=0 msgbox “偶数" case else msgbox "奇数" end select 上面一个一句就是判断X是奇偶数的问题

语法 Select Case <指示变量或表达式><默认语句组,以上语句组都因情形不符合实际时执行> End Select 其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用逗号(英文)连接.当省略Case Else语句并且语句组都因情形不符

[Case Else[elsestatements]]End SelectSelect Case 语句的语法具有以下几个部分:部分 描述testexpression 必要参数.任何数值表达式或字符串表达式.expressionlist-n 如果有 Case 出现,则为必要参数.其形式为 expression,expression To

这里不是不能用select case写,而是if和select case适用于不同的选择中.在这道题中,使用if显得条理很清楚,使用的语句也少.而使用select case显得太麻烦和不可理喻,请看:rivate Sub Form_Click() Dim year As Integer, b As String year =

就是条件判断和IF ELSE的作用是一样的 通常用来对常量进行判断

select case a 意思就是判断a是什么内容.然后根据不同内容执行不同的代码.如:select case a case "李" '注:当a="李"时,执行下面这句: msgbox "他是姓李的" case "543" '注:当a="543"时,执行下面这句: msgbox "哈哈,a的内容是543" case else 'a为其它内容时,执行下面这句: msgbox "a是什么东东哦~" end select '结束判断

Private Sub Form_Click() Dim A '变量 A Select Case A '(根据A的大小)自动选择 Case 1 '如果A不是1就跳到下一个Case,如果A是1则: Case 3 '如果A不是3就跳过,如果A是3则:End Select ' 下面没有Case了.End Sub'相当于:-------------

在 select case end select语句中, Select Case Text1.TextCase Like "*a*" 不需要再次在case后面指名text1.text了

复制下面这段代码: Private Sub Form_Click() Dim a a = InputBox("请输入你要查看星期几的教师值班安排") Select Case a Case 1, 3, 5 MsgBox "星期一、三、五由张老师值班" Case 2, 4, 6 MsgBox "星期二、四、六由李老师值班"

Private Sub Command1_Click()Dim k As Integerk = Val(Text1.Text)Select Case kCase Is >= 90Text2.Text = "A"Case 80 To 90Text2.Text = "B"Case 70 To 80Text2.Text = "C"Case 60 To 70Text2.Text = "D"Case Is < 60Text2.Text = "E"End SelectEnd Sub

网站首页 | 网站地图
All rights reserved Powered by www.pggw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com