某單據(jù)上有一個(gè)多位整數(shù)（位數(shù)≤255），其中有2個(gè)位置上的數(shù)字（用？代昔）已經(jīng)變得模糊不清，但知道這個(gè)整數(shù)是3和11的倍數(shù)，設(shè)計(jì)一個(gè)算法，推算并翰出所有滿足條件的整數(shù)。判斷豎除的算法如下：
①判斷能否被3整除：如果該整效每個(gè)位上的數(shù)字之和是3的倍數(shù)，那么這個(gè)數(shù)就能被3整除，例如168，各個(gè)位上數(shù)字之和為1+6+8=15，能被3整除，因此判斷出168能被3整除。
②判斷能否被11整除：如果該整數(shù)奇位上的數(shù)字之和與偶位上的數(shù)字之和相減，所得的差是0或11的倍數(shù)，那么這個(gè)數(shù)就能被11整除。例如6094，奇位上數(shù)字之和6+9=15，偶位上數(shù)字之和0+4=4，差15-4=11，是11的倍數(shù)，因此判斷出6094能被11整除。
（1）若某7位整數(shù)“987？654”，第4位上數(shù)字模糊不清，但已知能被11整除，按上述算法，可以推算出第4位上的數(shù)字是

2

2

。
（2）實(shí)現(xiàn)上述功能的VB程序如下，運(yùn)行結(jié)果如圖所示，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Commandl_Click（　?。?br />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
函數(shù) Sreplace的返回值字符串中要求沒有空格
Function Sreplace（s As String,x As Integer,y As Integer）As String Sreplace
=Mid（s,1，x-1）+          
End Function