[求助]分班的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我有一个表格"测试"中A列为人员姓名，人数为p，如下图：

此主题相关图片如下：11.png

想要在B列将班级名称输入进去，班级名称放在集合lst里，每个班级的人数放在数组bs()里,数组里的所有数之和等于p。最终要得到以下的结果：

此主题相关图片如下：22.png

请问这个循环怎么写

Dim Lst As New List(Of String) '设定一个班级名集合

Dim p As Integer = Lst.Count '设定班级总数量的变量

Dim n As Integer = Tables("测试").Rows.Count '总人数

Dim bs(p) As Integer'设定一个班级人数数组

For g As Integer = 0 To p - 1

MessageBox.Show ( Lst(g) & "班人数：" & bs(g))

For k As Integer = 0 To n - 1

Dim r As Row = Tables("测试").Rows(k)

r("B") = Lst(bs(g))

主题：[求助]分班的问题