小张用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