Dim f(1 To 200) As String
Dim n As Integer
Dim m As Integer
Dim o As Integer
Dim g(1 To 200) As Integer
Dim i As Integer
Dim u As Integer
Dim v As Integer
Private Sub Command1_Click()
Dim a, b, c, t As Integer
Dim p As String
For a = 2 To i
For b = n To a Step -1
If g(b) > g(b - 1) Then
p = f(b): f(b) = f(b - 1): f(b - 1) = p
t = g(b): g(b) = g(b - 1): g(b - 1) = t
End If
Next b
Next a
List1.Clear
For a = 1 To i
List1.AddItem (Str(a) + ": " + f(a) + " " + Str(g(a)))
Next a
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
n = n + 1: f(n) = Text1.Text
Text1.Text = ""
Text2.Enabled = True
Text1.Enabled = False
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If 0g(e - 1) Then
l = f(e): f(e) = f(e - 1): f(e - 1) = l
k = g(e): g(e) = g(e - 1): g(e - 1) = k
End If
Next e
Next d
List2.Clear
For d = 1 To u
List2.AddItem (Str(d) + ": " + f(d) + " " + Str(g(d)))
Next d
End Sub
Private Sub Command12_Click()
Dim avf As Integer
For u = 1 To u
Sum = Sum + g(u)
avf = Sum / u
Next u
List7.AddItem avf
End Sub
这是我程序中语文和数学成绩的输入,请各位高手帮我写一段计算每个人的语文和数学成绩的总和,并在一个控件里排一下序的程序,在下万分感激啊!!! 谢谢!!!