n = 0

m = 0

For i = 1 To 100

If Rnd > 0．5 Then

     n = n + 1

  Else

     m = m + 1

Next i

……

小金仔细分析该程序段后，发现其中缺少了(   )

Private Sub command1_click()

 Dim n As Integer，x As Integer

n=Val(Text1.Text)

x=n Mod 10

n=x*1000+n\10

Text1.Text=Str(n)

End Sub

n = 0: i = 2: f = True

Do While i <= 6 And f

n = n + 1

f = False

For j = 6 To i Step -1

If a(j) < a(j - 1) Then

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

Last = j

f = True

End If

Next j

i = Last + 1

Loop

数组元素a(1)到 a(6)的值依次为“10,16,82,36,51,87”，经过该程序段“加工”后，下列说法不正确（   ）

s=“491053”

For i=1 To 3

n=Len(s)

k=1

For j=2 To n

If Mid(s， k， 1) >=Mid(s， j， 1) Then

K=j

Else

Exit For .Exit For表示退出循环

End If

Next j

s= Mid(s， 1， k-1) + Mid(s， k+ 1，n-k)

Next i

Label1.Caption =s

执行该程序段后，标签Label1中显示的值是（  ）

For i= 1 To 2

    For j=5 To i+1 Step-1

      If a(j) >a(i) Then

        t=a(j)：a(j)=a(i)：a(i)=t

      End If

    Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）