在text1文本框内输入字符串，单击去重按钮，将字符串后面相同的字符删除，并在text2中输出经过删除的字符串。程序界面如图所示。请在下面划线处填入合适的代码。

Private Sub Command1_Click()
Dim s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = （1）  
For  j =  （2）       
If c <> Mid(s, j, 1) Then
s1 = s1 + Mid(s, j, 1)
End If
Next j
（3）
Next i
Text2.Text = s
End Sub

A．（1）s1 = Mid(s, 1, 1)    （2）i + 1 To Len(s)   （3）s1 = s

B．（1）s1 = Mid(s, 1, 1)   （2）i To Len(s)    （3）s1 = s

C．（1）s1 = Mid(s, 1, i) （2）i To Len(s) （3）s = s1

D．（1）s1 = Mid(s, 1, i) （2）i + 1 To Len(s)  （3）s = s1

用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)

If c = , Then

t = Mid(s, i, j - i)
If Val(t) > max Then max = Val(t)
①
End If
②     
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）

A．① i=i+1   ② j=j+1	B．① i=j+1   ② j=j+1
C．① j=j+1   ② i=i+1	D．① j=i+1   ② i=i+1

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer
For i=0 To 9999 ___________
s=310000+i
If s Mod 46 = 0 Then
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub

编写VB程序，实现如下功能：单击启动按钮Start1，在列表框List1内每隔2秒输出一个由10个大小写字母组合成的字符串，运行界面如图所示：

（注：字母“A”的ASCII码值为65，字母“a” 的ASCII码值为97）
（1）按观察程序代码，可知“启动”按钮的对象名为_________ 。（单选，填字母

A．Timer1 /

B．Start /

C．Command1 /

D．Start_1  /

E．启动）

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Start_1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
Dim s As String, c As String
Dim i As Integer, e As Integer, h As Integer
Randomize
s = ""
flag = True
For i = 1 To 10
e = Int(Rnd * 52 + 1)
If e <= 26 Then
h = e + 64
Else
②
End If
③
s = s + c
Next i
List1.AddItem s
End Sub
划线处的代码为：
①_______________________________
②________________________________
③________________________________

现要求编写VB程序，编辑界面如1图所示，运行界面如2图所示，程序功能如下：在文本框Text1中输入n的值，单击“求和”按钮Command1，完成n以内奇数和的计算，并在文本框Text2中显示计算结果。
  
1图 2图
(1)观察编辑界面和运行界面，发现图1缺少控件，需要添加的对象为________(填写对象名称).
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim n As Integer, s As Integer, i As Integer
①
For i ＝ 1 To n Step 2
②
Next i
Text2.Text＝ Str(s)
End Sub
(3)该程序属于 算法（选填：枚举/解析）