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


（1）应用程序界面设计时，添加“list1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的______________（填写相应编号）
（2）解决此问题的相应程序如下，请根据题意将程序补充完整。
Private Sub  Command1_click ( )   
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ________①________  Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
_________②______     
End If
End If
Next i
End Sub

编写VB程序，实现如下功能：窗体装载时随机生成10个1至100的整数，并显示在列表框list1中，单击“分组”按钮command1，将这10个数分为奇数和偶数两组，在list2中显示奇数数字，及其个数，list3中显示偶数数字，及其个数。运行界面如第22题图所示，程序代码如下。

Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer
Private Sub     ②  ()   '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) =    ③       '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④
Else
List3.AddItem Str(a(i))
⑤
End If
Next i
List2.AddItem  "共有奇数" + Str(ji) + "个"
List3.AddItem  "共有偶数" + Str(ou) + "个"
End Sub
（1）观察运行界面，选项中没有用到的控件是 ①   ( 选项A． B． C．

A．)。

（2）划线②处应填的事件是 ② 。
（3）划线处③的代码应该是：   ③    （填选项号）。
A. Int(Rnd()+100)*1    B. Int(Rnd()+1)* 100   C.Int(Rnd() * 100) + 1
（4）请为④、⑤划线处填入合适的代码，④： ，⑤：  。

对称宇符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:
N=Len(s)
K=0:j=n
For i =" 1" To  n/2

Nexti
If k =" 0" Then Label1.Caption =”对称” Else Label1.Caption=”不对称”
方框中的代码由以下三部分组成：
①j=j-1
②If cl <>c2 Then k =" k" + 1
③c1=" Mid(s,i,1)" : c2 = Mid(s,j,1)
代码顺序正确的选项是

A．①③②

B．②③①

C．③②①

D．②①③

有如下VB程序段：
Dim i As Integer, sum As Integer
Dim a(1 To 8) As Integer
sum = 1
a(8) = 49: a(7) = 28
For i = 6 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
If a(i) Mod 3 = 0 Then sum = sum + a(i)
Next i
text1.Text = Str(sum)
该段程序运行后，文本框Text1中显示的内容是（   ）

A．21

B．43

C．42

D．1

数学表达式“2n-1>0且2n-1≠1”对应的Visual Basic表达式是(　　)

A．2·n-1>0 And 2·n-1<>1	B．2*n>1 And Not(2*n-1=1)
C．2n-1>0 And 2n-1 ≠ 1	D．2*n-1>0 And 2n-1<>1