算法设计与程序实现
换钱问题：
要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换法如下：
5元：3张
2元：38张
1元：9张
求出所有的换钱方案。
（算法设计）
x表示5元的张数：1≦x≦20；
y表示2元的张数：1≦y≦50；
z表示1元的张数：1≦z≦100。
（参考程序）
Dim x AsInteger
Dim y AsInteger
Dim z As Integer
For x=1 To20
For y=1To 50
Forz=1 To 100
If ______________Then
Print x；y；z ’x y z 之间以分号分隔
End If
Nextz
Next y
Next x
根据上述回答下列问题：
（1）本题采用的算法是_____________（填：解析法/枚举法/排序法/递归法）。
（2）程序代码中空白处应填写的条件是_______________（填写字母：A/B/C/D）。
A  5x + 2y + z=100   Or  x+ y + z = 50
B  5x + 2y + z=100   And x + y + z = 50
C  5*x + 2*y + z=100 Or x + y + z = 50
D  5*x + 2*y + z=100 And  x + y + z = 50

水仙花数是三维整数：其各位数字立方和等于该数本身，如153=1^∧3+5^∧3+3^∧3，如果要求出所有的水仙花数，下列算法最合适的是（）

A．查找法

B．解析法

C．排序法

D．穷举法

在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程序，编辑界面如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)该程序属于 算法（选填：枚举/解析）

兔子吃萝卜。兔子拔了一堆萝卜，第一天吃了一半，还嫌不过瘾，又吃了一个，第二天又将剩下的萝卜吃掉一半，又多吃了一个，以后每天如此。到第10天想再吃时，见只剩下一个萝卜了。求第一天共拔了多少萝卜。小明编写了一个VB程序，用于计算兔子第一天拔的萝卜总数。程序运行界面如图所示。

Private Sub Command1_Click()
Dim i As Integer，sum As Integer
sum＝1
For i＝9 To 1 ____①____
____②____
Next i
Text1.Text＝Str(sum)
End Sub
回答下列问题：
(1)该程序采用的算法是________(填：解析算法/枚举算法)
(2)显示计算结果的控件属于________类，该控件的名称是________。
(3)划线①处应填入的语句为________。
划线②处应填入的语句为________。