如何设计一个唱歌比赛的排名程序

VB的。！
直接用gridview，用一个三个文本框+一个按钮来增加记录，点击计算后，用排序函数就可以了（排序函数基本都一样的），结果用另一个gridview来显示。关键点：gridview控件的使用（增加记录，读取记录）、排序函数
QQ群21612476信息时代,欢迎大家加入讨论

VB编写一个歌唱比赛成绩统计程序

Option Base 0
Dim s(5, 10) As Single
Dim str1 As String
Private Sub Command1_Click() '输入选手成绩
i = Val(InputBox("请输入先手抽签号(1-5)"))
If i < 1 Or i > 5 Then Exit Sub
s(i, 0) = i
For j = 1 To 6
s(i, j) = Val(InputBox("请输入 " & j & "号裁判的打分(10分)"))
If s(i, j) > 10 Or s(i, j) < 0 Then j = j - 1
Next j

smin = 10
smax = 0
ss = 0

str2 = s(i, 0) & Chr(9)
For j = 1 To 6
str2 = str2 & CStr(s(i, j)) & Chr(9)
ss = ss + s(i, j)
If s(i, j) > smax Then smax = s(i, j)
If s(i, j) < smin Then smin = s(i, j)
Next j
s(i, 7) = smin
s(i, 8) = smax
s(i, 9) = (ss - smin - smax) / 4
Print str1
Print str2 & s(i, 7) & Chr(