vb帮忙看一下有关学生成绩输出排顺序的代码，特别感谢

试编写程序,利用 InputBox函数输入n个学生的姓名和2门功课的成绩，求总成绩和平均成绩，按总成绩大小降序排序，按名次在窗体上输出成绩表（包括名次、学生姓名、2门功课的成绩、总成绩和平均成绩）。
Private Sub Form_Load()
Show
Print "---------------------------------"
Dim n As Integer
n = Val(InputBox("n", "学生人数"))
Dim j As Integer
ReDim strname(n) As String
For j = 1 To n
strname(j) = InputBox("请输入第（" & j & ")学生姓名")
Next j
Dim i As Integer
ReDim s(n) As Integer, p(n) As Double
ReDim strnum(n, 2) As Integer
For j = 1 To n
For i = 1 To 2
strnum(j, i) = InputBox("请输入(" & j & ")成绩(" & i & ")=")
Next i
Next j
For j = 1 To n
For i = 1 To 2
s(j) = strnum(j, 1) + strnum(j, 2)
p(j) = s(j) / 2
Next i
Next j
Print "名次" & Space(1) & "姓名" & Space(1) & "成绩1" & Space(1) & "成绩2" & Space(1) & "总成绩" & Space(1) & "平均分"
Dim c As Integ

帮忙看一下,有关vb的 VB学生成绩统计系统 帮忙看一下这个vb代码 帮忙看一下一段vb的代码 帮忙看一下；C++把三个数由小到大输出！！ 帮忙看一下这个c程序输出结果，谢谢！ 有关VB的问题，高手帮忙一下…… 大家帮忙看一下，有关英语语法问题 VB程序帮忙看了改一下，拜托了． 帮忙看一下这行VB代码错在哪？