程序界面如图所示，左边列表框List1中显示同学的编号和姓名，单击"抽奖"按钮（Command1），在标签Label3中显示抽中的编号，同时在标签Label4中显示"恭喜***同学"，其中具体同学的姓名从数组b中获取。

解决此问题的程序段如下，请在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

Dim a(1 To 50) As Integer

Dim b(1 To 50) As String

Function search(m As Integer) As Integer

search = 0

For i = 1 To 50

    If m = a(i) Then

       search = a(i)

    End If

Next i

End Function

Private Sub Command1_Click()

Dim c As Integer,t as integer

Randomize

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

Label3.Caption = Str(c)

t = search(c)

  If t <> 0 Then

    Label4.Caption = "恭喜" + {#blank#}2{#/blank#} + "同学"

   End If

End Sub

Private Sub Form_Load()

    ' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

i=1：n=5

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

小明编写了一个压缩的VB程序，功能如下：在文本框Text1中输入需压缩数据（偶数个字符），单击“压缩”按钮Command1，程序对压缩数据依次进行压缩处理，压缩数据显示在文本框Text2中。程序运行界面如图所示：

程序描述： 所谓角谷猜想，是指对于任意一个正整数，如果是奇数，则乘3加1，如果是偶数，则除以2，得到的结果再按照上述规则重复处理，最终总能够得到1。如，假定初始整数为5，计算过程分别为16、8、4、2、1。
程序要求输入一个正整数（不为1），将经过处理得到1的过程输出来。代码如下：

x=int(input('输入一个正整数：'))

while    ①    

    if     ②  

        x=x/2

           ③  

    else:

            ④  

            ③  

        if x==1:

                ⑤