右框内划线处的内容可以是(    )

请将实现以上功能的程序补充完整：

Private Sub Command1_Click( )

  x= Val (Text1.text)

  If  x>0   Then

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

  ElseIf   {#blank#}2{#/blank#} Then

     y = 0

  ElseIf   x < 0   Then

     y = Abs(x)    

  End  If

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

End Sub

Private Sub Command1_Click()

Dim i As Integer, c As Integer, n As Integer

n = Val(Text1.Text)

c = 0

For i = 1 To n

If i Mod 3 = 0 Then c = c + 1

Next i

Label1.Caption = Str(c)

End Sub

运行该程序，在文本框Text1中输入20，单击命令按钮Command1，在标签Label1中显示的是{#blank#}1{#/blank#}。

解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。

Dim a(1 To 10) As Integer，b(1 To 10) As Integer

k = 0

For i = 10 To 1 Step -1

Do While b(i) <> 0 k = k + 1

a(k) = i: b(i) = b(i) - 1

Loop

Next i

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（  ）