Dim names(5) As String

Private Sub Command1_Click()

Dim a(1 To 10) As Integer, b(1 To 10) As Integer

Dim n As Integer, i As Integer

  n = 3

  For i = 1 To 5

    a(i) = i

    b(n) = 2 * n + i

 Next i

 Text1.Text = Str(a(n))

 Text2.Text = Str(b(n))

End Sub

程序运行后，单击命令按钮，在文本框Text1和Text2上显示的结果分别是（  ）

For i = 1 To 5

 b(a(i)) = b(a(i)) + 1

Next i

pa = 0

For j = 1 To 10

 For k = 1 To b(j)

pa= pa + 1 : a(pa) = j

 Next k

Next j

a(1)到a(5)的初值依次是7、5、9、4、3，程序段运行后，数组a值依次是（  ）

  PRIVATE SUB FORM_CLICK()

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

  MAX=0: MIN=21

FOR I= 1 TO 10

   A(I)={#blank#}2{#/blank#}

  IF {#blank#}3{#/blank#} THEN   MAX=A(I)

  IF {#blank#}4{#/blank#} THEN  MIN=A(I)

NEXT I

PRINT “最大数是”；MAX ,”最小数是” ；MIN

END SUB