题目

某自主选车牌号系统，可以实现采用个性车牌选号码。当机动车所有人通过自编自排方式输入车牌号码，系统会进行号牌查询，如果还没有被使用，则提出信息“选车牌号码成功！”否则提示信息“车牌号码已被使用！”假设已使用车牌号码(数量小于30000个)的数据存放在数据库文件的chepai 数据表num-ber字段，选号程序的VB代码如下，程序运行时界面如图所示。机动车所有人在文本框Text1中输入自编自排车牌号码后，单击“检索”按钮Command1，在标签框Label3中显示结果。 解决此问题的算法流程图如下图所示： 相应的VB程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。 Dim cp(1 To 30000) As String '存放已使用的车牌号码 Dim plate As String '输入的自主编制车牌号码 Dim num As Integer '已使用车牌号码的数量 Private Sub Command1_Click()     Dim f As Boolean, i As Integer, j As Integer, m As Integer     Label3. Caption=“”     i= 1：j= num     plate=“浙A”& Text1. Text     f= False     Do While (i <=j) And Not f         m=Fix((i+j) / 2)         If plate= cp(m) Then             f= True         Else             If plate<cp(m) Then                 j=m-1             Else                     ①                End If         End If     Loop     If f Then         Label3. Caption=“车牌号码已被使用！”     Else         Label3. Caption=“选车牌号码成功！”     End if End Sub Private Sub Form_ Load( )     Dim conn As New ADODB. Connection，rs     As New ADODB. Recordset     Dim strSQL As String     conn. ConnectionString =“Provider = Mi-crosoft. ACE. OLEDB.12. 0；Data Source=” +App. Path+“\chepai. accdb”     conn. ( )pen     '设置查询的SQL语句，从数据表chepai 中选取number列数据，并按升序排序。     strSQL=“SELECT number FROM chepai order by number asc'     Set rs. ActiveConnection= conn     rs. Open strSQL     num=0     Do While     ②             num= num+1         cp( num) = rs. Fields(“number”)         rs. MoveNext     Loop     rs. Close     conn. Close End Sub （1） 程序查找的数据库文件名称是。 （2） 在程序划线处填入适当的语句或表达式，把程序补充完整。 ①② 答案： 【1】chepai.accdb 【1】i=m+1【2】Not rs. eof

查看本题答案和解析