实现上述功能的VB程序如下，但加框处代码有错误，请改正。

  Dim a(1 To 15) As Integer

Dim n As Integer 'n为计数器

Dim key As Integer 'key存放筛选条件的数字部分

Dim f As String 'f存放筛选天健的符号部分：大于号或者小于号

Private Sub FormLoad()

Randomize

For i = 1 To 15

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

Next i

 End Sub

Private Sub Command1Click()

Dim c As Integer

Dim st As String

n = 0

c = Len(st)

f = Mid(st, 1, 1)

If f = "<" Then Se2 '调用过程

If f = ">" Then Se1 '调用过程

Label2.Caption = "有" + Str(n) + "个筛选结果"

End Sub

Private Sub Se1() '筛选过程1

For i = 1 To 15

   If a(i) > key Then

      List2.AddItem Str(a(i))

      n = n + 1

   End If

Next i

End Sub

Private Sub Se2() '筛选过程2

For i = 1 To 15

List2.AddItem Str(a(i))

       n = n + 1

    End If

Next i

End Sub

T=1：K=1

Do While K<=5

T=T*K

K=K+2

Loop

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上显示的结果分别是（  ）

Option Base 1

Private Sub Command1Click

     Dim a(4, 4)

     For i = 1 To 3

        For j = 1 To 3

             a(i, j)=(i-1)*3+j

        Next j

     Next i

     PRINT A(3, 1)

End Sub

程序运行后，单击命令按钮，其输出结果为（  ）