Do While i<=6

  a(i)=Int(Rnd*5)+1

  If a(i) Mod 2<>i Mod 2 Then

    i=i-1

  ElseIf a(i)<a(i-1) Then

    a(i)=a(i)*2

  End If

i=i+1

Loop

执行该程序段后，数组元素a(1)到a(6)的值可能是(    ）

m=int(input("请输入自然数 m:"))

n=int(input("请输入自然数 n:"))

i=1

if m<n:

    m,n=__①__

    s=m

    while __②__:

        i = i+1

        s =__③__

print(__④__)

Private Sub Command1_Click()

    Dim a(0 To 9) As Integer

    Dim t as Long

    t = Val(Text1.Text)

    Do While t <> 0

        a(t Mod 10) = 1

        t = t \ 10

    Loop

    For i = 0 To 9

        x = x + a(i)

    Next i

End Sub

若在文本框Text1中输入10242048，则程序执行后，变量x的值为（  ）

写一个计数器程序，要求反复输入一位数字，遇到数字0结束输入，统计输入了多少个数字（不含0）并输出结果。

a＝int（input（"请输入一个数字"））

ans＝{#blank#}1{#/blank#}      #ans用来统计数字个数

while {#blank#}2{#/blank#}:

    ans＋＝{#blank#}3{#/blank#}

    a＝int（input（"请输入一个数字"））

print（ans）