涉及对两个不同类别进行排序的数组的赋值将不会显示输出

Question

第一次海报，找不到我需要的答案。我甚至不知道这段代码是否有效，因为它一直在给我“找不到数据成员”当我试图将我的信息输出到列表框时。

Dim ClassYoga(5) As Integer
Dim NumOfAttend As Integer
Dim index As Integer

'initialize array
    index = 0
    Do Until index > 4
    ClassYoga(index) = 0
    index = index + 1
Loop

'first input from user

NumOfAttend = InputBox("How many people will be attending class? (555 to quit")

Do Until NumOfAttend = 555
    ClassYoga(NumOfAttend - 1) = ClassYoga(NumOfAttend - 1) + 1

    NumOfAttend = InputBox("How many people will be attending class? (555 to quit")
Loop

'display

index = 0

lstYoga.RowSource = vbNullString

Do Until index > 4
    lstYoga.AddItem ((index + 1) & "Attendants :" * ClassYoga(index))
Loop

它不断返回.rowsource和.additem函数的错误。如果有人能告诉我我可以做些什么来修复它并输出我的结果，我们将不胜感激！

Answer 1

在最后一个do循环中，你不增加索引，