某算法的流程图如图所示。执行这部分流程后，输出变量i的值是（ ）

A．7

B．9

C．11

D．13

某VB的事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = StrA.
End Sub
程序运行时，在文本框Text1中输入2，连续三次单击命令按钮Command1后，Text1中显示的内容是（  ）
A. 47

A．5

B．1

C．23

根据算法的特征，右图描述的算法有错，错误的主要原因是（   ）

A．不符合有穷性

B．不符合可行性

C．不符合确定性

D．没有数据输入

下列几个程序段中，能将x和y中数据进行互换的是（   ）

A．x=y:y=x

B．m=x:x=y:y=m

C．x=y:m=x:y=m

D．x=x+y:y=y-x:x=x-y

下列VB程序实现如下功能：程序运行时，在文本框Text1和Text2中分别输入x和n的值，单击命令按钮Command1后，调用函数f计算s＝x＋＋＋…＋的值，并在文本框Text3中显示计算结果。请在划线上填入合适的代码。
Private Sub Command1_Click( )
Dim x As Single，n As Integer，s As __①__
x＝Val(Text1.Text)
n＝Val(Text2.Text)
s＝f(x，n)
Text3.Text＝str(s)
End Sub
Private Function f(x As Single，n As Integer) As Single
Dim sum As Single，i As Integer，t As Single
sum ＝ 0
t＝1
For i＝1 To n
t＝t*x/i
sum＝sum＋t
Next i
____②____
End Function
填写划线①处代码_____________________________________。
填写划线②处代码______________________________________。