For i= 1 To 6
a(i) =Int(Rnd*10) + 1
Next i
For i= 1 To 5
If i Mod 2= 1 And a(i) >a(i+1) Then
t=a(i):a(i)=a(i+1):a(i+1)=t
Else
a(i)=a(i)+1
End If
Next i
执行程序后,a数组各元素可能是( )
请回答下列问题:

请回答下列问题:
Dim a, b, c, As Integer
a=100
b=50
a=a-b
a=a*2

Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim a As Integer, b As Integer
Randomize
n = Val(Text1.Text)
i = ①
Do While i<= n
a = Int(Rnd * 100)
b = Int(Rnd * 100)
If ② Then
List1.AddItem "(" + Str(i) + ")" + Str(a) + "+" + Str(b) + "="
i = i + 1
End If
Loop
End Sub
① ②