[求助]这个程序怎么按要求建立一个insert过程啊?
有学生成绩如下所示:
姓名 平均分
张三 95
李四 85
王五 80
赵六 70
要求1、建立记录数组 编写 过程 实现以上数据的录入
2、对记录数组按平均分由高到低排序 用过程实现
3、建立一个insert过程,实现把一个新记录插入到已排好序的数组中指定位置P处,使新数组仍然按平均分有序
我的代码是:
Option Base 1
Private Sub Form_Click()
Dim m, x
m = Array("张三", "李四", "王五", "赵六")
x = Array(95, 85, 80, 70)
Print
Print , "名次", "学生姓名", "成绩"
Print
For i = 1 To 3
For j = i + 1 To 4
If x(i) < x(j) Then
t = x(i)
x(i) = x(j)
x(j) = t
t = m(i)
m(i) = m(j)
m(j) = t
End If
Next j
Print , i, m(i), x(i)
Next i
Print , 4, m(4), x(4)
End Sub
[此贴子已经被作者于2007-6-7 21:03:31编辑过]