题目

杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（IC卡），具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。         假设共有1000个市民，市民的相关信息都存储在“information.accdb”的data表中，查询程序界面如图所示。工作人员在文本框Text1中输入卡号，单击“开始查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”。请按要求将下列程序补充完整。Private Sub command1_click()Dim conn As New ADODB.Connection, rs As New ADODB.RecordsetDim strSQL As StringDim a,b as string ‘分别定义姓名、余额Dim n as integerconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\information.accdb"     '打开到数据库的链接 conn.OpenstrSQL ="select xh,xm from data where '卡号=&(Text1.Text) & '" '设置查询的SQL语句 Set rs.ActiveConnection = conn      '设置rs的ActiveConnection属性，指定与其关联的数据库链接  rs.Open strSQL   '打开记录集，将从表information中读取的结果保存到记录集rs中  Label1.Caption = ""n=0Do while not rs.EOF       ①         a=rs.Fields("姓名") b=rs.Fields("余额")rs.movenextlooprs.Close  conn.closeset rs=nothingset conn=nothing             ②        if n=0 then Label1.caption="查无此人"End Sub （1） 程序中①划线处应填入。 （2） 程序中②划线处应填入。 答案： 【1】n=n+1 【1】Label1.caption=a+ " 卡内余额为"+b+"元"

查看本题答案和解析