请问VB中 select case 的用法46

发布网友 发布时间：2023-10-16 11:19

我来回答

共5个回答

热心网友 时间：2024-10-21 03:27

这里不是不能用select case写，而是if和select case适用于不同的选择中。在这道题中，使用if显得条理很清楚，使用的语句也少。而使用select case显得太麻烦和不可理喻，请看：
rivate Sub Form_Click()
Dim year As Integer, b As String
year = Val(Text1.Text)
Dim x400 As Integer, x100 As Integer, x4 As Integer
x400 = year Mod 400
x100 = year Mod 100
x4 = year Mod 4
Select Case x400
Case 0
b = "闰年"
Case Else
Select Case x100
Case 0
b = "不是闰年"
Case Else
Select Case x4
Case 0
b = "闰年"
Case Else
b = "不是闰年"
End Select
End Select
End Select
Text2.Text = b
End Sub
简直是一材乱麻，做你这道题，我自己都快搞晕了，不过执行起来是完全正确的。已经运行过了。

热心网友 时间：2024-10-21 03:27

不对的，case是对一个值的大小范围检测的，你这里不是对year检测。而是对 year mod 400=0 这个逻辑计算式进行检测！
case 里面只能是:case 数值 、case is >（<,>=,<=)数值、case 数值 to 数值

热心网友 时间：2024-10-21 03:28

Dim day As String = "2"

Select Case day
Case "1"
<----------------->
Case "2"
<----------------->
Case "3"
<----------------->
Case "4"
<----------------->
End Select

用IF的话

if day = "1" then
<----------------->
elseif day = "2" then
<----------------->
elseif day = "3" then
<----------------->
elseif day = "4" then
<----------------->
end if

热心网友 时间：2024-10-21 03:28

private
sub
command1_click()
dim
k
as
integer
k
=
val(text1.text)
select
case
k
case
is
>=
90
text2.text
=
"a"
case
80
to
90
text2.text
=
"b"
case
70
to
80
text2.text
=
"c"
case
60
to
70
text2.text
=
"d"
case
is
<
60
text2.text
=
"e"
end
select
end
sub

热心网友 时间：2024-10-21 03:29

Select
Case
表达式
Case
值1
程序1
Case
值2
程序2.
.
.
Case
Else
其他程序
End
Select