某單據上有一個多位整數（位數≤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（　?。?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
函數 Sreplace的返回值字符串中要求沒有空格
Function Sreplace（s As String,x As Integer,y As Integer）As String Sreplace
=Mid（s,1，x-1）+          
End Function