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

學(xué)生編號(hào)	l	2	3	4	5	6	7	8	9	10
買(mǎi)菜時(shí)間	3	2	5	5	6	7	1	8	1	3
最終是否參與排隊(duì)	是	是	是	是	否	是	是	否	是	是

Const n=10
Dim a（1 To n） As Integer
Private Sub Command1_Click （　?。?br />Dim i As Integer,a As Integer,ans As Integer,t As Integer
，讀取每個(gè)學(xué)生的買(mǎi)菜時(shí)間，依次存儲(chǔ)在數(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）+“個(gè)人是愉快的，且參與排隊(duì)買(mǎi)菜?！?br />（1）代碼“Private Sub Commandl_Click （　?。敝械腃ommand1是

A

A

（單選，填字母：A．對(duì)象名/B．事件名/C．事件處理過(guò)程名）
（2）請(qǐng)?jiān)跈M線處填入合適代碼。
（3）程序代碼中，加框處代碼有錯(cuò)，請(qǐng)改正。
（4）若10個(gè)同學(xué)的買(mǎi)菜時(shí)間都相同，則有

4

4

個(gè)人是愉快的，且參與排隊(duì)。