Dim ID（ ） As String    '用于存放客户卡号

Dim total（ ） As Long      '用于存放积分数

Dim sc As Long                  'VIP客户人数

Dim jf As Long                  '积分数

Private Sub Command1Click（ ）

  Dim k As String                '客户卡号

  Dim q As Long               '代金券额度

  Dim i As Long

  k = Text1.Text

  For i = 1 To sc     ’顺序查找

      If ID（i） = k Then

          jf = total（i）     

          cash（jf） = q               ’ ①

          Exit For

      End If

                                     ’ ②

      Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”

    Next i

  End If

End Sub

' cash函数用于计算VIP客户可换购的代金券额度

Function cash（jf As Long） As Long

  If jf >= 2000 And jf <= 20000 Then

       Cash = jf\2000*10

ElseIf jf > 20000 And jf <= 50000 Then

       Cash = jf\2000*11

ElseIf jf > 50000 And jf <= 100000 Then

       Cash = jf\2000*12

ElseIf jf > 100000 And jf <= 150000 Then

       Cash = jf\2000*13

ElseIf jf > 150000 Then

       Cash = jf\2000*14

End If

End Function

Private Sub FormLoad（）

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

   Dim intSQL As Long

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

    conn.Open

   intSQL = "SELECT score  FROM Integral" 

     Set rs.ActiveConnection = conn

     rs.CursorType = adOpenStatic

     rs.Open intSQL

     sc = 0

     Do While Not rs.EOF

       sc = sc + 1

       total（sc） = rs.Fields（"score"）

       rs.MoveNext

     Loop

rs.Close

     conn.Close

     Set rs = Nothing

     Set conn = Nothing

End Sub

VB应用程序界面如上图所示，在文本框text1中输入查询的日期（以月日形式，如0623），单击“查询”按钮，在列表框中显示所有这个日子出生的员工姓名（按姓名排序），并在Label3处显示员工数量，如果人数为0，则在列表框中显示“本天没有员工生日”。

解决此问题的VB程序如下，阅读程序并完成后面的问题。

‘定义存放员工姓名的数组na

Private Sub CmsqClick()

  Dim n As Integer , i As Integer , j As Integer

  Dim t1 As String

  ‘连接数据库获取数据

  Dim cn As new connection

  Dim rs As new recordest

  Dim str1 As String , str2 As String

     str1 =”driver=Microsoft access driver(*.mdb)”；dbq=”&app.path”&”员工信息.mdb”

     cn.open str1

     str2 = “select * form members where 生日 ＝’“ + text1.text + ”’”

     rs.open str2 ， cn.adOpenDynamic ，adLockOptimistic

     n = 0

     Do While Not Rs.EOF

       n = n + 1

       na(i) = rs.Fields(“姓名”).value

       rs.MoveNext

     Loop 

     rs.close

     cn.close

‘按姓名排序

If n = 0 Then

  List1.AddItem “本天没有员工生日”

Else

  For i = 1 to n-1

    For j = 1 to n+1 Step -1

      If na(j) < na(j-1) Then

        t1 = na(j) :     ①      : na(j-1) = t1

      End If

    Next j

   Next i

   For i = 1 to n

     List1.AddItem     ②   

   Next i

   Label3.Caption = “这天共” + Str(n) + “位员工生日”

  End If

End Sub

    注：BMI指数的计算公式为：BMI=体重（千克）除以身高（米）的平方（kg/m2）。 BMI<18.5为偏瘦（表明营养不足）；BMI=18.5～24.9为体重正常；BMI=25～29.9为超重；BMI>30为肥胖。

该VB应用程序的代码如下：

Dim stuBMI(1 To 55) As Single

Dim stuName(1 To 55) As String

Private Sub Command1_Click()

    Dim k As Integer, i As Integer, j As Integer

    Dim t1 As Single, t2 As String

    Dim Results As String

    For i = 1 To 54        

        For j = i + 1 To 55

            If stuBMI(j) < stuBMI(k) then      ②    

        Next j

        If  k<>I  Then  

            t1 = stuBMI(i): stuBMI(i) = stuBMI(k): stuBMI(k) = t1

            t2 = stuName(i): stuName(i) = stuName(k): stuName(k) = t2

        End If

    Next i

List1.AddItem "姓名" + vbTab + "BMI指数" + vbTab + "结果"  

    For i = 1 To 55

        If stuBMI(i) < 18.5 Then

            Results = "偏瘦"

        ElseIf stuBMI(i) >= 18.5 And stuBMI(i) < 25 Then

            Results = "正常"

        ElseIf stuBMI(i) >= 25 And stuBMI(i) < 30 Then

            Results = "超重"

        Else

            Results = "肥胖"

        End If

        List1.AddItem stuName(i) + vbTab + str(stuBMI(i)) + vbTab + Results

    Next i

End Sub

Private Sub Form_load()

    Dim conn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim strSQL As String

    Dim i As Integer

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

    conn.Open

    strSQL = "SELECT * FROM Student"

    Set rs.ActiveConnection = conn

    rs.Open strSQL

    i = 0

    Do While Not rs.EOF

        i = i + 1

        stuName(i) = rs.Fields("StuName")

        stuBMI(i) = Round(rs.Fields("Weight") / rs.Fields("height") ^ 2, 1)

        rs.MoveNext

    Loop

    rs.Close

    conn.Close

    Set rs = Nothing

    Set conn = Nothing

End Sub

⑴预处理。用数组a存放不同的分值，数组b存放相同分数的人数，数组s存放高于此分数的人数，数组下标表示名次。依次从数据库读取每个学生的成绩(数据库中每个学生的成绩已降序存储，即从高到低排列)，当读入数与前一个数相同时，该名次的人数加1，当读入数与前一个数不同时，名次加1，即数组下标加1，存储当前分数，求高于本分数的人数并存储。

举例：如果数据库中有一组成绩(降序)：95，95，93，93，92，91，90，按上述算法处理，三个数组的最终结果如图所示。

⑵对需要查找的成绩二分查找。读入需要查找的成绩x，在数组a中二分查找成绩，若找到，输出名次、相同分数的人数和高于本分数的人数;若找不到，输出“查无此分”。

程序代码如下，在横线处填入合适的代码。

Dim rank As Integer

Dim a(1 to 1000) As Integer     ‘存放不同的分数值

Dim b(1 to 1000) As Integer     ‘存放相同分数的人数

Dim s(1 to 1000) As Integer     ‘存放高于此分数的人数

rank=0

Private Sub Form_Load()

 Dim conn As New ADODB.Connection

 Dim rs As New ADODB.Recordset

 Dim tmp As Integer, n As Integer

 tmp=-1: n=0

 conn.ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0;data source=“App.Path+”Score.accdb”

 conn.open

 Set rs.ActiveConnection=conn

 rs.open “Select * from score”

 n=0

 Do While Not rs.EOF

   n=n+1

   mark=rs.fields(“成绩”)

   If mark=tmp Then      ‘当前读入分数与上一个分数相同，则对应名次的人数增加1

  b(rank)=b(rank)+1

   Else     ‘当前读入分数与上一个分数不同时

    rank={#blank#}1{#/blank#}    ‘名次增加1

    a(rank)={#blank#}2{#/blank#}   ‘存储当前分数到数组a中

    s(rank)={#blank#}3{#/blank#}   ‘求高于本分数的人数并存储至数组s

    b(rank)=1     ‘将自身统计入同分人数

   End If

     {#blank#}4{#/blank#}   ‘更新上一个分数

  rs.Movenext

 Loop

End Sub

Private Sub Command1_Click()

  Dim x As Integer, low As Integer, high As Integer, mid As Integer

  x=Val(Text1.Text)

  low=1: high=rank

  mid=(low+high)\ 2

  Do While low <=high and {#blank#}5{#/blank#}

    mid=(low+high)\ 2

    If a(mid) < x Then

      high=mid-1

    Else

      low=mid+1

    End If

  Loop

  If a(mid)=x Then

    Label1.Caption=“名次:“+mid+”同分人数:“+b(mid)+”高于此分人数:”+s(mid)

  Else

    Label1.Caption=“查无此分”

  End If

End Sub

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

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应用程序的功能如下：程序运行时在列表框List中依次显示数据库表“info”中每个人的编号、每天的走路步数，单击“计算”按钮Command1后，在List2中依次显示每个人的编号和每个人平均走路步数（平均走路步数=三天的走路总步数/3），程序的运行结果如图所示。

代码如下：

Dim b(1 To 100)As String     '定义存储编号的数组b

Dim m(1 To 100)As single     '定义存储第一天的走路步数的数组m

Dim s(1 To 100)As single       '定义存储第二天的走路步数的数组s

Dim w(1 To 100)As single      '定义存储第三天的走路步数的数组w

Dim p(1 To 100)As Single      '定义存储平均步数的数组p

Dim n As Integer                    '定义存储人数的变量n

Private Sub Command1_Click()

    For i=1 To        

        p(i)=(m(i))+s(i)+w(i))/3

    Next i

    List2. Clear

    For i=1 To n                '在List2中显示每个人的编号和平均步数

        List2. AddItem b(i)+ "平均走路步数为"+         +"步"

    Next i

End Sub

Private Sub Form_Load()

    Dim conn As New ADOD

    A.Connection                                      '定义 Connection对象实例conn

    Dim rs as New adode. Recordset       '定义Recordset对象实例rs

    conn. Connection String="provider= Microsoft. ACE OLEDB 12.0; DATA Source=" & App. Path & "\zoulu. accdb"

    conn Open

    rs. ActiveConnection=conn

    rs Open "Select*From info"

    n=0

    Do While not rs.EOF

        n=n+1

        b(n)=rs. fields("id")

        m(n)=rs. fields("mon")

        s(n)=rs. fields("sue")

        w(n)=rs. fields("wed")

        rs. MoveNext

    Loop

    rs Close

    conn. Close

    Set conn=Nothing

    Set conn= Nothing

    List1. Clear

    For i=1 To n                        '在 List1中显示每个人的编号、每天的走路步数

        List1. AddItem b(i)+" "+Str(m(i))+" "+Str((i))+" "+Str(w(i))

    Next i

End Sub

请回答下列问题：