程序界面如图所示，左边列表框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

如数据25 54 8 54 21 排序过程如下(n=5):

待排序数据：【25】 54 8 54 21

i=2:【25 54】 8 54 21

i=3:【8 25 54】 54 21

i=4:【8 25 54 54】 21

i=5:【8 21 25 54 54】

程序产生10个-100~100之间的整数，从小到大排序后输出，运行结果如图所示：

实现上述功能的VB程序代码如下，但加框处代码有错，请改正。

Dim a(0 To 10) As Integer

Private Sub Command1_Click()’产生10个随机数放在数组a中

 Dim i As Integer

 For i = 1 To 10

    ‘①

  List1.AddItem Str(a(i))

 Next i

 End Sub

Private Sub Command2_Click()

 Dim i As Integer, j As Integer

 For i = 2 To 10

  a(0) = a(i)

  j = i - 1

  Do While a(0) < a(j)

    ‘②

   j = j - 1

  Loop

  a(j + 1) = a(0)

 Next i

 For i = 1 To 10

  List2.AddItem Str(a(i))

 Next i

End Sub

①处的代码修改为{#blank#}1{#/blank#}。

②处的代码修改为{#blank#}2{#/blank#}。

程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击“删除此字符”按钮(Command1)后，在文本框Text_3中输出处理后的结果。

解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：

Dim p As String,k As String

Private Sub Command1_Click()

Dim s As Integer,result As String,flag As Boolean

result=“”

p=Text_1.Text

k=Text_2.Text

For s=1 To Len(p)

  flag=f(s)

  If Not flag Then

   result=result+①   

  End If

Next s

②   

End Sub

Function f(s As Integer)As Boolean

  If Mid(p,s,1)=k Then f=True

End Function