Private Sub Command1_Click()
  Dim A(1 To 5) As Integer
  Dim x As Integer
  For i = 1 To 5
    A(i) = i
  Next i
  i = 1
  Do While x < 2
    A(i) = A(i) * x
    x = x + 1
    i = i + 1
  Loop
  Text1.Text = A(1)
  Text2.Text = A(2)
End Sub
程序运行后，单击Command1后按钮，文件框Text1、Text2中的结果是（   ）。
A、2   0 B、0   2
C、2   4 D、2   5

---