小明編寫了一個尋找奇妙整數的 VB 程序。此整數的平方與立方正好用了 0～9 的 10 個數且每個數只用一次，例如 69 的平方為 4761，69 的立方為 328509，4761 和 328509 剛好用了 0～9的10 數，并且沒有重復使用?，F需從 1 至 1000 尋找這樣的奇妙整數并在列表框 list1 中顯示，設計界面如第 17 題圖所示。實現上述功能的 VB 程序段如下：
（1）請在橫線處填入合適代碼
Dim a（0 To 9）As Boolean'判斷 0-9 的 10 個數是否使用
Private Sub Command1_Click（　?。?br />Dim n As Integer
Dim k As Integer
'存儲從字符串 s1
或 s2中提取的字符
Dim f As Boolean
'判斷字符 k 是否重復出現
Dim s1As String'存儲字符串（平方數）
Dim s2As String'存儲字符串（立方數）
Dim i As Integer,j As Integer
For n=1To 1000
For i=0To 9
a（i）=True
Next i
f=True
s1=CStr（n^2）
s2=CStr（n^3）'Cstr （　?。┖瘮档淖饔檬菍底中妥兞扛淖兂勺址妥兞?br />For j=1To Len（s1）
①

k=Val（Mid（s1，j,1））

k=Val（Mid（s1，j,1））

If a（k）=True Then
a（k）=False
Else
f=False
Exit For
End If
Next j
If
②

Judge（s2）

Judge（s2）

Then
j=0
Do While j＜=9
If a（j）=True Then
f=False
Exit Do
End If
j=j+1
Loop
If f=True Then List1．AddItem Str（n）
End If
Next n
End Sub
Function Judge（s As String） As Boolean
Dim i As Integer,k As Integer
i=1：judge=True
Do While
③

i＜=Len（s）

i＜=Len（s）

k=Val（Mid（s,i,1））
If a（k）=True Then
a（k）=False
Else
Judge=False
Exit Do
End If
i=i+1
Loop
End Function
（2）根據程序可以判斷數字 43

不能

不能

（ 填，能/不能）在 List1 列表中顯示。