利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。
Private Sub Command1_Click()
Dim Pi As Single, t  As Single
Dim n As Integer, s As Integer
Pi = 0
t = 1: n = 1:s =1
Do While Abs(t) >= 0.0001
Pi = Pi + s * 1 / n
n =①___________
s= ②___________
t = s / n
Loop
Text2.Text =③___________
End Sub

计算三角形面积的算法如下：
①输入三角形三边长a，b，c
②计算半周长p＝(a＋b＋c)/2
③计算三角形面积s＝Sqr(p*(p－a)*(p－b)*(p－c))
④输出面积s
上述算法属于(  )

A．排序算法	B．解析算法
C．枚举算法	D．查找算法

要求将某一字符串中指定的字符改写成小写或大写（如果原先是大写就改成小写，反之改成大写），并将处理后的字符重新输出。
程序界面如下图所示，在Text1中输入原始字符串，在Text2中输入需要改变的字符，单机“改变”按钮后，在Text3中输出处理后的结果。程序代码如下：

Private Sub Command1_Click()
Dim s As String, result As String, k As String
Dim zs As String, n As Integer
result = ""
s = Text1.Text
k = Text2.Text
For n =" 1" To Len(s)
①
If zs =" k" Then
If Asc(zs) >=" 65" And Asc(zs) <=" 90" Then
zs =" Chr(Asc(zs)" + 32)
ElseIf Asc(zs) >=" 97" And Asc(zs) <=" 122" Then
zs =" Chr(Asc(zs)" - 32)
End If
End If
②
Next n:Z#xx#k.Com
③
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

程序运行后，单击Command1命令按钮，变量x的值为（   ）
Private Sub Command1_Click()
n = 6
x = 1
For i ="1" To n
x =" x" * i
Next
End Sub

A．15

B．24

C．120

D．720

某算法流程图如图所示，该算法实现的功能为（）

A．交换x,y两数的值

B．求x,y两数最大值

C．求x,y两数最小值

D．以上都不对