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

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是______，文本框Text2中显示的内容是______。
Private Sub Command1_Click( )
Dim a(1 To 5) As Integer, i As Integer, s As Integer
a(1)=5
a(2)=10
For i =" 3" To 5
a(i) = a(i-1)-a(i-2)
Next i
Text1.Text = Str(a(5))
s = 0
For i =" 1" To 5
If a(i)>0 then s =" s" + 1
Next i
Text2.Text = Str(s)
End Sub

若输入9，如下算法的执行结果是（   ）

A．3

B．9

C．81

D．4

有如下的Visual Basic程序段：
s = 0
x = 1
Do While x <= 5
s =" s" + x
x =" x" + 2
Loop
该程序段运行后，语句s 的值是（   ）

A．8

B．9

C．10

D．11

寻找数组元素a(1)到a(10)中最小值min程序段如下：
For i＝2 To 10
If a(i)＜min Then min＝a(i)
Next i
方框中最合适的语句是(  )

A．a(1)＝min	B．a(1)＝0
C．min＝a(1)	D．min＝0