Do While i <= n

x = Int(Rnd() * 9) + 1 If x Mod 2 = 1 Then

a(i) = x Else

a(n) = x n = n - 1

End If

i = i + 1 Loop

数组元素的初值均为 0，执行该程序段后，在下列选项中 a(1)至 a(5)各元素值不可能的是（  ）

k=0:s=0

for i=2 to n

    If a(i)>a(i-1) then

        _______①_________

    Else

        k=0

    End If

    if _____②______ then s=s+1

next i

text1.text=str(s)

划线处的正确语句是（   ）

Const n =10

For i = 1 To n - 1

    t = n - (n + i ) Mod 2

    For j = t To i + 2  Step -2

        If d(j)> d(j - 2)  Then

            Temp=d(j)

            d(j) = d(j - 2)

            d(j - 2) = temp

        End If

    Next j

Next i

已知数组元素d(1)到d(10)的原始数据为1、2、3、4、5、6、7、8、9、10.程序运行后，d(10)的值为（ ）

Option Base 1

Private Sub Command1Click

     Dim a(4, 4)

     For i = 1 To 3

        For j = 1 To 3

             a(i, j)=(i-1)*3+j

        Next j

     Next i

     PRINT A(3, 1)

End Sub

程序运行后，单击命令按钮，其输出结果为（  ）

 For i = 1 To 2

    For j = 1 To 6 - i

        If a(j) - a(j + 1) > 0 Then

           t = a(j): a(j) = a(j + 1): a(j + 1) = t

        End If

     Next j

  Next i Text1.Text = "" For i = 1 To 6

  Text1.Text = Str(a(i)) + Text1.Text Next i

数组元素a(1)到a(6)的初值依次为15，11，58，38，26，9，执行该程序段，文本框Text1显示的内容是（  ）

'待排序数据存储在数组a中（a（1）~a（n）），要求升序排列

For i=1To（n-1）\2

  For j=1To n-i*2

    If a  Then         '①

      t= a（j）：a（j）= a（j+ 2）：a（j+2）= t

    End If

  Next j

Next i

For i = 1 To n\2

    j = 2 * i - 1

    If a（j）> a（j+ 1）Then t = a（j）：a（j）= a（j+1）：a（j+1）= t

Next i

For i=  Step 2         '②

    t = a（i）：j = i - 1

    Do While t <a（j）

      a（j+ 1）= a（j）：j =j-1

    Loop

    a（j+ 1）= t

Next i

①{#blank#}1{#/blank#}②{#blank#}2{#/blank#}