若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如 11、121 均是回文数。请你编写程序，输出 10 至 n 之间的所有回文数。程序运行界面如图所示， 在文本框 Text1 中输入一个正整数 n，单击“查找”按钮 Command1，在列表框 List1 中显示 10 – n 之间的所有回文数，并且在标签 Label1 中输出查找到回文数的总数。

问题：实现上述功能的 VB 代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim n as long , sum as long , i As Long Dim x as long , y as long
List1.Clear
n = Val(Text1.Text) sum = 0
For i = 10 To n
  x = n   ’（1）
y = 0    
Do While x > 0
    y =  x Mod 10 ’（2）
x = x \ 10
Loop
If y = i Then
List1.additem  Str(i)
sum = sum+1
End if Next i
Label1.caption = “共有”& Str(sum) & “个回文数” End Sub

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。
程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

图1   图2
（1）应用程序界面设计时，为添加“ List1”对象，应使用图2所示的“控件工具箱”中的________（填写相应编号）。
（2）请根据题意将解决此问题的相应程序补充完整。
Private Sub  Command1_click ()   
Dim x As Integer, s As Long,
Dim y As Integer, i As Integer
For i = 0 To 9999
S = 590000 + i
If ①________  Then
x= s mod 10
y = ②________
If x = y Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
（3）该模块采用的算法是（_____）

A．枚举

B．查找

C．排序

D．解析

（加试题）小明编写了一个寻找非常幸运数的程序。程序运行时,单击“求解”按钮,则在列表框中输出所有的六位数中的非常幸运数,在标签Label2中输出非常幸运数的个数。程序运行效果如图所示。
所谓的非常幸运数是指符合下列条件的整数:
(1)该数的偶数位数字之和等于奇数位数字之和。
(2)该数的前一半的各位数字之和正好等于后一半的各位数字之和。
代码如下：
Private Sub Command1_Click()
　Dim a(1 To 6) As Integer, sum(1 To 4) As Integer
　Dim x As Long, i As Long, count As Long, k As Long
　For i=100000 To 999999
　　x=i
　　k=1
　　Do While x > 0
　　　a(k)=  ①   
　　　x=x\10
k=k+1
　　Loop
　　sum(1)=a(1) +a(2) +a(3)
　　sum(2) =a(4)+a(5)+a(6)
　　   ②   
　　sum（4）=a（2）+a（4）+a（6）　　　　
　　If sum(1)=sum(2) And sum(3)=sum(4)Then
　　　List1.AddItem Str(i)
  ③ 
　　End If
　Next i
　Label2.Caption="共有个数:" +　str（count）　　
End Sub
实现上述功能的VB程序如下,在程序划线处填入合适的代码。
①_____________________________________
②______________________________________
③______________________________________

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
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
为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。

古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Textl中输入一个大于1的正整数，单击“判断”按钮Commandl,在标签Labell中显示判断结果。程序设计界面如图所示。

(1) 在设计程序界面时，要清空标签中显示的内容“Labell”，应修改该标签的_________属性。
(2) VB程序代码如下，请在划线处填入合适代码。
Private Sub Command1 Click()

Dim n As Integer, s As Integer

s = 0

n = Val(Textl. text)

If n > 1 Then

For i = 1 To n
s =________________________
If n = s Then
Labell. Caption = Str(n) +〃是一个三角形数。"
Exit For
______________________________________
Labell. Caption = Str(n) +"不是一个三角形数。"
Exit For
End If
Next i

Else

Labell.Caption = 〃请输入一个大于1的正整数"

End If

End Sub
(3)若文本框Text1中输入的内容为“27”，单击按钮Commandl后，标签Labell中显示的内容是_________________