小張用VB模擬實現了一個打地鼠游戲的計分程序。游戲規則如下：總共有10個地鼠洞，每秒地鼠選擇一個洞探出腦袋，如果當前的錘子在該洞口，則打中地鼠，否則沒有打中。游戲時間總共t秒（t＜=10，Text1中輸入），錘子的起始位置在b（1）（Text2中輸入）。現已知每個時刻地鼠探腦袋的位置，根據錘子移動的路線，計算得出最多的得分，并輸出到 Labe1l。
錘子移動規則：錘子每秒必須往左或往右移動一步（不可在當前位置停留），如果錘子已經在最左邊了，只能往右移動；反之，只能往左移動。
計分方式：如果打中一個地鼠，計1分；如果連續打中地鼠，分數翻倍，即連續打中兩個，分數為1+2；連續打中三個，分數為1+2+4；連續打中四個，分數為1+2+4+8……
算法思路：
①隨機產生在第i秒時，地鼠探出腦袋的洞口為j。
若每個時刻地鼠探腦袋的洞口如圖a所示，以10個洞口為橫坐標n,游戲時間t（假設t=10）為縱坐標，建立一個矩陣a。當前時間出現地鼠的洞口標記為1，其余默認為0。
②模擬第i秒敲擊洞口的位置。
1）若輸入游戲過程如圖b所示，從5號洞口出發b（1）=5，當時間為i=1時，可到達的洞口有2種：j=2時b（2）=6，j=1時b（1）=4，即得矩陣a的坐標位置i和b（j）；
2）同理當i=2時，可到達的洞口有4種：j=4時b（4）=7，=3時b（3）=5，=2時b（2）=5，j=1時b（1）=3.i=1敲擊洞口位置為6或4；i=2敲擊洞口位置6→7，6-5或4→5，4→3；
3）將t秒內可經過的2t種不同路徑敲擊的矩陣位置的值存放到數組p中，如圖b所示得到其中某一條路徑p（j）=0101100010，根據p（j）計算得分，找出最值max并輸出。
（1）如果游戲時間為10秒，每秒地鼠出現的洞口序號依次為[9，9，9，10，10，10，10，9，9，9]，當錘子的起始位置在第6個洞口時，最多能得

5

5

分。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （　　）
Const n=10
Dim a（1 To n*n）As Integer,b（1 To 2^n）As Integer
Dim p（1 To 2^n）As String,s1 As String
Dim i As Integer,j As Integer,k As Integer,max As Integer
Dim t As Integer,s As Integer,f As Integer
Randomize
t=Val（Text1.Text）
For i=1 To t'第i秒時，地鼠探出腦袋的洞口為j
j=Int（Rnd*n+1）
①

a（（i-1）*n+j）=1

a（（i-1）*n+j）=1

List1.AddItem Str（i） &Str（j）
Next i
s1=““
For i=1 To t*n
s1=s1+Str（a（i））
If i Mod n=0 Then List2.AddItem s1：s1=““
Next i
b（1）=Val（Text2.Text）
For i=1 To n'計算錘子在a矩陣移動的路徑，并存放在p數組
k=1'k為正則向右移動錘子，k為負則向左移動錘子
For j=2^i To 1 Step-1
b（j）=b（（j+1）\2）+k
If b（j）＜1 Or b（j）＞n Then b（j）=b（j）-2*k
p（j）=p（（j+1）\2）+CStr（ ②

a（（i-1）*n+b（j））

a（（i-1）*n+b（j））

）'CStr功能類似Str
k=-k
Next j
Next i
max=0
For i=1 To 2^n
f=0：s=0：j=1
Do While j＜=Len（p（i））
If Val（Mid（p（i），j,1））＞0 Then
③

f=f*2+Val（Mid（p（i），j,1））

f=f*2+Val（Mid（p（i），j,1））

Else
s=s+f：f=0
End If
j=j+1
Loop
If f＞0 Then s=s+f
If max＜s Then max=s
Next i
Label1.Caption=“最多能得“+Str（max）+“分“
End Sub