flag = True : i = 1

      Do While i <= 6

          x = Int(Rnd * 100) + 1 

          If flag Or x >50 Then

               a(i)=x

               flag = Not flag

               i = i + 1

          End if

      Loop

执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（  ）

    S=Text1.Te×t

    For i=1 To Len(s)

    c=Mid(s，i，1)

    If c>=“0”And c<=“9”Then

    m=m+1

    Elself c>=“a”And c<=“z”Then

    n=n+1

    Else

    t=t+1

    End If

    Next i

    Label1．Caption：Str(t)

在文本框Text1输入“as674ER29，86Gu”。(不包括双引号)，执行程序后，标签Label1显示：（  ）

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s1 As String, s2 As String, c As String

s1=Text1.Text

s2=” ”

n=Len(s1)

For i=1 To n

c=Mid(s1,i,1)

s2=c+s2

Next i

Text2.Text=s2

End Sub

PRIVATE SUB FORMCLICK

  FOR I = 3 TO {#blank#}1{#/blank#}

     F=0

     FOR J= 2 TO I-1

       IF {#blank#}2{#/blank#} THEN

        F=1

        EXIT FOR

       END IF

     NEXT J

  IF F=0   THEN {#blank#}3{#/blank#}

  {#blank#}4{#/blank#}

 END SUB

Fori=1To5

b(a(i))=b(a(i))+1

Nexti

t=0

Forj=1To10

Fork=1Tob(j)

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

Nextk

Nextj

a(1)到a(5)d初值依次是7、5、9、4、3，程序段运行后，数组a的值依次是（）