若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如 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

设计算法，求同时满足以下条件的所有四位正整数之合s。①不大于n(n的值由键盘输入)②能被9整除③十位数是2。算法流程图如下所示：

（1）解决上述问题的算法属于（_______）
A.枚举法 B.擂台法 C.解析法 D.对分法
（2）判断x能被9整除的设计思路是 ；取x十位上数字的设计思路是  。（_______）
A.x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商
B.x除以9的商为0；先求x除以10的余数，再求该余数除以100的商
C.x除以9的商为0；先求x除以100的余数，再求该余数除以100的商
D.x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商
（3）小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。
Dim n as Integer，x as Integer，s as long
s=0
n=InputBox(“输入四位数上限值”)
For____________

If___________and_____________ Then

s=s+x

End If

Next
_____________

设有n盏灯，放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的。（亮灯为0，关闭为1）
为了实现这一目标，完善下列程序，使之能完成该功能。
Private Sub Command1_Click()
Const n=20
Dim i As Integer,j As Integer
Dim a(1 To n) As integer
For j=1 To n
a(j)=0
Next j
For i=1 To n
For j=1 To n
If j Mod i=0 Then
______________ ‘(1)
End If
Next j
Next i
For j=1 To n
If ________ Then List1.AddItem  Str(j) ‘(2)
Next j
End Sub

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd,随机生成两个0,1）之间的随机数，由此构成一个投点坐标（x,y），然后根据x²+y²<=1投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆内的点数为s,则4s/n即为所求PI的近似值。程序界面如图所示，在Text1中输入投点的个数，单机“计算”按钮，PI的近似值结果显示在Text2中。）

（1）要使得按钮的文字显示为“计算”，应该修改该对象的__________属性。
（2）要实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Randomize '随机数初始化
Dim i As Long, n As Long, s As Long
Dim x As Double, y As Double, z As Double
n = Val(Text1.Text)
__________________________
s = 0
Do While i <= n ' 随机投点n次
x = Rnd: y = Rnd
z = ____________________
If z <= 1 Then
s = s + 1
End If
i = i + 1
Loop
Text2.Text =_______________