Question

关于VBA中select循环语句的问题，请高手帮我解答一下。

我在一个用户窗体里的一个复合框里输入以下代码：
Private Sub ComboBox2_Change()
Dim a, c As Integer
Dim b As Object
a = TextBox5.Value
b = ComboBox2.Value
Select Case a And b
Case a <= 6 And b = "月"
c = 0.056
ListBox3.Clear
ListBox3.AddItem c
Case a > 6 And a < 12 And b = "月"
c = 0.06
ListBox3.Clear
ListBox3.AddItem c
Case a > 1 And a <= 3 And b = "年"
c = 0.0615
ListBox3.Clear
ListBox3.AddItem c
Case a > 3 And a <= 5 And b = "年"
c = 0.064
ListBox3.Clear
ListBox3.AddItem c
Case a > 5 And b = "年"
c = 0.0655
ListBox3.Clear
ListBox3.AddItem c
End Select
End Sub
但是结果却报错

还请高手指教一下。

Answer 1

首先，你的b设置为对象变量就是个错误
你看下这样可以吗？
Private Sub ComboBox2_Change()
Dim a, c As Integer
Dim b As String
a = TextBox5.Value
b = ComboBox2.Value
If b = "月" Then
If a <= 6 Then
c = 0.056
ElseIf a > 6 And a < 12 Then
c = 0.06
End If
ElseIf b = "年" Then
If a > 1 And a <= 3 Then
c = 0.0615
ElseIf a > 3 And a <= 5 Then
c = 0.064
ElseIf a > 5 Then
c = 0.0655
End If
End If
ListBox3.Clear
ListBox3.AddItem c
End Sub

追问

非常感谢你的帮助，按照你的方法，已经不跳出错误的问题了。但是出了个新问题如下图：

其中的a=textbox5.value相当于图中的3那个格子，b=combobox2.value相当于图中选择的“月”，最后那个listbox3显示为0，这个我就没有搞懂了。不知道是为什么。

追答

你把那个listbox3改用textbox控件试下，不明白你这什么要用listbox控件。

追问

主要是我想用listbox来显示计算的结果。

追答

显示一个结果，不需要listbox

追问

是吗？我一直用的是listbox，请教一下用哪一个控件比较好？非常感谢！
急！！