Private Sub Command1_C1ick ( )

Dim a(9) As Integer

a(9)=Val(Text1.text)

For i=8 to 1 step -2

a(i)=a(i+1)/2

Next i

Text2.text=str(a(i))

End Sub

Dim a As Integer, b As Integer, c As Integer, y As Integer

a=3:b=4:c=4

If a<=b And c<=a Then

  y=a+b

ElseIf a<=b or b<=c Then

  y=b+c

ElseIf b=c Then

y=a mod c

Else

  y=a+b+c

End If

该程序段运行之后，变量y的值为（   ）

①将0赋值给变量Num，将1赋值给变量i

②若i除以2余0，则将变量Num的值增加1并输出i

③变量i的值增加1，若变量i小于等于10，则转②

④结束

关于该算法的说法不正确的是（  ）

For i=1 to 30

   If i mod 5=0 then

      s=s+i

      i=i+6

   end if

next i