以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]学科排名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185708)
--  作者：miaoqingqing
--  发布时间：2023/3/11 18:25:00
--  [求助]学科排名
求助，当前行 根据 语文数学英语物理化学 分数从大到小排序后，求助学科排名列自动录入：学科排名
列名 语文 数学 英语 物理 化学 学科排名
第一行分数 132 147 145 97 97 数学英语语文物理化学
第二行分数 134 140 142 94 96 英语数学语文化学物理

[此贴子已经被作者于2023/3/11 18:43:45编辑过]
--  作者：chnfo
--  发布时间：2023/3/11 23:02:00
--  
Dim nms() As String = {"A","B","C"} \'学科
Dim vals() As Integer = {8, 6, 7} \'对应分数
vals.sort \'分数升序
vars.reverse \'分数倒序
Array.Sort(vals, nms) \'第一个数组为排序数组,第二个数组跟随第一个数组排序
s=string.join("|",nms) \'将数组转成字符



[此贴子已经被作者于2023/3/12 9:40:58编辑过]
--  作者：有点蓝
--  发布时间：2023/3/12 20:34:00
--  
Dim d As New SortedDictionary(Of Integer, String)
dim r as row = tables(xx).current
For Each s As String In {"语文", "数学",....} \'学科
    d.Add(r(s), s)
Next
Dim ss() As String = d.Values.ToArray()
Output.Show(String.join("", ss))