Private Sub Command1_Click()a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To 10 a(i) = 1 * a(i) If i Mod 2 <> 0 Then a(i) = -1 * a(i) End IfPrint "a(" & i; ")=" & a(i)Next iEnd Sub