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

快遞編號(hào)	1	2	3	4	5	6	7	8	9	10
距離時(shí)間	3	2	5	5	6	7	1	8	1	3
拿到快遞是否愉快	是	是	是	是	否	是	是	否	是	是

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

C

C

（單選，填字母：A．對(duì)象名/B．事件名/C．事件處理過(guò)程名）
（2）請(qǐng)?jiān)跈M線處填入合適代碼。
（3）程序代碼中，加框處代碼有錯(cuò)，請(qǐng)改正。
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è)快遞的距離時(shí)間，依次存儲(chǔ)在數(shù)組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）+″個(gè)人是愉快的，將給予好評(píng)?！?/h1>