学进去

按上述要求,编写一个VB程序,功能如下:在文本框Text1中输入排序前的成绩(每个成绩之间用若干空格隔开),例如“99 98 97 92 91 93”表示三位学生的物理和技术成绩分别为{99 98},{97 92},{91 93}。单击“排序”按钮后,排序结果显示在列表框List1中,程序运行界面如图所示。

Dim a(1 To 200) As Integer '存储成绩,成绩范围为[0,99]

Dim n As Integer, t As Integer, s_len As Integer

Dim i As Integer, j As Integer, k As Integer

Dim s As String, c As String

List1.Clear

s = Text1.Text

s_len = Len(s)

n = 0: t = 0

For i = 1 To s_len + 1

　　c = Mid(s, i, 1)

　　If i <= s_len And c >= "0" And c <= "9" Then

　　　_____

　　Else

　　　　n = n + 1

　　　　a(n) = t

　　　　t = 0

　　　　Do While i <= s_len And Not (c >= "0" And c <= "9")

　　　　　　i = i + 1

　　　　　　c = Mid(s, i, 1)

　　　　Loop

　　　　If i <= s_len Then_____

　　End If

Next i

n = n \ 2

For i = 1 To n

　　a(i * 2 - 1) = _____

Next i

For i = 1 To n - 1

　　k = i　________

　　For j = i + 1 To n

　　　　If a(k) < a(j * 2 - 1) Then k = j * 2 - 1

　　Next j

　　t = a(k)

　　a(k) = a(i * 2 - 1)

　　a(i * 2 - 1) = t

Next i

List1.AddItem "物理技术"

For i = 1 To n

　　a(i * 2) = a(i * 2 - 1) Mod 100

　　a(i * 2 - 1) = a(i * 2 - 1) \ 100

　　List1.AddItem Str(a(i * 2 - 1)) + " " + Str(a(i * 2))

Next i