如何根据分数生成“考场”“考号”

xuexi8

各考场位置及人数
考场         位置         人数
1               416班         40
2               417班         56
3              418班         56
4              419班         56
5              422班         56


学生成绩

班     学号         姓名         分数

416  41623       严雨蒙     674

416  41601       范丽凤     673.5

417  41768       赵佳曦     673.5

416  41603       范韶迪     658

419  41944       马朋         657.5

418  41841       尤鹏杰     656

416  41636       吕思尧     655.5

419  41948       范雄杰     655.5

根据学生成绩，把第1名排在第1考场第1号，考场为“01”，考号为“01”，第2名考场为“01”考号为“02”，……，第1考场排满后排第2考场，依次类推。如果出现分数相同的，两个人，比如范丽凤和赵佳曦，谁靠前也无所谓。

严雨蒙的考场、考号分别为：01、01
范丽凤的考场、考号分别为：01、02
赵佳曦的考场、考号分别为：01、03
……

请高手指点，如何生成几千人的考场和考号？

roych

新建一个模块，把这段代码贴上，按下F5键运行试试看。

1. Sub test()
   
2. Dim rst1 As New ADODB.Recordset
   
3. Dim rst2 As New ADODB.Recordset
   
4. Dim rst3 As New ADODB.Recordset
   
5. Dim i As Long, j As Long
   
6. rst1.Open " SELECT * FROM 学生 ORDER BY 学生.分数 DESC", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. rst2.Open "考场考号", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8. rst3.Open "考场", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
9. For i = 1 To rst3.RecordCount
   
10.     For j = 1 To rst3(3).Value
    
11.         On Error Resume Next
    
12.             rst2.AddNew
    
13.             rst2(0) = rst1(1)
    
14.             rst2(1) = rst1(2)
    
15.             rst2(2) = rst3(1)
    
16.             rst2(3) = Format(j, "00")
    
17.             rst2.Update
    
18.             rst1.MoveNext
    
19.     Next j
    
20.     rst3.MoveNext
    
21. Next i
    
22. rst1.Close
    
23. rst2.Close
    
24. rst3.Close
    
25. End Sub

复制代码

之前曾做过一个随机安排考场的实例，比这个复杂一些，如有兴趣，可以店家下面链接（附件需要注册才能下载）查看：
http://www.access-cn.com/thread-98298-1-1.html

xuexi8

不试了试不行，谢谢！看了看您的链接，谢谢！

xuexi8

问题解决。