为实现上述功能,请在划线处填入合适的代码。
Private
Sub Command1_Click()
Dim n As Single, k As Integer, t As
Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n)) 'Trim( )函数用于删除字符串前后的空格
t = (n * n) Mod ①
If t = n Then
List1.AddItem Str(n)
②
End If
Next n
Label1.Caption = "自守个数为:" + Str(c)
End
Sub
为实现上述功能,划线处应填入的代码分别为