小明编写了一个寻找奇妙整数的 VB 程序。此整数的平方与立方正好用了 0～9 的 10 个数且每个数只用一次，例如 69 的平方为 4761，69 的立方为 328509，4761 和 328509 刚好用了 0～9的10 数，并且没有重复使用。现需从 1 至 1000 寻找这样的奇妙整数并在列表框 list1 中显示，设计界面如第 17 题图所示。实现上述功能的 VB 程序段如下：
（1）请在横线处填入合适代码
Dim a（0 To 9）As Boolean'判断 0-9 的 10 个数是否使用
Private Sub Command1_Click（　　）
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 （　　）函数的作用是将数字型变量改变成字符型变量
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 列表中显示。