Dim s(1 To 6) As String

Text1.Text = ""

For i = 1 To 5

   For j = i + 1 To 6

       If s(i) + s(j) < s(j) + s(i) Then

        t = s(j): s(j) = s(i): s(i) = t

       End If

    Next j

Next i

For i = 1 To 6

  Text1.Text = Text1.Text + s(i)

Next i

如果程序运行，一开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（   ）

Private Sub Command1Click()

  Dim a(-1 To 8) As Integer

  Dim i As Integer

  For i = -1 To 8

    a(i) = i * i

  Next i

  List1.AddItem Str (a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为

Const n = 20

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

  a(i) = Int(Rnd * 1000) + 1

  List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

Dim min As Integer, sum As Single

max = a(1): min = a(1)

sum = 0

For i = 2 To n

  If {#blank#}1{#/blank#} Then max = a(i)

  If a(i) < min Then min = a(i)

  sum = sum + a(i)

Next i

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

Text1.Text = Str(max)

Text2.Text = Str(min)

Text3.Text = Str(sum)

End Sub