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

5

5

分。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click （　?。?br />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秒時(shí)，地鼠探出腦袋的洞口為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矩陣移動(dòng)的路徑，并存放在p數(shù)組
k=1'k為正則向右移動(dòng)錘子，k為負(fù)則向左移動(dòng)錘子
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