小明編寫了一個(gè)尋找奇妙整數(shù)的 VB 程序。此整數(shù)的平方與立方正好用了 0～9 的 10 個(gè)數(shù)且每個(gè)數(shù)只用一次，例如 69 的平方為 4761，69 的立方為 328509，4761 和 328509 剛好用了 0～9的10 數(shù)，并且沒有重復(fù)使用?，F(xiàn)需從 1 至 1000 尋找這樣的奇妙整數(shù)并在列表框 list1 中顯示，設(shè)計(jì)界面如第 17 題圖所示。實(shí)現(xiàn)上述功能的 VB 程序段如下：
（1）請(qǐng)?jiān)跈M線處填入合適代碼
Dim a（0 To 9）As Boolean'判斷 0-9 的 10 個(gè)數(shù)是否使用
Private Sub Command1_Click（　?。?br />Dim n As Integer
Dim k As Integer
'存儲(chǔ)從字符串 s1
或 s2中提取的字符
Dim f As Boolean
'判斷字符 k 是否重復(fù)出現(xiàn)
Dim s1As String'存儲(chǔ)字符串（平方數(shù)）
Dim s2As String'存儲(chǔ)字符串（立方數(shù)）
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 （　?。┖瘮?shù)的作用是將數(shù)字型變量改變成字符型變量
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）根據(jù)程序可以判斷數(shù)字 43

不能

不能

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