某市近期向市民投放带2B开头尾数为001至999的机动车牌号,经过竞投有200个牌号被首批车主投中。下面Visual Basic程序段的功能是根据车牌号查找相应的车主身份证号码,其中车牌号按尾数从小到大的顺序存储在cno数组中,身份证号码存储在cnum数组中。
界面如图VB-1所示,在文本框Text1中输入一个车牌号,单击"开始查找"按钮后,在文本框Text2中输出结果。如果查找成功,则输出对应的车主身份证号码,否则输出"找不到"。
解决查找问题的算法流程图如图VB-2所示,相应的Visual Basic程序段如下,在(1)和(2)划线处,填入合适的语句或表达式,把程序段补充完整。
Private Sub Command1_Click()
Dim key As String , i As Integer
Dim j As Integer , found As Boolean
i = 1: j = 200 : found = False