16．某旅行團(tuán)需在酒店預(yù)訂一批房間，要求所預(yù)訂的房間號(hào)碼盡量集中，如果有多種方案，優(yōu)先選擇預(yù)訂房間數(shù)目較少的方案，有多組可選方案時(shí)選擇起始房間號(hào)最小的方案。酒店有單人間和雙人間兩種房間，b數(shù)組按房間號(hào)順序存儲(chǔ)該房間可入住人數(shù)，其中可入住人數(shù)為0時(shí)，表示該房間已有人入住，不可預(yù)訂。比如有16個(gè)房間可入住人數(shù)如下：
| 房號(hào) |
i |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
| 人數(shù) |
b（i） |
2 |
0 |
2 |
2 |
0 |
1 |
2 |
1 |
2 |
1 |
0 |
2 |
1 |
0 |
2 |
2 |
下表給出了選擇預(yù)訂房間的過程（區(qū)間長度表示預(yù)訂房間的起始房號(hào)到最后一個(gè)房號(hào)包含的房間數(shù)，區(qū)間長度值越小，代表預(yù)訂房間分布越集中），選擇最優(yōu)方案過程如（1）（2）（3）所示。
（1）從房間號(hào)碼分布區(qū)間長度值最小原則，選擇方案2、4、9。
（2）分布區(qū)間長度值相同時(shí)，選擇預(yù)訂房間數(shù)目最小的，因此選擇方案2、9。
（3）所有可選方案中，優(yōu)先選擇最先成立的（起始房號(hào)最小的）方案，最終選擇方案2。
| 方案 |
房號(hào)范圍 |
區(qū)間長度 |
房間數(shù)目 |
備注 |
方案 |
房號(hào)范圍 |
區(qū)間長度 |
房間數(shù)目 |
備注 |
| 方案1 |
1～6 |
6 |
4 |
|
方案6 |
8～13 |
6 |
5 |
|
| 方案2 |
3～7 |
5 |
4 |
|
方案7 |
9～15 |
7 |
4 |
人數(shù)＞7，取消10號(hào)房 |
| 方案3 |
4～9 |
6 |
4 |
人數(shù)＞7 取消6號(hào)單人間 |
方案8 |
10～16 |
7 |
4 |
人數(shù)＞7，取消13號(hào)房 |
| 方案4 |
6～10 |
5 |
5 |
|
方案9 |
12～16 |
5 |
4 |
|
| 方案5 |
7～12 |
7 |
4 |
人數(shù)＞7，取消8號(hào)單人間 |
|
|
|
|
|
程序運(yùn)行界面如下，請(qǐng)完成相應(yīng)的小題。
（1）如下圖所示16個(gè)房間，當(dāng)入住人數(shù)為5人時(shí)，預(yù)訂房間號(hào)是：
。
（2）請(qǐng)?jiān)跈M線處填寫適當(dāng)?shù)拇a。
Const n=16'假設(shè)酒店總房間數(shù)為16
Dim b（1 To n） As Integer'b 數(shù)組按房間號(hào)順序存儲(chǔ)各房間可入住人數(shù)
Function find1（x,y） As Integer
'函數(shù) find1（x,y）的作用是從 b（x）到 b（y）中找到值為1的數(shù)組變量的下標(biāo)，若找不到，返回值為0
End Function
Private Sub Command1_Click ____
Dim s As Integer,d As Integer,f as integer,num As Integer,roomnum As Integer
Dim minnum as integer'minnum 變量存儲(chǔ)當(dāng)前最優(yōu)方案中的預(yù)訂房間數(shù)目
Dim mindist As Integer'mindist 存儲(chǔ)當(dāng)前的最小分布區(qū)間長度
'所有房間的可入住人數(shù)按房間號(hào)碼順序存儲(chǔ)到數(shù)組b中并顯示在list1中，代碼略
num=Val（Text1.Text）
minnum=n：mindist=n：s=0：start=0：f=0：pos=0
For i=1 To n
If b（i）＜＞0 Then
j=i：s=0：roomnum=0
Do While s＜num And j＜=n
s=s+b（j）
If b（j）＞0 Then roomnum=roomnum+1
j=j+1
Loop
d=
If s=num Then
If d＜mindist Or
Then
start=i：mindist=d：minnum=roomnum：pos=0
End If
ElseIf s＞num Then'若可入住人數(shù)超出，在當(dāng)前區(qū)間內(nèi)所選房間中取消1個(gè)單人間
f=find1（i+1，j-2）
If f＞0 Then
If d＜mindist Or d=mindist And roomnum-1＜minnum Then
start=i：mindist=d：minnum=roomnum-1：pos=f
End If
End If
End If
End If
Next i
If start=0 Then
Label2.Caption=“房間數(shù)量不足“
Else
List2.AddItem“預(yù)訂房間：“+Str（minnum）+“間“
For i=start To
If b（i）＞0 And i＜＞pos Then
List2.AddItem“房間號(hào)：“+Str（i）+“，入住人數(shù)：“+Str（b（i））
End If
Next i
End If
End Sub
組卷：3引用：1難度：0.5
Then Exit Do