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)各元素值不可能的是（  ）

Dim a(1 to 20) As Integer

For i=2 to 10

For j=2 to 20\i

a(i*j)=a(i*j) +1

Next j

Next i

该程序段运行后，数组a中元素值为0的个数是（  ）

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    Dim s As Integer, t As Integer, k As Integer

    s = 0

    For i = 1 To 1000

        n = i

        t = 0

        k = 0

        Do While n > 0

            If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

           {#blank#}1{#/blank#}

        Loop

        If {#blank#}2{#/blank#}Then s = s + 1

    Next i

    Text1.Text = Str(s)

End Sub

图a

图b