执行下面程序,在文本框Text1中输入"21 23 2 3 5 17 54#"后,单击命令按钮Cmdl,数组元素A(1)的值是（）,A(3)的值是（）,A(5)的值是（）.

Option Explicit

Private Sub Cmd1_Click()

Dim A() As Integer,K As Integer

Dim L As Integer,S As String

S=Text1

Do

K=K+1

ReDim Preserve A(K)

L=InStr(S," ")

If L<>0 Then

A(K)=Val(Left(S,L-1))

S=Right(S,Len(S)-L)

Else

A(K)=Val(S)

End If

Loop Until L=0

Call Exchang(A)

For K=1 To 7

Text2=Text2 &A(K) & " "

Next K

End Sub

Private Sub Exchang(A() As Integer)

Dim i As Integer,Tem As Integer

Dim Point1 As Integer

Point1=1

For i=1 To UBound(A)

If A(i) Mod 3 =0Then

Tem=A(i)

A(i)=A(Point1)

A(Point1)=Tem

Point1=Point1+1

End If

Next i

End Sub