Dim i as Integer, max as Integer Dim a(1 to 10) as Integer

‘代码略，随机产生 10 个不重复的数存于数组 a 的 10 个元素 a(1)~a(10)中max=a(1)

For i=2 to 10

       If a(i)>a(max)  then  max=i Next i

变量 max 用于存储（   ）

执行这部分流程后，变量x，y的值分别是（  ）

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

a = 20

b = 0

c = 2

Do While a > b And a > c

   b = b + 1

   c = c + b

Loop

问：该程序段运行后，

实现上述功能的VB代码如下，请完善代码：

Private Sub Command1_Click()

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 ={#blank#}1{#/blank#}

  t = t +2

  If{#blank#}2{#/blank#}Then flag = True

 Loop

 If flag = True Then Exit For

Next i

s = Str(n) + “^”+ Str(3) + “=”

Do While sum >0

{#blank#}3{#/blank#}

 If sum = 0 Then

  s = s + Str(i)

 Else

  s = s + Str(i) +“+”

 End If

 i = i + 2

Loop

Text2.Text = s

End Sub

Private Sub Command1_Click()

Dim a(0 To 4) As Integer

Dim i As Integer

a(4) = Val(Text1.Text)

For i = 3 To 1 Step -1

a(i) = a(i + 1) / 2

Next i

Text2.Text = Str(a(i+2))

End Sub

执行这部分流程，输入11，变量i和f的值分别是（  ）