Question

vb怎么用select case语句选择option

Private Sub Command1_Click()
a = Val(Text1)
Select Case b
Case Option1.Value = True
b = 2500 * a * 0.92
Case Option2.Value = True
b = 2500 * a
Case Option3.Value = True
b = 2500 * a * 0.92
Case Option4.Value = True
b = 2500 * a * 0.85
End Select
Text2 = b
End Sub
哪里错了

Answer 1

弄颠倒了！！！
Select Case 某变量名（或某对象的属性值等）
Case 数值1
......
Case 数值2
......
Case 数值3

......
End Select

我举个例子：
输入一个数据保存到变量 d
那么可以判断d的值，根据d的数据，进行不同的处理
Select Case d
Case 1
Msgbox "你输入的是1"
Case 2
Msgbox "你输入的是2"
Case 3
Msgbox "你输入的是3"
End Select

你现在的问题是，要根据4个单选按钮的选中情况，做处理，用这个语句不对路！
解决方法：
1，用If语句嵌套
2，把单选按钮改成控件组。就方便得多。
3，声明一个模块级变量OPn，在单选按钮的单击事件里，加上语句，用来存储是哪个按钮被选中了。
例如：
Private Sub Option1_Click()

OPn = 1
End Sub
Private Sub Option2_Click()

OPn = 2
End Sub
Private Sub Option3_Click()

OPn = 3
End Sub
Private Sub Option4_Click()

OPn = 4
End Sub

这样，根据OPn值判断，可以用Select语句
Select Case Opn
Case 1
Msgbox "单选按钮1被选中！"
Case 2
Msgbox "单选按钮2被选中！"
Case 3

Msgbox "单选按钮3被选中！"
Case 4

Msgbox "单选按钮4被选中！"
End Select

Answer 2

手机回的，改一个地方，其他你自己改:

select case TRUE

case option1.value,option3.value

b=2500*a*0.92

case option2.value

b=...