Question

在用VB写个小文件 一个combo，两个option，一个text

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
If Option1.Value = True Then
Text1.Text =

Case 1
Text1.Text = "90"
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "a"
Combo1.AddItem "b"

End Sub

选择a，option1为true时test1显示为100乘以100%的值，option2为true时显示为100乘以70%的值
选择B就不用写了。

Answer 1

这个UC方面有点问题，如果你点了Combo 但是没做出选择（实际上根本来不及选择）然后就会是combo.listIndex=-1 结束。因为点的没有系统运行的快。。不太好点选。而且想要实现运行的逻辑，需要先选择OptionButton 然后再选Combo，不然选完Combo后，两个Option都是False。
建议改成Combo1_Change。
然后是你的问题：
dim a as integer
a=100
。。。。。。。。。
case 0
if option1.value=True then
text1.value=a
elseif option2.value=True then
text1.value=a*0.7
elseif option1.value=false and option2.value=false then
msgbox("请选择option选项")
end if
。。。。。。。。。

追问

text1没有value....如果用text代替也无法计算。

追答

???有啊textbox1.value=a 不就是 text1=100*100%么只是输出用啊。参与计算 如果textbox里是数字的话也可以计算啊
CLng(textbox.text) 就变成长整型了，可以计算啊

Answer 2

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Dim CurValue as double = cdbl(Text1.Text)'我没写是否数字的检测程序
If Option1.Value = True Then
Text1.Text = CurValue * 100'(100%)
Else
Text1.Text = CurValue * 70'(70%)
End if

Case 1
Text1.Text = "90"
End Select
End Sub

追问

无法实现，在dim 那部有error