【加试题】某单位会员储值卡查询系统具有如下功能：输入会员卡号，即可查出该卡号对应的余额。所有会员卡号和相应的余额已分别保存在数组kh和数组ye中，第i个会员的卡号保存在kh(i)中，对应卡号的余额保存在ye(i)中，卡号从小到大排序。

程序运行界面如图所示，左边列表框List1中显示的是会员卡号和余额，在文本框Text1中输入会员卡号，单击"查询余额"按钮（Command1）后，如果找到此卡号，则在标签Label2中显示"此卡号余额为"和卡号对应的余额值，如果未找到则显示"找不到此卡号，请重新输入"。

解决此问题的部分程序段如下：

Dim kh (1 To n) As Long

Dim ye (1 To n) As Single

Private Sub Command1_Click()

Dim x As Long, i As Long, j As Long, m As Long, f As Boolean

x = Val(Text1.Text)

i = 1: j = n: f = False   ‘ 设卡号总数为n

Do While   ①

   ②

If x = kh (m) Then

  f = True

ElseIf x < kh (m) Then

  j = m - 1

Else

    ③

End If

Loop

If f Then

Label2.Caption = "此卡号余额为" + Str(ye(m)) + "元"

Else

Label2.Caption = "找不到此卡号，请重新输入"

  End If

End Sub

Private Sub Form_Load()

   ’此过程用于对数组kh和数组ye进行初始赋值，代码略

End Sub