假设共有500个市民，市民的相关信息都存储在“information.accdb”的data表中，”xm, ye,kh” 字段放市民的姓名，余额,卡号。查询程序界面如第16题图所示。工作人员在文本框Text1中输入卡号，单击“查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”。程序如下，请按要求将程序补充完整。

Private Sub command1_click()

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Dim strSQL As String

Dim a,b,c as string

Dim n as integer

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\        ①              "

 conn.Open

strSQL ="select * from data"

 Set rs.ActiveConnection = conn    

  rs.Open strSQL 

  Label1.Caption = ""

c=val(text1.text)

n=0

rs.movefirst

Do while not rs.EOF

n=n+1

a=rs.Fields("xm")

           ②       

If c= rs.Fields("kh") then

Label1.caption=a+ "的卡内余额为"+b+"元"

Exit if

else

rs.movenext

end if

loop

if n=500 then Label1.caption=”查无此人”

rs.close

  conn.close

set rs=nothing

set conn=nothing

 End Sub

①把身份证前 17 位的每个数字和加权系数相乘并累加求和。身份证号码前17位数的加权系数见下表：

②根据步骤①求得的和值，与11做取余运算得到序号，再根据序号提取校验码字符。如：所得和值除以11的余数为“0”，则对应的校验码为“1”。如下表：

    若步骤②中提取的校验码和身份证号最后一位相同，则校验通过，否则校验失败。

    某人根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student.accdb中读入全校学生身份证数据(全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示。程序界面如图所示。实现上述功能的VB程序如下，请回答下列问题：

实现上述功能的VB程序如下，请回答下列问题：

#数据库中获取数据存储在列表中

import json       #导入json函数库

   ①          #导入SQLite函数库

conn = sqlite3.connect("test.db")

json_ info=[]          #变量json_info存储记录数据

cur = conn.cursor( )

sql= "select * fromstd   ②   "        #查询ssex字段值为“man”的所有记录

cur.execute(sql)

json_ info = cur.fetchal( )          #将符合记录数据保存到变量json_info

conn.commit( )

cur.close( )

conn.close( )

#将记录转换为json格式的数据

file = open('b.json', 'w', encoding-'utf-8')     #打开json格式文件

json.dump(  ③   , file)      #将变量json_info转换为json格式保存到文件中

file.close( )

请回答下列问题：

现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能：程序运行时，将每位学生的得分(两位整数)存储到数组a中，并在列表框List1

中显示。单击“统计”按钮后，在列表框List2中显示从A级至E级，各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示：

请阅读代码，并回答以下问题：

Dim n As Integer

Dim a(1 To 50) As Integer

Private Sub Form_Load( )

    Dim adocn As New ADODB. Connection

    Dim adors As New ADODB. Recordset

    Dim str1 As String

    adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0；Data source=" +App. Path +”\school. accdb”

    adocn. Open

    str1 =“select * from students”

    ardors.Open str1, adocn

    '将每个学生的得分读入数组a中，并在列表框list1中显示，统计学生总人数n

    '代码略

End Sub

Private Sub Comd1_C1ick( )

    Dim cou As Integer，k as Integer

    Dim b(0 To 4) As Integer

    Const dj = “A级B级C级D级E级”

    For i=1 Ton

    k=a(i)\10-5

    If k<0 Then     ①    

    b(k)= b(k) + 1

    Next i

    For i=0 To 4

      cou =       '⑶改错

      List2. AddItem       ②      + Str(cou) +“%”

    Next i

End Sub

Private Sub Command1_Click()    '列表框中输出 b(i)，代码略

End Sub

Private Sub Form_Load()

    conn.ConnectionString="Provider=Microsoft.ACE.OLEDB．12.0;DATASource="&amp; App.Path &amp; "\GDP2018.accdb" conn.Open：Set myrecord.ActiveConnection = conn：myrecord.Open "GDP"

    n = 0

    Do While Not myrecord.EOF n = n + 1

        a(n) = myrecord.Fields("2018")

        b(n) = Left(myrecord.Fields("Area"), 5) &amp; "    " &amp; myrecord.Fields("2018")

        myrecord.MoveNext

    Loop

conn.Close: myrecord.Close:    Set myrecord = Nothing: Set conn = Nothing End Sub

下列说法不正确的是（  ）