主题：随机分班

请问：分班只是以分数和性别分班，能不能以：

分数、性别、生源地（如果太复杂可改为住宿、不住宿）、民族（汉族、少数民族）这四个因素分班。下面代码怎么改呢。

If  e.Form.Controls("Number").Value <= 0 Then
    MessageBox.Show("分班不能小等于1!","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
    Return
End If
DataTables("分班").DataRows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("分班")
f.Fill
Tables("分班").sort = "总分"
For i As Integer = 0 To Tables("分班").rows.count -1
    Tables("分班").Rows(i)("班级") = Format(1 + i Mod e.Form.Controls("Number").Value,"00")
Next
Tables("分班").sort = ""

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:随机分班.zip