尼克斯彻定理：任何一个大于等于 1 的整数的立方等于一串连续奇数之和，如：13=1，23=3+5，33=7+9+11。编写一个 VB 程序验证尼克斯彻定理，程序运行时，在文本框 Text1 中输入 一个大于等于 1 的整数，单击“验证”按钮 Command1，在文本框 Text2 中显示验证结果，运行界 面如下图所示

实现上述功能的 VB 代码如下，其中加框处代码有错，请改正。
Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String
n = Val(Text1.Text)
For i = 1 To n ^ 3 Step 2    ' 变量 i 表示连续奇数的首个整数

sum = 0 :   t =i :   flag = False

Do While sum <= n ^ 3  And  flag = False

sum = sum + t
t=t+1  
If sum = n ^ 3 Then flag = True

Loop

If flag = True Then Exit For

Next i
s = Str(n) + "^" + Str(3) + "="
Do While sum > 0

sum = sum-1

If sum = 0 Then

s = s + Str(i)

Else

s = s + Str(i) + "+"

End If

i = i + 2

Loop
Text2.Text = s
End Sub
加框部分应改为：① _________  ②__________

有如下程序段：
s＝“”
For i＝1 To 3
For j＝7 To i＋1 Step－1
If a(j)＜a(j－1) Then
k＝a(j)：a(j)＝a(j－1)：a(j－1)＝k
End If
Next j
s＝s＋Str(a(i))
Next i
Text1.Text＝s
数组元素a(1)到a(7)的数据依次为“3，9，1，5，8，6，2”，经过该程序段“加工”后，文本框Text1中显示的内容是(  )

A．1 2 3	B．9 8 6
C．3 9 1	D．8 6 2

若在文本框Text1、Text2，Text3中分别输入2，5，6，下列程序段运行后，标签Labe12中显示的内容是
Private Sub Command1_Click()
Dim a As Integer，b As Integer，c As Integer
A=Val(Text1.Text)：b=Val(Text2.Text):c＝Val(Text3.Text)
Label2.Caption=Str(fx(a,b,c))
End Sub
Function fx(x As Integer,y As Integer,z As Integer)As Integer
If x<y Then fx=z
Ifx>y Then fx=y Else fx=x
End Function

A．2

B．5

C．6

D．0

一位顾客购买了土豆X 千克、西红柿 Y 千克、辣椒 Z 千克，其中土豆 3.5元/千克、西红柿4.3元/千克、辣椒6.6元/千克。计算该顾客消费总价的算法如下：
输入三种蔬菜的重量X,Y,Z
‚用公式计算总价 S=3.5*X+4.3*y+6.6*z
ƒ输出总价S
„结束
以上算法属于（    ）。

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