某单据上有一个多位整数（位数≤255），其中有2个位置上的数字（用？代昔）已经变得模糊不清，但知道这个整数是3和11的倍数，设计一个算法，推算并翰出所有满足条件的整数。判断竖除的算法如下：
①判断能否被3整除：如果该整效每个位上的数字之和是3的倍数，那么这个数就能被3整除，例如168，各个位上数字之和为1+6+8=15，能被3整除，因此判断出168能被3整除。
②判断能否被11整除：如果该整数奇位上的数字之和与偶位上的数字之和相减，所得的差是0或11的倍数，那么这个数就能被11整除。例如6094，奇位上数字之和6+9=15，偶位上数字之和0+4=4，差15-4=11，是11的倍数，因此判断出6094能被11整除。
（1）若某7位整数“987？654”，第4位上数字模糊不清，但已知能被11整除，按上述算法，可以推算出第4位上的数字是

2

2

。
（2）实现上述功能的VB程序如下，运行结果如图所示，请在横线处填入合适的代码。
Private Sub Commandl_Click（　　）
Dim d（1 To 2）As Integer i As Integer,j As Integer
Dim s As String.jye.ai As Integer,s2 As Integer,t As Integer  s=
Textl.Text：s1=0：s2=0：j=I
For i=1 To len （s）c=
Mid（s,i,I）If  c＜＞
“？”Then
if  i Mod 2=0 Then sl=sl+Val（c）Else s2=s2+Val（c）
Else
           
j=j+1
End If
Next i Listl Clear
For i=0 To 9
For j=0 To 9
t=           
If （s1-s2+i+j）Mod 3=0 And t Mod 1I=0 Then
s=Sreplace（s,d（1），i）
s=Sreplace（s,d（2），j）
Listl.AddItem s
End If Next j
Next i End
Sub
函数 Sreplace的返回值字符串中要求没有空格
Function Sreplace（s As String,x As Integer,y As Integer）As String Sreplace
=Mid（s,1，x-1）+          
End Function