Question

请问一下VB中的select case的用法，我是初学者，麻烦高手师傅指点指点。

我们VB课程布置的作业中的题，我在寝室都改了一上午了，出现的问题还是一样。

题目：征兵条件是：男性18-20岁，1.65米以上；女性16-18岁，1.60米以上。编写程序，从键盘输入一个人的数据，判断是否符合条件。
我写的代码：
Private Sub Command1_Click()
Dim x As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
Select Case x
Case Option1
If a >= 18 And a <= 20 And b > 1.65 Then
MsgBox "符合征兵的条件"
Else
MsgBox "不符合征兵的条件"
End If
Case Option2
If a >= 16 And a <= 18 And b > 1.6 Then
MsgBox "符合征兵的条件"
Else
MsgBox "不符合征兵的条件"
End If
End Select
End Sub

可是运行之后每次都适得其反 这代码是不是完全写错了 T^T...
我不想去网上找别人的答案，想自己弄明白错在哪，免得下次又写错了，所以麻烦高手师傅们指点一下，我才开始学习VB，很多不懂的地方，如果这代码全错了，能不能帮我用正确的select case表示出来，真的谢谢了！！（要求有点多，请师傅们体谅初学者的求学心态~，还有我只有5分，全拿出来了。。。。）

Answer 1

function my_weekday(str)
if getstring(str)="nothing"then
str=now()
end if
temp_day=weekday(str)
select case temp_day
case 1
my_weekday = "星期日"
case 2
my_weekday = "星期一"
case 3
my_weekday = "星期二"
case 4
my_weekday = "星期三"
case 5
my_weekday = "星期四"
case 6
my_weekday = "星期五"
case 7
my_weekday = "星期六"
end select
end function

Answer 2

Option按钮的值在选中的时候是-1，未选中的时候是0.

建议你在点击按钮的事件中确定X的值。
Private Sub Option1_click()
x=1
end sub

Private Sub Option2_click()
x=2
end sub

然后再判定：

Private Sub Command1_Click()
select case x
case 1
If a >= 18 And a <= 20 And b > 1.65 Then
MsgBox "符合征兵的条件"
Else
MsgBox "不符合征兵的条件"
End If
case 2
If a >= 16 And a <= 18 And b > 1.6 Then
MsgBox "符合征兵的条件"
Else
MsgBox "不符合征兵的条件"
End If
End Select
end sub

追问

我按照您的建议做了，但是运行后点确定没有弹出符不符合征兵条件的窗口了。。。