Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(text1.Text)

b = Val(text2.Text)

c = (a + b + Abs(a - b)) \ 3

Text3.Text = Str(c)

End Sub

运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（   ）

⑴每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。

⑵对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由其中的某个假设中得到！

现编写一个VB程序，在Text1中输入一串字符，单击“统计”按钮，在Text2中显示该字符串中的最大的回文子串（长度相同时，输出最左边的子串）。请回答下列问题：

Dim n As Integer, i As Integer, a As Integer, b As Integer

Randomize

n=5：i=1

Do While i <=n

a= Int(Rnd*90)+ 10

b= Int(Rnd*90)+ 10

If a>b Then

List1.AddItem Str(a)+"-"+ Str(b)+“=“

i=i+1

End If

Loop

执行该程序段后，下列说法正确的是（  ）

Dim f1 as long, f2 as long, f as long

 n=val(Text1.Text)

 f1=1

 f2=1

 For k=3 to n

Next k

Label1.Caption=“斐波那契数列第”+str(n)+“项的值为”+str(f)

方框中的代码由以下三部分组成：

①f2=f  ②f1=f2  ③f=f1+f2

代码顺序正确的选项是（  ）

实现上述功能的VB程序如下，请回答下列问题: