雙十一剛過快遞量激增，某電商平臺啟用無人機進行快遞配送，快遞配送時，首先根據快遞倉庫與客戶間距離計算出距離時間，快遞被配送到客戶手中的實際時間除距離時間外還要加上客戶等待無人機完成前面先配送的訂單的時間。等待時間是指排在該客戶快遞之前的所有客戶的距離時間之和。如果某客戶的等待時間超過他的距離時間的3倍，他就會不愉快，反之是愉快的。已知每個客戶的距離時間，請確定如何分配無人機的投遞任務才能使愉快的人數最多，并輸出最多的人數。例如：10個快遞的距離時間如下表所示，則最多有8個客戶是愉快的。

快遞編號	1	2	3	4	5	6	7	8	9	10
距離時間	3	2	5	5	6	7	1	8	1	3
拿到快遞是否愉快	是	是	是	是	否	是	是	否	是	是

（1）代碼“Private Sub Commandl_Click （　?。敝械腃ommandl_Click （　?。┦?

C

C

（單選，填字母：A．對象名/B．事件名/C．事件處理過程名）
（2）請在橫線處填入合適代碼。
（3）程序代碼中，加框處代碼有錯，請改正。
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
，讀取每個快遞的距離時間，依次存儲在數組a中，代碼略
For i=1 To n-1

k=i

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 sThen s=s+a（i）：ans=ans+1
Next i
Label1．Caption=″共有“+Str（ans）+″個人是愉快的，將給予好評。″