输出结果_______。

某VB程序段如下：
Dim a(1 To 5) As Integer, i As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = a(i - 1) + a(i - 2)
Next i
Text1.Text = Str(a(i - 1))
该程序段运行后，文本框Text1中显示的内容是

A．2

B．3

C．5

D．8

某算法流程图如图所示。当输人值为0时，该算法执行的步骤是（   ）

A．①②③④	B．①②③⑤
C．①②④⑤	D．①②③④⑤

在下面列出的四个程序段中，不能正确地将 x和y两个变量中的数据进行交换的是（  ）

A．x=y   y=x	B．x=x+y    y=x-y    x=x-y
C．m=x   x=y   y=m	D．m=y    y=x    x=m

给定区间a1，a2和b1，b2，若a2≥b1，则认为这两个区间是有重叠的，可进行合并｡如区间1，3和2，6可合并为1，6；区间1，6，2，5可合并为1，6；区间1，4和4，5可合并为1，5｡
编写一个“合并重叠区间”的VB程序，功能如下：在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值（数据都用逗号分隔并以逗号结尾），单击“确定”按钮后，在Text2中显示合并后的各个区间｡例如，在文本框Text1中输入“1，2，3，5，4，6，9，12，10，11，”，表示区间1，2，3，5，4，6，9，12，10，11，合并后的区间分别为1，2，3，6，9，12｡程序运行界面如图所示，实现上述功能的VB代码如下：

Const n=100
Private Sub Cmd1_Click()
Dim i As Integer, k As Integer, L As Integer, R
As Integer
Dim s As String, c As String, t As String, result
As String
Dim a(1 To n) As Integer
s=①  :t="":k=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c<>, Then
②
Else
k=k+1
a(k)=Val(t)
t=""
End If
Next i
L=a(1):R=a(2)
i=3
Do While i<=k
If a(i)>R Then
result = result+"("+Str(L)+,+Str(R)+"),"
L=a(i):R=a(i+1)
   
R=a(i+1)
End If
 ③
Loop
result=result+"("+Str(L)+,+Str(R)+"),"
Text2. Text=result
End Sub
（1）码中①②③划线处代码补充完整｡
①__________
②__________
③__________
（2）程序代码中的加框处代码有误，请改正｡
_____________________
（3）运行该程序，输入数据如图所示，程序执行完毕时，变量k 为________________｡