查看: 759|回复: 12
如何能查询学生各科成绩的排名名次？
阅读权限20
在线时间 小时
本帖最后由 陈蕾 于
16:57 编辑
(22.18 KB, 下载次数: 27)
20:11 上传
点击文件名下载附件
阅读权限20
在线时间 小时
本帖最后由 lq93808-2 于
21:21 编辑
用姓名查询到的问题:姓名相同时会出现那一个?
姑且按你的要求做了一个,代码在附件中,请查看.
21:21 上传
点击文件名下载附件
23.63 KB, 下载次数: 18
阅读权限90
在线时间 小时
是班级名次还是年级名次？都不说清楚
阅读权限20
在线时间 小时
分数相同时并列多少名，还是以什么来排名？
阅读权限30
在线时间 小时
按班级排了一下名将，成绩相同，名次相同，另外，改了窗体，你可自行改回去，见附件：
(37.97 KB, 下载次数: 26)
00:43 上传
点击文件名下载附件
阅读权限20
在线时间 小时
用姓名查询到的问题:姓名相同时会出现那一个?
姑且按你的要求做了一个,代码在附件中,请查看.
lq93808-2老师，不是这个意思！假如查询一个学生，那么这个学生的语文成绩在所有学生语文的成绩中应该排第几名，如果语文分数最高，那么就是第一名，那么就应在语文下面的文本框填上1，以此类推，不知我说得明白不明白？
阅读权限20
在线时间 小时
按班级排了一下名将，成绩相同，名次相同，另外，改了窗体，你可自行改回去，见附件：
hyefeifei老师，是这个意思，谢谢你！！！
阅读权限20
在线时间 小时
分数相同时并列多少名，还是以什么来排名？
siit老师，是以分数来排名次，如果是张三学生语文得分是85分，那么在所有学生的语文分数中是排第几名，以此类推！
阅读权限20
在线时间 小时
是班级名次还是年级名次？都不说清楚
huang1314wei老师，怪我没有说清楚。如果查询一个学生，那么这个学生的语文成绩在所有学生语文的成绩中应该排第几名，如果语文分数最高，那么就是第一名，那么就应在语文下面的文本框填上1，以此类推，不知我说得明白不明白？
阅读权限95
在线时间 小时
Public d As Object
Private Sub cbo_bj_Change()
&&With Me
& & With .cbo_xm
& && &.List = d(Me.cbo_bj.Text).keys
& && &.ListIndex = 0
& & End With
&&End With
End Sub
Private Sub cbo_xm_Change()
&&With Me
& & brr = d(.cbo_bj.Text)(.cbo_xm.Text)
& & For j = 1 To UBound(brr)
& && &.Controls(&TextBox& & j).Value = brr(j)
& & Next
&&End With
End Sub
Private Sub UserForm_Initialize()
&&Dim r%, i%
&&Dim arr, brr
&&Set d = CreateObject(&scripting.dictionary&)
&&With Worksheets(&sheet1&)
& & r = .Cells(.Rows.Count, 1).End(xlUp).Row
& & arr = .Range(&a3:m& & r)
&&End With
&&ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) - 4)
&&For j = 5 To UBound(arr, 2)
& & d.RemoveAll
& & For i = 1 To UBound(arr)
& && &d(arr(i, j)) = d(arr(i, j)) + 1
& & Next
& & kk = d.keys
& & nn = 1
& & For k = 0 To UBound(kk)
& && &mm = Application.Large(kk, k + 1)
& && &ss = d(mm)
& && &d(mm) = nn
& && &nn = nn + ss
& & Next
& & For i = 1 To UBound(arr)
& && &brr(i, j - 4) = d(arr(i, j))
& & Next
&&Next
&&d.RemoveAll
&&For i = 1 To UBound(arr)
& & If Not d.exists(arr(i, 3)) Then
& && &Set d(arr(i, 3)) = CreateObject(&scripting.dictionary&)
& & End If
& & d(arr(i, 3))(arr(i, 1)) = Application.Index(brr, i, 0)
&&Next
&&With Me
& & With .cbo_bj
& && &.List = d.keys
& && &.ListIndex = 0
& & End With
&&End With
End Sub
复制代码
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师2015考研成绩查询时间,2015考研成绩查询网站,2015研究生考试成绩查询,2015年考研成绩查询,2015考研初试成绩查询-跨考研招网
2015年34所高校及国家复试分数线
34所自主划线高校分数线（黑色字体表示2015年分数线公布时间已确定，红色字体表示分数线已发布）
历年考研国家分数线
各高校2015年考研成绩查询信息（红色：表示统考成绩或专业课成绩已公布）
高校研招办联系方式
最新2015考研成绩：
2015考研复试分数线：
微博分享考分
| | | | | | | |
跨考全国分校：
研友交流QQ群：经济学： 管理学： 金融硕士： 医学： MPAcc：
跨考咨询：400-668-2155（免长途费）； 专业课资料咨询QQ:&
手机版地址：http://wap.
代理合作电话：010-
Copyright &
All Rights Reserved& &京ICP备号-3请问怎样才能查到期末考试成绩单呢?_百度作业帮
遗失后的o_O记忆
不是回学校拿的嘛
还没开学了，人家不给了
那你就等开学，一般小学是查不到的吧，除非你们老师发到网上
初中也一样啊，除非老师发了否则不能知道的
嗯嗯～是家长吧
能采纳下不
嗯嗯～谢谢
你的回答完美的解决了我的问题，谢谢！
打电话问老师
你老师有没有qq
要么再打一个去呗
那你心里不是滋味啊
我的压力还不是很大，考不进前三名就很惨
打了没人接
扫描下载二维码学生成绩查询
成绩查询系统
湖北城市建设职业技术学院 教务处
注意：中专部学生请先选择基础课部，然后在专业中选择中专部。
第一步、请选择系部：
请选择系部……
建筑工程系
环境艺术系
信息工程系
经济管理系
Loading...
第二步、请选择专业：
请选择专业……
Loading...
第三步、请选择班级：
请选择班级……
第四步、请输入姓名：}