Question

请问VB中 select case 的用法

select case year
case year mod 400 =0
这个语法会错吗？
还有，CASE YEAR 和IF 的用法有什么区别啊？是不是都可以用？
我想问下一下if代码转为select case应该怎么写
Dim year as integer
year=val(text1.text)
if year mod 400=0 then
b="闰年"
elseif year mod 100<>0 and year mod 4= 0 then
b="闰年"
else
b="不是闰年"
end if
text2.text=b
end sub

Answer 1

a=3
select
case
a
case
1
str="1"
case
2
str="2"
case
3
str="3"
case
4
str="4"
case
else
str="else"
end
select
结果str="3"

Answer 2

Select Case '表达式或值
Case '表达式或值
'语句
Case '表达式或值
'语句
'……
End Select

Select Case一行中的表达式或值与Case一行中的表达式或值相同时条件成立，执行相应的语句，举例：
例一：
Select Case Year
Case 2009
msgbox "今年是2009年"
case 2010
msgbox "今年是2010年"
end select
'结果为弹出对话框 “今年是2009年”

例二
Select Case 0
Case 1+2
msgobx "1+2=0"
case 2-2
msgbox "2-2=0"
end select
'结果为弹出对话框 “2-2=0”

例三
select case false
case true and true
msgbox "True And True"
case false and false
msgbox "False And False"
end select
'结果为弹出对话框 “False And False”

'------------------------------------------------------------------
'你的If语句可以改为这样
Private Sub Command1_Click()
Dim int_year As Integer '因为year本身是VB函数了，所以声明变量时不要再用year了
int_year = Val(Text1.Text)

Select Case True '成立条件为True
Case int_year Mod 400 = 0 '逻辑运算表达式
b = "闰年"
Case int_year Mod 100 <> 0 And int_year Mod 4 = 0 '逻辑运算表达式
b = "闰年"
Case Else '表达式
b = "不是闰年"
End Select

Text2.Text = b
End Sub