两个下拉列表甲和乙，乙列表的内容，由甲选中的项确定，如何实现？

Question

如给定一个文件data.dat,内容如下：a       1
a       2
a       5
b       70
b       1
b       6
b       2
点击下拉列表甲，有选项a和b,
选中b,
则乙下拉列表中的项变为70,1,6,2四项
缺省：甲列表已选中a，乙列表已选中1

Answer 1

combobox1,combobox2private sub combobox1_click()
 if combobox1.text="a" then
    combobox2.clear
    combobox2.additem "1"
    combobox2.additem "2"
    combobox2.additem "5"
 end if
 if combobox1.text="b" then
    combobox2.clear
    combobox2.additem "70"
    combobox2.additem "1" 
    combobox2.additem  "6"
    combobox2.additem  "2"
 end ifend sub

Answer 2

Private Sub Combo1_Click()
With Combo2
    Select Case Combo1.Text
    Case "a"
        .Clear
        .AddItem "1"
        .AddItem "2"
        .AddItem "5"
    Case "b"
        .Clear
        .AddItem "70"
        .AddItem "1"
        .AddItem "6"
        .AddItem "2"
    End Select
 End With
End SubPrivate Sub Form_Load()
Combo1.AddItem "a"
Combo1.AddItem "b"
combo1.text="a"
combo2.text="1"
End Sub

Answer 3

首先谢谢两位的回答。
请问
两个combobox的数据能否从一个文件（如：data.dat）中读入？data.dat的内容：a       1
a       2
a       5
b       70
b       1
b       6
b       2

Answer 4

首先引用microsoft scripting runtimeOption Explicit
Dim ArrayX() As String, i As Integer '模块级变量Private Sub Combo1_Click()
Dim j As IntegerWith Combo2
    Select Case Combo1.Text
    Case "a"
        .Clear
        For j = 1 To i
            If ArrayX(1, j) = "a" Then
                .AddItem ArrayX(2, j)
            End If
        Next j
    Case "b"
        .Clear
        For j = 1 To i
            If ArrayX(1, j) = "b" Then
                .AddItem ArrayX(2, j)
            End If
        Next j
    End Select
 End With
End SubPrivate Sub Form_Load()
Dim fs As New FileSystemObject, a, retstring, txtname
txtname = "c:\data.dat"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(txtname, ForReading, False)'input data into AarrayX
i = 0
Do While a.AtEndOfLine <> True
    retstring = a.ReadLine
    
    i = i + 1
    ReDim Preserve ArrayX(1 To 2, 1 To i) As String
    ArrayX(1, i) = Left(retstring, 1)
    ArrayX(2, i) = Trim(Right(retstring, 2))
    
Loop
a.Close
Combo1.AddItem "a"
Combo1.AddItem "b"
Combo1.Text = "a"
Combo2.Text = "1"
End Sub