算法设计与程序实现
换钱问题：
要将一张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

（加试题）王老师在使用 VB 程序要实现 n! 的功能。
Private Sub Command1_Click()
Dim p As Integer
Dim sum As Long
　p = Val(Text1.Text)
　sum = fx(p)
　Text2.Text = CStr(sum)
End Sub
Function fx(x As Integer) As Long
　If x = 1 Then
　　  fx = 1
　Else
　　  fx =____________________
　End If
End Function
要该程序实现此功能，横线处的代码为（　　）

A．x(x)*(x-1)

B．fx(x)*x

C．fx(x-1)*x

D．fx(x-1)*(x-1)

下列程序的功能是：随机产生10个1—100之间的正整数，按从小到大排序并输出。为了实现这一目标，程序中划线处应填入的合适语句是：
①______________ _
②__________ _____
Const n=10
Dim i As Integer,j As Integer,t As Integer
Dim a(1 to 10) As Integer
For i="1" to 10
_____①_______
Next  i
For i="1" to n-1
For j="i+1" to n
If  ____②____ Then
k=a(i):a(i)=a(j):a(j)=k
End If
Next j
Next i
For i="1" To n
Print a(i)
Next i

小华同学设计了一个VB程序，其功能是在text1中输入文本，点击“统计”按钮，自动统计字母a和字母b的出现次数，并显示在text2和text3中。程序设计界面如下图所示：
 
（1）运行程序时发现窗体的标题显示为“form1”，将窗体标题显示为“字母统计”，应修改窗体form1的_____________属性。
（2）通过窗体的加载事件也可以修改窗体的标题属性，请补充下列代码
Private Sub Form_Load（）
___________________= "字母统计"
End Sub
（3）根据题意，将下列程序补充完整。
Private Sub Command1_Click（）
Dim s As String，i As Integer，ta As Integer，tb As Integer
Dim lens As Integer ‘变量lens表示字符串s的字符个数
s = Text1.Text
lens =________________
For i =" 1" To lens
If Mid(s,I,1)= "a"  Then ta =" ta" + 1
If Mid(s,i,1)= "b"  Then tb =" tb" + 1
Next i
Text2.Text =" Str(" ta)
Text3.Text = Str(tb)
End sub

有如下VB程序段
X=0
For i =" 1" to 8 step 2
X=x+i
Next i
该程序段执行后，变量x的值是（   ）

A．9

B．16

C．25

D．36