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

5

5

分。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
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'計(jì)算錘子在a矩陣移動的路徑，并存放在p數(shù)組
k=1'k為正則向右移動錘子，k為負(fù)則向左移動錘子
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