在某学校里，每位同学都会得到一张一卡通卡，一卡通的卡号是唯一的，卡内会记录每位同学的姓名、住址、班级、金额等信息。每当同学刷卡时，卡号就被输入电脑，然后进行查找，如果找到就显示姓名，否则显示“查无此人”。下列程序的功能是根据卡号查找对应的姓名，程序中数组a保存所有已发放一卡通的卡号，数组b保存卡号对应的姓名，第i位同学的卡号保存在a(i)中，姓名保存在b(i)中。程序界面如图所示，左边列表框列出所有同学的卡号和姓名，在右边文本框Text1中输入卡号，单击“开始查询”按钮(Command1)，程序就按卡号进行查找，如果找到就在标签Label3中输出卡号对应同学的姓名，否则就输出“查无此人”。

解决此问题的算法流程图如图所示，相应的程序如下，在程序①和②画线处，填入适当的语句或表达式，把程序补充完整。

       Private Sub Command1_Click( )
          Dim x As String, i As Integer, s As String, f As Boolean
          x＝ ①
          i＝0:f＝False        `f为找到标志变量，值为True表示找到，否则表示没找到
          Do While (i＜n) And (f＝False)
             i＝i+1
             If x＝a(i) Then
             f＝True
             End If
          Loop
          If f＝True Then
           ②
          Else
             s＝"查无此人！"
          End If
          Label3.Caption＝s
       End Sub
程序中①画线处应填入________________________。
程序中②画线处应填入________________________。