填空题 执行下面程序,单击命令按钮Cmd1后,a(2)的值是 1(7) 2,a(3)的值是 3(8) 4,a(5)的值是 5(9) 6。 Option Explicit Option Base 1 Private Sub Cmd1_Click7 Dim a8 As Integer,i As Integer,n As Integer Dim k As Integer n=8 ReDim a(n) For i=1 To n a(i)=2*i-1 Next i k=2 Do For i=UBound(a) To 1 Step -1 If i Mod a(k)=0 Then Call delete(a,i) End If Next i k=k+1 Loop Until a(k)>UBound(a) For i=1 To UBound(a) Text1=Text1 & Str(a(i)) If i Mod 5=0 Then Text1=Text1 & vbCrLf Next i End Sub Private Sub delete(a9 As Integer,i As Integer) Dim k As Integer If i<>UBound(a) Then For k=i+1 To UBound(a) a(k-1)=a(k) Next k End If ReDim Preserve a(UBound(a)-1) EndSub