食堂排隊買菜。食堂排隊買菜時，每個同學都有一個窗口買菜時間，如果某同學的等待時間超過他在窗口買菜時間的3倍，他就會不愉快，反之是愉快的。等待時間是指排在該同學之前的所有人的買菜時間之和。已知每個同學在窗口的買菜時間，請確定如何排隊才能使愉快的人數(shù)最多，并輸出最多的人數(shù)。例如：10個同學的買菜時間如下表所示，則最多有8個人是愉快的。

學生編號	l	2	3	4	5	6	7	8	9	10
買菜時間	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
，讀取每個學生的買菜時間，依次存儲在數(shù)組a中，代碼略
For i=1 To n-1
k=i
For j=n To i+1 Step-1
If

a（j）＜a（k）

a（j）＜a（k）

 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）+“個人是愉快的，且參與排隊買菜?！?br />（1）代碼“Private Sub Commandl_Click （　　）”中的Command1是

A

A

（單選，填字母：A．對象名/B．事件名/C．事件處理過程名）
（2）請在橫線處填入合適代碼。
（3）程序代碼中，加框處代碼有錯，請改正。
（4）若10個同學的買菜時間都相同，則有

4

4

個人是愉快的，且參與排隊。