怎么编写vb

来源：百度知道 编辑：UC知道 时间：2024/05/16 20:38:29
编写程序实现语文成绩的排序.要求先输入学生的人数,然后依次输入每个学生的学号和语文成绩,最后按成绩高低输出各学生的名次、学号和成绩，成绩相同的则要求输出下面能相同的名次

Option Base 1
Private Sub Form_Load()
Dim i As Integer, n As Integer, m As Integer, iNum() As Integer, iScore() As Integer
n = InputBox("请数入学生的人数")
ReDim iNum(n), iScore(n)
For i = 1 To n
iNum(i) = Val(InputBox("请输入第" & i & "学生的学号"))
iScore(i) = Val(InputBox("请输入第" & i & "学生的语文成绩"))

Print iNum(i); iScore(i)
Next i

For i = 1 To n
For j = i + 1 To n
If iScore(i) < iScore(j) Then
m = iScore(i): x = iNum(i)
iScore(i) = iScore(j): iNum(i) = iNum(j)
iScore(j) = m: iNum(j) = x
End If
Next j
Print "名次:" & i & " 学号:" & iNum(i) & " 成绩:" & iScore(i)
Next i

For i = 1 To (n - 1)
If iScore(i) = iScore(i + 1) Then
Print "成绩相同的名次为:" & "第" & i & "和" & "第" & (i + 1) & "名"
End If
Next