Label1.Caption="  "

  For i=0 To 5

    For j=1 To a(i)

       Label1．Caption=Label1．Caption+Str(i)

    Next j

  Next i

数组元素a(0)到a（5）的值依次为“0，1，2，0，2，0”。执行该程序段，标签Label1中显示的内容为（  ）

    max=10 000

    For i=1 To 10

        s=0

        For j=i To 10

          s=s+a(j)

          If s>max Then max=s

        Next j

Next i

已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4。程序执行后，变量max的值为（  ）

程序代码如下所示，请补充完整。

Private Sub Command1_Click()

 Dim i As Integer，j As Integer，s As Single，zc As Integer

 Dim max As Integer

 zc＝Val(Text1.Text)

 max＝0

 If zc Mod 2＝1 Then

List1.AddItem ”该周长的矩形长度和宽度不是整数！”

 Else

List1.AddItem ”宽度 长度 面积”

For i＝1 To zc \2

{#blank#}1{#/blank#}

 If i>j Then Exit For

{#blank#}2{#/blank#}

 List1.AddItem Str(i)＋”   ”＋Str(j)＋”    ”＋Str(s)

 If {#blank#}3{#/blank#}Then max＝s

 End If

 Text2.Text＝Str(max)

End Sub

Dim a(1 To 5) As Integer

t=0

For i = 1 To 5

  a(i) = Int(Rnd * 30 + 10)

  t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

  If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（  ）

s = "123456789"

g = ""

For i = 1 To 3

  n = Len(s)

  x = Int(Rnd * n) + 1

  g = g + Mid(s, x, 1)

  s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)

Next i

在程序执行时，若变量x的值依次为3，3，6，则最终变量g的值为（  ）