2018-2019学年浙江省宁波市北仑中学高二（上）期初信息技术试卷
发布：2024/4/20 14:35:0
一．选择题：（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．下列应用中，体现了人工智能技术的有（ ）
①停车场车牌识别技术的应用
②Word软件的查找、替换功能
③手机延时30秒暗屏
④手机微信摇一摇识别歌曲名称
⑤二维码识别
⑥刷脸考勤组卷：15引用：8难度：0.9 -
2．一个六位二进制数100□□1，其中有两位数字模糊不清．下列数中，与此二进制数大小不可能相等的是（ ）
组卷：8引用：4难度：0.7 -
3．某网站首页截图如图所示，下列说法不正确的是（ ）
组卷：7引用：3难度：0.5 -
4．有一Access数据表，表的结构如图所示，在数据录入时截图如右图所示，下列说法正确的是（ ）
组卷：11引用：7难度：0.9 -
5．某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是（ ）组卷：9引用：11难度：0.7
二．非选择题（本大题共5小题，其中第13小题4分，第14小题4分，第15小题8分，第16小题5分，第17小题5分，共26分）
-
16．编写“字母出现频率测试”程序，实现如下功能：在文本框 Text1 中输入英文句子，单击“统计”按钮，在列表框 List1 中显示小写字母出现的次数，同时显示字母出现频率最高的次数。程序运行界面如题16图所示。
（1）在设计程序界面时，使应使用题16图所示“控件工具箱”中的（填写相应编号）添加“统计”按钮。
（2）实现“统计”功能的 VB 程序如下，请在横线处填入合适的代码。
Private Sub CmdTJ_Click （ ）
Dim count（25）As Integer
Dim ch,ch2As String
Dim m As Integer
ch=Text1．Text
For k=1To Len（ch）
①
n=Asc（ch2）-Asc（“a”）
If n＞=0And n＜=25Then
count（n）=count（n）+1
List1．AddItem“字母“+ch2+“出现“+Str（count（n））+“次“
End If
Next k
m=count（0）
For k=1To 25
If②Then m=count（k）
Next k
Label1．Caption=“字母最高出现“+Str（m）+“次“
End Sub组卷：2引用：1难度：0.5 -
17．“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中间的第3个到第5字母抽出并保持原来的顺序放到最前面，则一次洗牌操作后字符串变成“34A12BCD”），也可以把扑克牌分成上下两部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3个字符到最后一个字符移到前面，变成“34ABCD12”），多次重复做这个动作，就能达到洗牌的目的，效果如图所示。
（1）若要把窗体的标题名称由“Form1”改为“字符洗牌”，应改变窗体的属性。
（2）完成上述功能的程序代码如下，请在横线处填入合适的代码
Private Sub Command1_Click （ ）
Dim r As Integer,k1As Integer,k2As Integer
Dim s As String,n As Integer'从文本框TxtIn中获取字符串
Randomize
r=Int（Rnd （ ）*10）+1'随机生成洗牌次数
n=Len（s）
Do While r＞=1'洗牌操作
k1=Int（Rnd （ ）*（n-2））+2
k2=Int（Rnd （ ）*（n-k1+1））+k1
s=+Mid（s,1，k1-1）+Mid（s,k2+1，n-k2）
r=r-1
Loop
TxtOut.Text=s'在文本框TxtOut中输出结果
End Sub
（3）若加框处的语句改为TxtOut.Text=Str（s），则运行程序时会发生的错误消息为（单选，填字母）
组卷：2引用：2难度：0.5
