相关试卷
-
1、某二分查找算法的VB程序段如下：
key = Val(Text1.Text)
i = 1 : j = 9
Text2.Text = ""
Do While i <= j
If key = a(m) Then Exit Do
If key < a(m) Then
i = m + 1
Else
j = m – 1
End If
Text2.Text = Text2.Text + " " + Str(a(m))
Loop
数组元素a(1)到a(9)的值依次为88，75，70，68，61，58，55，50，43，本框Text1中输入的值是58，执行该程序段，文本框Text2中显示的是61，50，55，则方框处的代码应为（ ）
A、m = (i + j + 1) \ 2 B、m = (i + j) \ 2 + 1 C、m = (i + j) \ 2 D、m = (i + j - 1) \ 2 -
2、下列 VB 程序段的功能：生成n个不重复的随机整数，保存在数组a中，并升序排序。f数组各元素的初值置为False，代码略 。
i = 1
Do While
t = Int(1 + Rnd * 10)
If Not f(t) Then
a(i) = t
f(t) = True
For j =
If a(j) < a(j - 1) Then
tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp
End If
Next j
Else
End If
i =i + 1
Loop
上述程序段3个方框处的表达式分别为（ ）
A、⑴i <= n - 1 ⑵2 To i ⑶i = i - 1 B、⑴i <= n ⑵i To 2 Step -1 ⑶i = i - 1 C、⑴i <= n - 1 ⑵2 To i ⑶t = Int(1 + Rnd * 10) D、⑴i <= n ⑵i To 2 Step -1 ⑶t = Int(1 + Rnd * 10) -
3、某算法的部分流程图如图所示，执行该流程，以下说法正确的是（ ）
A、第一次循环结束时，x的值为125 B、第一次循环结束时，y的值为15 C、循环结束时，输出y的值为521 D、循环结束后，x<>0执行了3次 -
4、以下VB表达式的值为“2019”的是（ ）A、Len("2*10^3+0*10^2+1*10^1+9") B、Str(2010)+Str(9) C、Sqr(2019)^2 D、Str(2019\10 + 1818)
-
5、将一幅未经压缩的1024×576像素BMP 图片，按3∶1的压缩比转换成JPG格式后，存储容量为576KB，则存储这幅 BMP 图像一个像素所需的二进制位数为（ ）A、8 位 B、16 位 C、24 位 D、32 位
-
6、使用photoshop软件制作某作品，部分界面如下图所示。下列说法正确的是（ ）
A、背景图层被锁定，不能删除 B、“小学数学”图层添加了滤镜效果 C、可以将“女孩”图层移动到“数字”图层的上方 D、将作品存储为JPEG格式文件，该JPEG格式文件保留原作品的图层信息 -
7、使用UltraEdit软件观察字符的内码，界面如图所示。
下列说法正确的是（ ）
A、逗号“，”的内码用二进制可表示为 00101100 00100000 B、存储图中字符共需要13byte存储空间 C、“2020”的内码用十六进制可表示为 32 30 31 40 D、图中共有4个GB2312码，6个ASCII码 -
8、使用Access软件打开某数据库中的数据表“图书借阅表”，部分界面如下图所示。
下列说法正确的是（ ）
A、添加一条新记录，则新记录的“借阅 ID”的字段值一定是4 B、当前状态下，可将“读者编号”字段设置为主键 C、“还书日期”的数据类型可设置为“日期/时间”型，也可设置为“文本”型 D、“是否赔偿”的字段值可打“√”，也可打“×” -
9、下列应用中，体现了人工智能技术的有（ ）
① 在线中英文互译 ② 使用人脸识别功能进入手机系统 ③ 电子邮件自动回复功能 ④ 使用在线二维码生成器制作二维码 ⑤ 无人汽车驾驶技术
A、① ② ⑤ B、② ④ ⑤ C、① ② ④ D、② ③ ⑤ -
10、下列关于网页与电子邮件的说法，正确的是（ ）A、邮件发送成功后，自动保存在收件人计算机中等待浏览 B、浏览器的功能是编辑、解释、执行HTML源代码 C、网页端收发电子邮件先通过HTTP协议登录邮件服务器 D、接受邮件时，将使用POP3协议将邮件从发件人邮件服务器读取到本地计算机
-
11、下列关于信息的说法，不正确的是（ ）A、电子书使信息可以不依赖于载体进行传播 B、网站对用户输入的密码进行加密属于信息的处理 C、文字、语言、声音、肢体动作等都是信息的表达方式 D、指纹识别系统提高了信息的安全性
-
12、某著名景点在七月份收到若干旅游公司的通告，通告中包括该公司旅游的起始时间和终止时间， 如[6，10]表示该旅行团 6 号早上到，10 号早上回。疫情期间为避免人员扎堆，公司在时间段[start， ending]进行限流操作，要求在该时间段内景点每天都接待游客，且接待的旅行团越少越好。若景点收到的旅行团的数据是[3，8]、[3，6]、[8，15]、[18，25]、[14，20]、[5，10]，[10，18]、[13，18]限流时间是[4，19]。工作人员对旅行团的数据做了如下处理：
①将旅行团的旅行时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序。排好序的时间段是[3，6]、[3，8]、[5，10]、[8，15]、[10，18]、[13，18]，[14，20]、[18，25].
②从前往后遍历时间段，选择“到达时间”不大于“限流开始时间”的时间段，若有多个时间段满足条件，且时间段未超出限流时间，应选择“返回时间”最大的时间段，选择的时间段是[3，8]。
③缩小限流时间[8，19]，重复步骤 2，选择满足条件的时间段是[8，15]，缩小限流时间[15，19]，重复步骤 2，选择满足条件的时间段是[14，20]，结束时间已超过限流终止时间，结束。
④若在遍历时间过程中出现“到达时间”大于“限流开始时间”，景点不能每天接待旅客，则没有满足条件的旅行社。
小王编写VB程序，程序界面如下所示，单击“排序”按钮，将旅行团的时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序，在Text1和Text2中输入限流的起始时间和终止时间，单击“满足条件的旅行团”按钮，在列表框输出满足条件的旅行团的时间，若没有满足条件的旅行社，则在列表框输出“没有满足条件的旅行团！”
回答下列问题：
(1)、若景点接收到的旅行社的起始时间和终止时间分别为[5，17]、[7，18]、[4，12]、[3，8]、[2，10]，限流时间是[3，15]，筛选出的旅行团的时间是(2)、请在横线处填入合适的代码Dim i As Integer, j As Integer, n As Integer, t As Integer Dim a(100) As Integer, b(100) As Integer
Private Sub Command1_Click()
'将旅行团个数存入n，加载n个旅行团的起始时间、终止时间并分别放在数组a和数组b中，代码略
For i = n to 2 step -1
j=1
Do while
If a(j) > a(j + 1) Or a(j) = a(j + 1) And b(j) > b(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
t = b(j): b(j) = b(j + 1): b(j + 1) = t
End If
j=j+1
Loop
Next i
'输出排好序的时间段，代码略
End Sub
Private Sub Command2_Click()
Dim arrivetime As Integer, leavetime As Integer
start = Val(Text1.Text): ending = Val(Text2.Text)
For i = 1 To n
arrivetime = start
If a(i) <= arrivetime Then
If b(i) > leavetime Then leavetime = b(i): t=i
IfThen
List2.AddItem Str(a(t)) & "---" & Str(b(t)) Exit For
End If
Else
If start < arrivetime or i = 1 Then
List2.Clear
List2.AddItem "没有满足条件的旅行团!"
Exit For
End If
List2.AddItem Str(a(t)) & "---" & Str(b(t))
i = i – 1
End If
Next i
End Sub
-
13、根据对分查找的思想来查找两个递增序列中最小值所在的位置，其中第一个递增序列中的数据全部大于第二个递增序列中的数据，且两个序列中没有重复数据，如组合序列3、4、5、6、1、2是由两个递增序列“3、4、5、6”和“1、2”组成的，组合序列的最小值是1，在组合序列中的位置是第5位。
为实现上述功能，小王编写如下VB程序，首先在Text1中输入两个满足条件的序列，数字之间用“，”隔开且以“，”结尾，单击按钮“Cod1”，在Text2中输出最小值所在序列中的位置，程序运行界面如下图所示。
(1)、在界面中，具有Caption属性的对象有个。(2)、在横线处填入合适的代码。Private Sub Cod1_Click( )
Dim s As String, ch As String
Dim i As Integer, j As Integer, n As Integer, c As Integer
Dim a(100) As Integer
s = Text1.Text: c = 0: n = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
Else
n = n + 1
c = 0
End If
Next i
i = 1: j = n
Do While
m = (i + j) \ 2
If a(m) > a(i) Then
i = m
Else
j = m
End If
Loop
End Sub
(3)、加框处的表达式有误，请改正。 -
14、小王创作主题为“丰收的喜悦.fla”的 Flash 多媒体作品。其“main”场景的某脚本的描述如下表所示。
场景：main
类号序别：2
进入方式：
来自 Load 场景，通过“进入”按钮进入
呈现方式：
⒈“音乐”淡入，3秒后出现“人物”。
⒉“水稻”在舞台左下角从完全透明逐渐变化到完全显示，且水稻在舞台上一直随风摆动。
⒊“退出”按钮和“播放”位于舞台下方，单击“退出”按钮，动画从“end”场景第1帧播放。
⒋最后出现“退出”按钮，并停止动画播放。
呈现顺序说明：
一开始出现“水稻”并播放背景音乐。
⒈ 1s后出现“果树”，在舞台中呈现2s后便消失不见。
⒉ 3s后同时出现“人物”和“文字”。
⒊ 3s后音乐停止。
⒋最后出现“退出”按钮和“播放”按钮，并停止动画播放。
使用 Flash 软件编辑“丰收的喜悦.fla”文件的部分界面如图a所示，回答下列问题。
图a
(1)、根据“丰收的喜悦.fla”作品制作的过程，下列描述正确的是 （多选，填字母）A、上述关于“丰收的喜悦.fla”作品的描述是多媒体作品制作的文字脚本 B、Flash 是一个以帧为基础的多媒体制作软件 C、若声音素材时长是10s，则“音乐”图层声音同步方式是“数据流” D、“水稻”图层第1帧上实例的Alpha值应设置为0% E、制作“丰收的喜悦.fla”作品时，至少需要3个场景(2)、测试影片时，“main”场景画面中“水稻”一直随风摆动，则该场景“水稻”图层第1帧到第10帧的动画类型是（单选，填字母：A ．动画补间动画/B ．形状补间动画/C ．逐帧动画）。(3)、“播放”按钮元件部分界面如图b所示，测试影片， 当鼠标移至（单填，填字母：A ．形状区域/B ．文字区域/C ．形状或文字区域），能响应鼠标单击事件。
图b
(4)、在播放过程中，发现“果树”图层内容呈现方式和脚本不一致，为使“果树”图层内容呈现符合上述脚本描述，正确的操作是。(5)、根据上述脚本描述，在“main”场景中的“退出”按钮上设置的动作脚本是。 -
15、小王收集了“近三年某高校部分系的学生人数”的相关数据，并使用Excel软件进行数据处理，如图a所示。
图a
(1)、区域 H3：J5中的数据是通过SUMIF函数计算得到的，在H3中输入公式再通过自动填充完成H列、I列、J列的相关区域的计算。（提示：SUMIF函数用于统计某个区域中满足条件的单元格数值之和。例如求2019年5个系的总人数：=SUMIF（A3：A17，G5，E3：E17））(2)、根据图a中的数据，制作了一张“2018年人数统计”的统计图表，如图b所示，图表的数据区域是；
图b
(3)、对图a中的数据进行统计分析，下列说法正确的是 （多选，填字母）A、列E的数据是通过公式计算得到的，已知“E3”单元格的公式是“=C3+D3”，小李不小心把D3单元格的数据输成了“*”，这时E3单元格中将会显示为“#VALUE！” B、选择“A2：E17”按照“总人数”降序排序后，图b的图表不会发生改变 C、以“入学年份”等于“2018年”，“男生人数”最大1项进行筛选可以筛选到“2018年”中“男生人数”最多的记录 D、以“入学年份”等于“2017年”，“系名”等于“？学？”可筛选出2017年“数学系”和“化学系”的记录 -
16、有如下 VB 程序段：
a(1) = 13: a(2) = 22: a(3) = 36: a(4) = 42: a(5) = 50: a(6) = 58: a(7) = 62: a(8) = 70
i = 1: j = 8: count = 0
Randomize
key = Int(Rnd * 100 )
Do While i <= j
m = (i + j + 1) \ 2
If a(m) >= key Then
count = count * 2 + 1
j = m - 1
Else
count = count * 2
i = m + 1
End If
Loop
执行该程序段后，count的值不可能的是（ ）
A、15 B、14 C、7 D、6 -
17、有如下 VB 程序段：
For i = 1 To 8
a(i) = Int(Rnd * 7) + 1
Next i
For i = 1 To 3
For j = 1 To 8 - 2 * i
If a(j) Mod 7 > a(j + 2) Mod 7 Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j
Next i
For i = 1 To 8
ch(i) = Chr(a(i) + Asc("A") - 1)
Next i
执行该程序段后，ch(1)～ch(8)各元素值不可能的是（ ）
A、AACBFBFE B、GGABCDDE C、ABBBCDDE D、ABBCDDEG -
18、已知字符串s是由字母和数字组成的，现要用VB程序实现如下功能，将字符串中的数字字符按照原有顺序移动到s的左边，字母字符按照原有顺序移动到字符串右边，如s=“Su2cc0ess20”执行完程序后变成s=“2020Success”，为实现上述功能，在横线处填入的代码应该是（ ）
m=0: k=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
k = k + 1
If ch >= "a" And ch <= "z" or ch >= "A" And ch <= "Z" Then
a(k) = ch
Else
m = m + 1: ①
Do While j > m
②
j = j - 1
Loop
③
End If
Next i
n = Len(s): s = ""
For i = 1 To n
s = s + a(i)
Next i
A、①j=k ②a(j)=a(j-1) ③a(m) = ch B、①j=k ②a(j)=a(j+1) ③a(j+1)=ch C、①j=k-1 ②a(j)=a(j-1) ③a(m) = ch D、①j=k-1 ②a(j)=a(j-1) ③a(j+1)=ch -
19、有如下VB程序段：
c = 0: k = 1
For i = 2 To 8
If i Mod 2 = 0 And a(k) > a(i) Then
k = i
c = c + 1
End If
Next i
数组元素a(1)到a(8)的值依次为“16，8，18，3，12，9，15，2”，执行该程序段后，变量k和c的值为（ ）
A、4 1 B、4 2 C、8 2 D、8 3 -
20、某算法部分流程图如图所示，下列说法不正确的是（ ）
A、该流程图转换成VB代码时可以用Do循环实现 B、程序执行完后 f 的值等于f2的值 C、语句f<=20 共执行了6次 D、最后输出f1和f2的值分别是13，21