Question

用VB编写程序1.输入某班级学生的姓名，分数;2.对1的分数进行排序，按分

数从大到小输出。

Answer 1

Private Sub Command1_Click()
Dim a(50) As String, b(50) As Integer
n = CInt(InputBox("班级人数="))
For i = 1 To n
a(i) = InputBox("No." & i & "姓名：")
b(i) = InputBox("No." & i & "成绩：")
Next i
For i = 1 To n - 1
For j = 1 To n - 1 - i
If b(j) < b(j + 1) Then
a(0) = a(j): a(j) = a(j + 1): a(j + 1) = a(0)
b(0) = b(j): b(j) = b(j + 1): b(j + 1) = b(0)
End If
Next j
Next i
For i = 1 To n
Print a(i), b(i)
Next i
End Sub