求教 动态 数组 的问题

Question

大家告诉我该怎么设置~~~新手求教了。~~·
    Dim RS As New ADODB.Recordset
    Dim i As Integer
    Dim ii As Integer
    Dim iii As Integer
    Dim tx() As Integer   '题型（选择，判断，····）
    Dim zj() As Integer   '章节（1，2，3····）
    Dim nd() As Integer   '难度（难,中,易）
    For i = 0 To UBound(tx())
              ····    '设置题型
            For ii = 0 To UBound(zj())
                   ·····   '设置章节
                For iii = 0 To UBound(nd())
                       ·····   '设置难度
                  next iii
            next ii
    next i
                

Answer 1

redim nd( 0 to 新大小) as integer
..............

Answer 2

似乎采用交互的方式比较好:
    Dim tx() As String   '题型（选择，判断，····）
    i = 0
    xx = InputBox("输入题型")
    Do While Len(xx) = 0
        i = i + 1
        ReDim Preserve tx(i)
        tx(i) = xx
        xx = InputBox("输入题型")
    Loop

Answer 3

1楼回答正确，使用redim重新定义数组，具体用法搜一下就得了。