老張要準備一道晚宴，需要上n個菜，為了省事他在n個不同的餐廳訂好了這些菜?，F在他需要盡快取回這些菜，對于每一道菜，有兩種取菜方式：
第1種：讓各店的外賣員送貨上門，對于第i個菜需要花費a（i）的時間。
第2種：自己去餐廳取回家，每次出門僅能取回一道菜，對于第i個菜，從出門到回家整個過程需要花費b（i）的時間。
每家餐廳都有各自的外賣員送菜，并且無論老張是否在家，他們都能把菜送到，為了節省時間，能由外賣員送的菜盡量由外賣員各自送達，現在需要知道最少花費多少時間才能集齊所有的菜。
比如n=4，a（i）=（30，70，40，50），b（i）={20，10，20，30}，那么花費最少的方案是第一個菜和第三個菜讓外賣員送，第二個菜和第四個菜老張自己取，一共需要40分鐘。
設計VB程序計算最少時間，界面如下圖。
實現上述功能的VB程序如下，回答以下問題：
（1）根據程序語句判斷對象Lab3屬于 BB類。
（單選，填字母：A.Form/B.Label/C.TextBox/D.CommandButton）
（2）請在橫線處填入合適的代碼。
①max=a（i）max=a（i）；
②check（m）或check（m）=truecheck（m）或check（m）=true；
③total+b（i）total+b（i）。
（3）程序中加框處代碼有錯，請改正。
改正：total＜=ttotal＜=t。
Const n=4
Dim a（1 To n）As Integer'n道菜由每家餐廳外賣員送達耗時
Dim b（1To n）As Integer'n道菜自取耗時
Private Sub Form_Load （ ?。?/div>（ ?。?/div>。
'產生外賣送貨各道菜耗時，并存儲到數組a中，并顯示，
'產生自取各道菜耗時，并存儲到數組b中，并顯示
'代碼略
End Sub
Private Sub Command1_Click （ ?。?/div>（ ?。?/div>
Dim i As Integer,max As Integer,ans As Integer
Dim left As Integer,right As Integer,m As Integer
For i=1 1 To n
If a（i）＞max Then ①max=a（i）max=a（i）'外賣員送菜的最長時間
Next i
left=1：right=max：ans=max.
m=（left+right）\2
If ②check（m）或check（m）=truecheck（m）或check（m）=trueThen
ans=m：right=m-1
Else
left=m+1
End If
Loop
Lab3.Caption=“最快“+str（ans）+“分鐘“
End Sub
private Function check（t As Integer）As Boolean
Dim total As Integer
check=False
For i=1 To n
If a（i）＞t Then
total=③total+b（i）total+b（i）'如果外賣來不及就自己取
End If
Next i
If tital＞=t Then check=True
End Function【考點】應用程序的試運行和保存．【答案】B；max=a（i）；check（m）或check（m）=true；total+b（i）；total＜=t；（ ）；（ ?。?；max=a（i）；check（m）或check（m）=true；total+b（i）【解答】【點評】聲明：本試題解析著作權屬菁優網所有，未經書面同意，不得復制發布。發布：2024/4/20 14:35:0組卷：0引用：1難度：0.3
相似題
-
1．大部分社交軟件都有好友推薦的功能，當用戶 A 和用戶 B 的共同好友數量超過閾值 p 時，由系統向用戶 A 推薦用戶 B。
編寫 VB 程序，實現好友推薦功能。運行程序，列表框 Listl 中顯示用戶 id 及好友列表，在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕，在列表框List2 中顯示用戶之間的關系，在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖：
（1）根據如圖所示數據，若輸入用戶 id 為“3”，輸入閾值為“3”，則推薦好友為：
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
-
2．某學校開展了藝術節活動，數組a中存儲了n個節目的編號和得分數據，數組存儲結構如圖所示：
小明使用選擇排序思想對上述n個節目按得分進行降序排序（得分相同的按編號升序排列），并依據得分插入各個節目的排名信息，處理后數組a的存儲結構如圖所示：
程序運行時，單擊命令按鈕Command1后讀取數據到數組a中并顯示在列表框List1中，單擊命令按鈕Command2后將節目按照上述規則進行排序，并將排名結果顯示在列表框List2中。
實現上述功能的VB程序如下，請回答下列問題：
（1）已知窗體名稱為Forml,要使程序加載時，窗體標題自動顯示為“第15題程序”，則可在 （單選，填字母：A.Form_Click（ ?。?B.Form_Load（ ）/C.Forml_Click （ ?。?D.Forml_Load （ ?。┦录^程 中添加代碼：Forml.Caption=“第15題程序”。
（2）請在橫線處填入合適的代碼。
（3）加框處代碼有誤，請改正。
-
3．小明用python語言中對大小為100*100像素的圖像“上.jpg”（如圖所示）進行簡單處理，部分代碼如圖：
程序執行后的圖像效果是（ ?。?/h2>
（ ?。?/div>。
'產生外賣送貨各道菜耗時，并存儲到數組a中，并顯示，
'產生自取各道菜耗時，并存儲到數組b中，并顯示
'代碼略
End Sub
Private Sub Command1_Click
'產生外賣送貨各道菜耗時，并存儲到數組a中，并顯示，
'產生自取各道菜耗時，并存儲到數組b中，并顯示
'代碼略
End Sub
Private Sub Command1_Click
（ ?。?/div>
（ ?。?/div>
Dim i As Integer,max As Integer,ans As Integer
Dim left As Integer,right As Integer,m As Integer
For i=1 1 To n
If a（i）＞max Then ①
Next i
left=1：right=max：ans=max.
m=（left+right）\2
If ②
ans=m：right=m-1
Else
left=m+1
End If
Loop
Lab3.Caption=“最快“+str（ans）+“分鐘“
End Sub
private Function check（t As Integer）As Boolean
Dim total As Integer
check=False
For i=1 To n
If a（i）＞t Then
total=③
End If
Next i
If tital＞=t Then check=True
End Function
Dim i As Integer,max As Integer,ans As Integer
Dim left As Integer,right As Integer,m As Integer
For i=1 1 To n
If a（i）＞max Then ①
max=a（i）
max=a（i）
'外賣員送菜的最長時間Next i
left=1：right=max：ans=max.
m=（left+right）\2
If ②
check（m）或check（m）=true
check（m）或check（m）=true
Thenans=m：right=m-1
Else
left=m+1
End If
Loop
Lab3.Caption=“最快“+str（ans）+“分鐘“
End Sub
private Function check（t As Integer）As Boolean
Dim total As Integer
check=False
For i=1 To n
If a（i）＞t Then
total=③
total+b（i）
total+b（i）
'如果外賣來不及就自己取End If
Next i
If tital＞=t Then check=True
End Function
【考點】應用程序的試運行和保存．
【答案】B；max=a（i）；check（m）或check（m）=true；total+b（i）；total＜=t；（ ）；（ ?。?；max=a（i）；check（m）或check（m）=true；total+b（i）
【解答】
【點評】
聲明：本試題解析著作權屬菁優網所有，未經書面同意，不得復制發布。
發布：2024/4/20 14:35:0組卷：0引用：1難度：0.3
相似題
-
1．大部分社交軟件都有好友推薦的功能，當用戶 A 和用戶 B 的共同好友數量超過閾值 p 時，由系統向用戶 A 推薦用戶 B。
編寫 VB 程序，實現好友推薦功能。運行程序，列表框 Listl 中顯示用戶 id 及好友列表，在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕，在列表框List2 中顯示用戶之間的關系，在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖：
（1）根據如圖所示數據，若輸入用戶 id 為“3”，輸入閾值為“3”，則推薦好友為：
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適的代碼。發布：2025/1/2 10:30:2組卷：0引用：1難度：0.3 -
2．某學校開展了藝術節活動，數組a中存儲了n個節目的編號和得分數據，數組存儲結構如圖所示：
小明使用選擇排序思想對上述n個節目按得分進行降序排序（得分相同的按編號升序排列），并依據得分插入各個節目的排名信息，處理后數組a的存儲結構如圖所示：
程序運行時，單擊命令按鈕Command1后讀取數據到數組a中并顯示在列表框List1中，單擊命令按鈕Command2后將節目按照上述規則進行排序，并將排名結果顯示在列表框List2中。
實現上述功能的VB程序如下，請回答下列問題：
（1）已知窗體名稱為Forml,要使程序加載時，窗體標題自動顯示為“第15題程序”，則可在（單選，填字母：A.Form_Click（ ?。?B.Form_Load（ ）/C.Forml_Click （ ?。?D.Forml_Load （ ?。┦录^程 中添加代碼：Forml.Caption=“第15題程序”。
（2）請在橫線處填入合適的代碼。
（3）加框處代碼有誤，請改正。發布：2025/1/2 10:30:2組卷：0難度：0.3 -
3．小明用python語言中對大小為100*100像素的圖像“上.jpg”（如圖所示）進行簡單處理，部分代碼如圖：
程序執行后的圖像效果是（ ?。?/h2>發布：2024/12/20 9:30:2組卷：3引用：5難度：0.4
本網部分資源來源于會員上傳，除本網組織的資源外，版權歸原作者所有，如有侵犯版權，請立刻和本網聯系并提供證據，本網將在三個工作日內改正