请编写程序求解S =" 2" + 3/2 + 4/3 + 5/4 +......(n+1)/n 的值，其中n由键盘输入。

下列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
填写划线①处代码_____________________________________。
填写划线②处代码______________________________________。

在求解“一元二次方程实数根”的算法中，如果方程不存在实数解，也要求输出结果“无实数根”。此要求主要体现了算法特征中的（   ）

A．有穷性

B．有输出

C．确定性

D．可行性

（1）某算法流程图如下图所示，图框①②中应填入的内容分别是

①___________________________________
②___________________________________
（2）完成以下 VB 程序代码

①___________________________________
②___________________________________

代数式对应的Visual Basic表达式是（   ）

A．(5x-4*y)/7z+x*x

B．(5x-4*y)/(7z+x*x)

C．(5*x-4*y)/(7*z+x*x)

D．5*x-4*y/7z+x*x