2020-2021学年浙江省台州市椒江区书生中学高二（下）第一次月考信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（共12题，每题2分，共24分）
-
1．果农们为推销自己种植的水果，开通了微信公众号发布销售信息，下面说法不正确的是（ ）
组卷：17引用：1难度：0.7 -
2．以下属于人工智能应用的是（ ）
①通过刷脸完成支付宝的验证登录
②使用在线二维码生成器制作二维码
③通过“拍照识花”APP了解花卉信息
④通过语音命令“天猫精灵”打开电视机
⑤通过微信发送语音消息组卷：5引用：1难度：0.6 -
3．用 Access 软件设计家电销售系统的数据库，其中已建好的“家电库存”数据表用于存储如表所示的数据。
下列相关描述，正确的是（ ）序号 库存编号 产品类别 库存数量 零售价 入库时间 盈利情况 1 CWJD001 厨卫家电 78 265元 2021年2月10日 正利润 2 SHDQ001 生活电器 121 868元 2021年3月12日 负利润 3 SHDQ002 生活电器 98 322元 2021年3月12日 零利润 … … … … … … … 组卷：0引用：1难度：0.4 -
4．如图所示，用黑色代表“1”，白色代表“0”，每行表示一个二进制数，如第 3 行表示的二进制数为 0010100，则（ ）组卷：15引用：1难度：0.6 -
5．将一段分辨率为 1024×768 像素、24 位真彩色、PAL 制式的未经压缩无声视频，压缩为 MP4 格式，压缩比为100：1，则该视频压缩后每秒钟播放的数据量约为（ ）
组卷：0引用：1难度：0.4
二、非选择题（共4题，13题4分，14题8分，15题7分，16题7分，共26分）
-
15．在文本框中输入一串表示宾馆信息的二进制代码，不同的代码段用“|”分割，其中奇数段的代码为“宾馆的楼层、房号、朝向”（楼层用任意位二进制来描述，用4位二进制表示房号，用2位二进制表示朝向如“10110011100”其中“10110”表示楼层信息，“0111”表示房号信息，“00”表示房门朝向），偶数段表示该房间的是否住人（“0”表示空房，“1”表示入住），现将奇数代码段和偶数代码段分别存储在数组x（i）和y（i）中，并显示在列表框List1中，具体界面如下图所示：
（1）结合上述功能描述和下面的程序，“获取”按钮的名称是。
（2）实现上述功能的VB程序如下，请在①②处填入合适的代码、。
（3）加框处的代码有误，请修改。
Private Sub GetInfo_Click （ ）
Dim x（1 To 100）As String'存储读取的奇数段二进制
Dim y（1 To 100）As String'存储读取的偶数段二进制
Dim c As String
Dim n As Integer
Dim k As Integer
c=Text1.Text
n=Len（c）：i=1：k=1：j=1
v=““
Do While i＜=n
ch=Mid（c,i,1）
If ch=“|“Then
If k Mod 2=1 Then
①
Else
y（k\2）=v
List1.AddItem x（k\2+1）+““+y（k\2）
End If
v=““
k=k+1
Else
②
End If
i=i+1
Loop
End Sub组卷：1引用：1难度：0.5 -
16．查找最短26个字母字符串：在文本框Text1中输入任意一串包含小写字母的字符串（长度n＞=26），要求找到长度最小的一段区间，能够包含全部26个小写英文字母。小王设计了VB程序用于搜索最短字符串，单击“查找”按钮command1，若无解，则在标签Label1中输出“无解！”，反之程序在标签Label1中输出该最小区间的长度以及字符的开始位置，并在文本框Text2中输出相应的最短字符串，程序界面如图所示：
（1）确定初始右边界：从第1个字符开始，向右搜索到包含全部26个字母的子串，并因此而确定右边界，同时记录每个字母在子串中出现过的次数。
（2）调整子串左边界：若左边界有重复的字母则表明该子串可缩短，故左边可右移1位……直到找到一个符合条件的子串并记录，然后子串左边界再右移1位。
（3）调整子串右边界：子串右边界继续右移，在新子串符合条件后，记录并进行比较。
重复（2）各调整步骤，直至遍历完整个字符串，获得并输出满足条件的最小长度字符串。
实现上述功能的VB程序如下，请回答下列问题。
（1）对于字符串“qbwcadsgeqbdatcy”，包括字母“abcde”的最短字符串长度为（填数字）。
（2）请在画线处填入合适的代码。
Const n=300
Dim i As Integer,k As Integer,length As Integer,L As Integer
Dim pos As Integer,s1 As String,res As String
Dim f（1 To 26）As Integer'数组f记录每个小写英文字母的出现次数
Dim s（1 To n）As Integer'数组s记录每个输入字符在字母表中的位置
Private Sub Command1_Click （ ）
res=““
s1=Text1.Text
For i=1 To Len（s1）
s（i）=①
Next i
k=0：pos=1：length=n
For i=1 To 26
f（i）=0
Next i
For i=1 To Len（s1）
If f（s（i））=0 Then k=k+1
f（s（i））=f（s（i））+1'调整右边界，直到达到26个字母
Do While②
f（s（pos））=f（s（pos））-1
If③Then
k=k-1
If i-pos+1＜length Then
length=i-pos+1
res=Mid（s1，pos,length）
L=pos
End If
End If
pos=pos+1
Loop
Next i
If res＜＞““Then
Text2 Text=res
Label1.Caption=“最短长度：“+Str（length）+“开始位置：“+Str（L）
Else
Label1.Caption=“无解!“
End If
End Sub组卷：2引用：1难度：0.5
