10. 食堂排队买菜。食堂排队买菜时,每个同学都有一个窗口买菜时间,如果某同学的等待时间超过他在窗口买菜时间的3倍,他就会不愉快,反之是愉快的。等待时间是指排在该同学之前的所有人的买菜时间之和。已知每个同学在窗口的买菜时间,请确定如何排队才能使愉快的人数最多,并输出最多的人数。例如:10个同学的买菜时间如下表所示,则最多有8个人是愉快的。
学生编号 | l | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | l0 |
买菜时间 | 3 | 2 | 5 | 5 | 6 | 7 | 1 | 8 | 1 | 3 |
最终是否参与排队 | 是 | 是 | 是 | 是 | 否 | 是 | 是 | 否 | 是 | 是 |
Const n=10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer,a As Integer,ans As Integer,t As Integer
,读取每个学生的买菜时间,依次存储在数组a中,代码略
For i =1 To n-1
k = i
For j = n To i+1 Step-1
If
Then k = j
Next j
If a(i)<>a(k) Then t = a(i):a(i)=a(k):a(k)=t
Next i
s=0:ans=0
For i = 1 To n
If Then s=s+a(i):ans=ans+1
Next i
Label1.Caption="共有"+Str(ans)+ "个人是愉快的,且参与排队买菜。"
(1)代码“Private Sub Commandl_Click()”中的Command1是
_________(单选,填字母:A.对象名/B.事件名/C.事件处理过程名)
(2)请在划线处填入合适代码。
___________________________(3)程序代码中,加框处代码有错,请改正。
___________________________(4)若10个同学的买菜时间都相同,则有
_________个人是愉快的,且参与排队。