填空题 执行下面程序,在文本框Text1中输入"21 23 2 3 5 17 54#"后,单击命令按钮Cmdl,数组元素A(1)的值是 1(13) 2,A(3)的值是 3(14) 4,A(5)的值是 5(15) 6. Option Explicit Private Sub Cmd1_Click7 Dim A8 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(A9 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