n = 0

m = 0

For i = 1 To 100

If Rnd > 0．5 Then

     n = n + 1

  Else

     m = m + 1

Next i

……

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

程序运行时，在文本框Text1中输入选票信息，单击“计算”按钮Command1后，被选为班长的编号显示在文本框Text2中。程序运行效果如图所示。

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a(1 To 5)As Integer

    ‘数组元素a(1)~a(5)依次存放编号为1~5的五位候选人的得票数

Dim st As String, i As Integer, j As Integer, n As Integer

Dim ans As Integer    ‘变量ans存放被选为班长的人的编号

Dim max As Integer    ‘变量max存放最多的得票数

st=Text1.Text

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

For i=1 To 5

a(i)=0

Next i

For i=1 To 5

For j=1 To n

If{#blank#}2{#/blank#}Then 

a(i)=a(i)+1

Next j

Next i

max=0

For i=1 To 5

If a(i)>max Then

max=a(i):ans=i

Next i

{#blank#}3{#/blank#}

End Sub

 PRIVATE SUB FORM__CLICK()

 X=INT(RND)+5

   IF X   THEN   PRINT X 

   ELSE   PRINT X+2

   END SUB

x =    ①  

t = 0: s = ""

Do While x <> 0

    t =    ②  

    x = x \ 10

Loop

If    ③    Then Then Then s = "是9的倍数" Else s = "不是9的倍数"

Dim s(1 To 81) As Integer, i As Integer, j As Integer, c As Integer, temp As Integer

c=0 : s(1) = 0

For i = 1 To 9

    For j = 1 To i

      temp = s(j * i)

      s(j * i) = j * i

      If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c = c + 1

    Next j

Next i

该程序段运行后，变量C的值为（   ）

Dim i As Integer, sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

 a(i) = a(i + 2) - a(i + 1)

 b(i) = b(i + 2) - a(i)

 If b(i) Mod 3 = 0 Then sum = sum + b(i)

Next i

Text1.Text = Str(sum)

该程序段运行后，文本框Text1中显示的内容是（  ）