浙江省嘉兴市2019-2020学年高二下学期信息技术期末检测试卷

①使用人体测温筛检仪，实现人脸识别无感通关，迅速发现体温异常者

②楼道LED声控感应灯，在光线不足且有人走动时，自动感应亮灯

③使用控制软件在家里对公司里的电脑进行远程控制，完成文件下载等操作

④车辆进出停车场时，通过车牌识别技术自动完成车辆停车计费工作

以下有关“小微图书管理系统”和Access数据表结构设计描述正确的是（    ）

则这两段音频文件的存储容量之比（A ：B）约为（    ）

下列说法正确的是（    ）

Private Sub Command1_Click （）

    Dim x As Integer，r As Integer， s As String

    x = Val（Text1. Text）： s =""

    Do While x<>0

        r=(x+1） Mod 2

        s=Str（r）+s

        x=x\2

    Loop

    Text2. Text = s

End Sub

该程序段运行后，在文本框Text1中输入25，则文本框Text2显示的内容是（    ）

Private Sub Command1_ Click( )

    Dim a（1 To 10） As Integer， i As Integer， k As Integer

    a(1)=1：a(2)=17：a(3)=8：a(4)=9：a(5)=18

    a(6)=15：a(7)=20：a(8)=13：a(9)=7：a(10)=11

    k=0

    For i= 2 To 9

        If（a（i）-a（i-1））*（a（i+1）-a（i））< 0 Then k=k+1

    Next

    Text1. Text = Str （k）

End Sub

该程序段运行后后，文本框Text1中显示的内容是（    ）

Const n = 100

Dim a（1 To n） As String

Private Sub Command1_ Click( )

    i=1：j =  ⑴ 

    flag = False

    Key = Val （Text1. Text）

    Do While i <= j And Not flag

        m=  ⑵ 

        If  Val（a（2 * m）） = Key Then

            List1. AddItem a（2* m-1）+””+ a（2* m）： flag =True

        Else

            If   ⑶   Then j= m-1 Else i=m+1

        End If

    Loop

    If Not flag Then List1. AddItem”没有找到！”

End Sub

上述程序段（1）、（2）、（3）三个方框处的语句依次为（    ）

①j=n  ②j=n/2

③m=(i+j）\2

④m=(（i+j）\2）*2

⑤Val（a（2 * m）） < Key

⑥Val（a（m）） < Key

⑦Val（a（2 * m）） > Key

请回答下列问题：

算法分析：要使得到的5位数字最小，首先需保证能取到5个数字，且首位应尽量小，那么取首位数的范围应保证余下有4个数字，即在前4位中选最小非0的数字。

程序运行时，在文本框Text1中输入一个数字字符串，在文本框Text2中输入要移除的数字个数，单击“运行”按钮CmdRun后，在标签Label1显示得到的最小新数，程序运行界面如图b所示。

按上述要求，编写一个VB程序，功能如下：程序运行时从数据库中读取志愿者的检测号、

DNA序列存入相应数组，在文本框Text1中输入抗体DNA序列，单击“检测结果”按钮Command11，在列表框List1中按检测号顺序显示每个志愿者的检测结果，并在标签Label1显示疫苗抗体的阳性率（以百分比表示，并保留2位小数），程序运行界面如图所示，请在划线处填入合适的代码。

Dim Pnum（1 To 100） As String        'Pnum数组存储志愿者的检测编号

Dim Pch（1 To 100） As String          'Pch数组存储志愿者的DNA序列

Dim Prs（1 To 100） As String            'Prs数组存储志愿者的检测结果

Dim n As Integer                           '存储志愿者的总人数

Private Sub Form_ Load( )

    Dim i As Integer, j As Integer

    Dim tmp As String, chtmp As String

    Dim Conn As New ADODB.Connection

    Dim Rs As New ADODB.Recordset

    Conn.ConnectionString = "Provider=Mi crosoft. ACE.OLEDB.12. 0；Data Source=" + App．Path+"\DNADB.accdb"

    Conn.Open

    Set Rs.ActiveConnection = Conn

    Rs.Open "SELECT * FROM Source"      '从数据库的名为 “Source”数据表中读取数据

    i =0

    Do While Not Rs.EOF

        i=i+1

        Pnum（i） = Rs.Fields（0）

        Pch（i） = Rs.Fields(1)

        Rs.MoveNext

    Loop

    Rs.Close

    Conn.Close

    n=

    For i=1 To n-1    '以检测号作为关键字对DNA序列数据进行升序排列

        j=i+1

        Do While j <= n

            If  Then

                chtmp = Pch（i）：Pch（i）= Pch（j）：Pch（j）= chtmp

                tmp = Pnum（i）：Pnum（i）= Pnum（j）：Pnum（j）= tmp

            End If

            j=j+1

        Loop

    Next i

End Sub

Private Sub Command1_ Click( )

    Dim Ach As String, RVch As String, Vch As String

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

    Ach = Text1. Text： s = Len（Ach）： RVch = Ach + Ach

    k=0：m=0

    For i=1 To n

        If Len（Pch（i）） <= Len （Ach） Then

            k =k+ 1： Prs（i） = “无效”

        Else

            For j=1 To s            '按环状序列依次进行比较

                Vch =

                If Test（Vch，Pch（i）） Then

                    m=m+1

                    Prs（i） =“阳性”： Exit For

                Else

                    Prs（i） =“阴性”

                End If

            Next j

        End If

    Next i

    For i =1To n

        List1. AddItem Pnum（i） +"  " + Prs（i）

    Next i

    Label1. Caption = Str（Int（m/（n-k）*10000 +0.5）/100） + "%"

End Sub

Function Test（str1 As String，str2 As String） As Boolean    '字符串比对函数

    Dim i As Integer

    Test = False

    For i = 1 To Len（str2） - Len（str1） + 1

        If Then

            Test = True： Exit For

        End If

    Next i

End Function