VB編程求代碼，壹個數組有十個元素。1，3，5，7，9，11，13，15，17，19先在屏幕上產生

Dim a(9), temp

For i = 0 To 9

a(i) = i * 2 + 1

Print a(i);

Next i

Print Chr(10)

For i = 0 To 9

If i < 5 Then

temp = a(i)

a(i) = a(i + 5)

a(i + 5) = temp

End If

Print a(i);

Next i

End Sub