Первый постер, не смог найти ответ на вопрос, что мне нужно.Я даже не знаю, работает ли этот код, потому что он продолжает давать мне «элемент данных не найден» при попытке вывести мою информацию в список.
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.Если бы кто-нибудь мог сказать мне, что я могу сделать, чтобы это исправить и вывести свои результаты, это было бы очень признательно!