Vba 如何将信息输出到列表框？

这个密码给了我

“找不到数据成员”

尝试将我的信息输出到列表框时

Dim CLASS（5）作为整数
Dim NUMOF为整数
将索引设置为整数
'初始化数组
索引=0
直到索引>4为止
类别（索引）=0
索引=索引+1
环
'来自用户的第一个输入
NumoFatten=InputBox（“有多少人将参加课程？（555人退出”）
直到NUMOFATTE=555为止
Class瑜珈（Numofatch-1）=Class瑜珈（Numofatch-1）+1
NumoFatten=InputBox（“有多少人将参加课程？（555人退出”）
环
"展示,
索引=0
lstYoga.RowSource=vbNullString
直到索引>4为止
lstjoga.AddItem（（索引+1）和“服务员：*”classjoga（索引））
环

它在

.rowsource

和

.additem

函数中返回错误

---

如何输出我的结果？

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

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

更正了这一点，但我仍然得到“未找到方法或数据成员”的编译错误，它指向lstyoga.rowsource和.additem作为错误的罪魁祸首。尝试此lstyoga.RowSourceType=“价值清单"您也可以从编辑器中更改RowSourceType，我已经测试了您的代码，并且在修复增量后可以工作。@HansUp有一个显式命名的listbox，但显式选项不是in@JasonK.除了增量之外，您还更改了其他内容吗？更正了，但我仍然得到了编译错误“找不到方法或数据成员”，并且lstyoga.rowsource和.additem上的int是错误的罪魁祸首。请尝试此lstyoga.RowSourceType=“值列表”您也可以从编辑器中更改RowSourceType，我已经测试了您的代码，并且在修复增量后可以工作。@HansUp有一个显式命名的listbox，但显式选项不是in@JasonK.除了增量之外，您还更改了其他内容吗？