食堂排队买菜。食堂排队买菜时，每个同学都有一个窗口买菜时间，如果某同学的等待时间超过他在窗口买菜时间的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 s<ans 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个同学的买菜时间都相同，则有_________个人是愉快的，且参与排队。