相关试卷
-
1、小王编写一个VB程序模拟数据筛选，功能如下：程序运行时从数据库中读取成绩数据，按升序排序后在列表框List1中显示，在文本框Text1中输入成绩1,在文本框Text2中输入成绩2，单击“筛选”按钮Command1，筛选出大于等于成绩1且小于等于成绩2的记录，并显示在列表框List2中，程序运行界面如图所示。(1)、运行上述程序，若在文本框Text1中输入75，Text2中输入85，单击“筛选”按钮，则筛选到的记录有条（填数字）。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 20
Dim score(1 To n) As Single
Function adj(s As String, n As Integer)
‘此函数功能：在字符串 s 前添加若干个空格，使其长度变为 n。代码略
End Function
Function search_left(key As Integer)
‘此函数功能：返回大于等于 key 的数组元素的起始位置。代码略。
End Function
Function search_right(key As Integer)
Dim i As Integer, j As Integer, m As Integer
i = 1: j = n
Do While i <= j
If key >= score(m) Then i = m + 1 Else j = m - 1
Loop
End Function
Private Sub Form_Load()
‘从数据库中读取成绩存数组 score，记录数存 n，并对此数组 score 升序排序，代码略
End Sub
Private Sub Command1_Click()
Dim num1 As Integer, num2 As Integer, first As Integer, last As Integer
List2.Clear
num1 = Val(Text1.Text): num2 = Val(Text2.Text)
first = search_left(num1): last = search_right(num2)
If total <= 0 Then
List2.AddItem "无筛选到的记录！"
Else
List2.AddItem "筛选到" + Str(total) + "条记录！"
List2.AddItem "依次是："
For i = first To last
List2.AddItem adj(Str(i), 3) + adj(Str(score(i)), 6)
Next i
End If
End Sub
-
2、小李基于选择排序思想编写了一个VB程序实现数据排序，排序后奇数在前、偶数在后，奇数和偶数都按升序排序。具体功能如下：产生10个随机整数存数组a，在列表框List1中显示，单击“排序”按钮Command1,对数组a排序后在列表框List2中显示。程序运行界面如图所示，实现上述功能的VB代码如下：
Const n = 10
Dim a(0 To n) As Integer
Private Sub Form_Load()
‘程序功能：产生n个随机整数存数组 a，在列表框List1中显示，代码略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer, flag As Boolean
i = 1: flag = True
Do While i <= n - 1
If flag Then
k = 0: flag = False
For j = i To n
If a(j) Mod 2 = 1 Then
If
Then k = j: flag = TrueEnd If
Next j
If flag Then
If i <> k Then t = a(i): a(i) = a(k): a(k) = t
Else
End If
Else
k = i
For j = i + 1 To n
If a(j) < a(k) Then k = j
Next j
If i <> k Then t = a(i): a(i) = a(k): a(k) = t
End If
i = i + 1
Loop
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
(1)、代码“Private Sub Command1_Click()”中的Click是。（单选，填字母：A .对象名/B .属性名/C .事件名）(2)、将程序代码中划线处代码补充完整。(3)、程序代码中的加框处代码有误，请改正。(4)、程序代码中，flag 值为表示该遍处理是挑选未排序奇数中的最小数据排到合适的位置。 -
3、 小张使用Flash软件创作主题为“消防安全”的多媒体作品，如图a所示。
请回答下列问题：
(1)、以下四个步骤不属于脚本编写阶段的是：（单选，填字母：A .编写文字脚本/B .需求分析 /C .编写制作脚本/D .媒体元素分解。）(2)、“消防车”图层的第1帧到第24帧利用实例实现消防车从舞台左侧移动到舞台中央的动画效果，则该动画类型是（单选，填字母：A .动画补间 / B .形状补间 / C .逐帧动画）。(3)、当前场景动画播放一遍需要的时间是秒。(4)、要使“按钮”图层的按钮在本场景最后出现，则以下操作可行的是 。（多选，填字母）A、选中“按钮”图层第60帧插入关键帧，再把“按钮”图层第1帧中的内容删除 B、选中“按钮”图层第60帧插入关键帧，再选中“按钮”图层第1帧执行“清除帧” C、选中“按钮”图层第60帧插入关键帧，再选中“按钮”图层第1帧执行“清除关键帧” D、选中“按钮”图层第1帧移动到第60帧(5)、测试影片时，单击“退出”按钮，实现停止播放音乐，并跳转到“片尾”场景第1帧继续播放，则“退出”按钮的动作脚本为on(release){ }。(6)、为使得该动画具有交互性，可把该动画导出为格式影片（单选，填字母：A .gif/B .swf/C .jpg）。 -
4、小王收集了某日浙江省各市空气质量指数数据，并使用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、要在表格第1行输入标题，格式如图b所示，下列操作正确的是（单选，填字母:A .在A1单元格输入标题，选择A1：F1区域后居中/B .在D1单元格输入标题后居中/C .在A1单元格输入标题，合并A1：F1区域后居中）。
(2)、把图a所示数据区域A2:F14，复制粘贴到Sheet2工作表A2开始的区域，再分别对“城市”和“空气质量指数”列进行筛选，筛选条件如图d和图e所示，则选出的城市个数是（填数字）。
(3)、根据图a中的数据制作图c所示的图表，则图表的数据区域是。
(4)、根据“空气质量指数”列数据，利用RANK函数和自动填充功能，在区域D3:D14中计算各城市空气质量指数的名次，则单元格D3中的公式为 。（提示：RANK函数用于计算某数字在一列数字中相对于其他数字的大小排名。例如：=RANK(A3,$A$3:$A$10,1)表示A3单元格中的数字在A3:A10中的升序排名）
-
5、有如下VB程序段：
For i = 1 To 8
a(i) = Int(Rnd * 10) * 2 + 1
Next i
For i = 1 To 3
For j = 1 To 8 - i * 2
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j
Next i
执行该程序段后，在下列选项中，a(1)～a(8)各元素可能的值是（ ）
A、3，1，8，7，11，13，17，15 B、3，1，5，7，9，13，15，21 C、5，3，5，7，9，17，15，19 D、17，1，13，7，9，13，7，15 -
6、输入一个字符存变量k，统计字符串s中以该字符为首字母的单词个数，小王编写的VB程序段如下：
s = "Python is a popular programming language!"
k = text1.text : c = 0: n = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If
Thenc = c + 1
If c = 1 And ch = k Then n = n + 1
Else
End If
Next i
为实现上述功能，程序段两个方框处的语句分别为（ ）
A、①ch >= "A" And ch <= "Z" Or ch >= "a" And ch <= "z" ② c = 0 B、①ch >= "A" And ch <= "Z" Or ch >= "a" And ch <= "z" ② c = 1 C、①(ch < "A" Or ch > "Z") And (ch < "a" Or ch > "z") ② c = 0 D、①(ch < "A" Or ch > "Z") And (ch < "a" Or ch > "z") ② c = 1 -
7、有如下 VB 程序段：
a(1) = 68: a(2) = 88: a(3) = 76: a(4) = 60: a(5) = 98
a(6) = 100: a(7) = 64: a(8) = 85: a(9) = 99: a(10) = 59
For i = 1 To 9
b(i) = Abs(a(i + 1) - a(i))
c(b(i) \ 10) = c(b(i) \ 10) + 1
Next i
For i = 0 To 10
If c(i) > 0 Then Label1.Caption = Label1.Caption + " " + Str(c(i))
Next i
数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（ ）
A、 2 3 2 1 1 B、1 3 2 2 1 C、2 3 2 2 1 D、1 3 2 1 2 -
8、有如下VB程序段：
s = Text1.Text
a = "": max = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
a = a + c
Else
If a > max Then max = a
a = ""
End If
Next i
Label1.Caption = max
执行该程序段，在文本框Text1中输入“153-023-583-65-”，则Label1中显示的结果是（ ）
A、023 B、65 C、153 D、585 -
9、某算法的部分流程图如图所示，执行这部分流程后，输出s、i的值分别是（ ）
A、15 4 B、15 5 C、31 4 D、31 5 -
10、身份证是由18位字符（数字0～9和字母X）组成，第17位数字是奇数表示“男”，是偶数表示“女”，字符串变量s中存储了一个身份证号，执行 if ① then sex=“女” else sex=“男”语句后，sex变量的值为“女”，则①处的语句是（ ）A、Val(Mid(s,17,1)) Mod 2=1 B、Val(Mid(s,17,1))Mod 2=0 C、Val(Mid(s,17,1)) \ 2=1 D、Val(Mid(s,17,1)) \ 2=0
-
11、把一幅1024×768像素的16色BMP图像存储为JPG格式，存储后容量为38KB，则图像压缩比约为（ ）A、10：1 B、20：1 C、40：1 D、80：1
-
12、使用UltraEdit软件观察字符“AI,人工智能！”的内码，部分界面如图所示:
下列说法正确的是（ ）
A、字符“AI,人工智能！”的内码占13个位 B、字符“i”的内码是“49” C、字符“人”的内码是“CB B9” D、字符“A”的内码用二进制表示是“01000001” -
13、用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（ ）
A、通过“更改音量”命令提升音量，会提高音频的采样频率 B、当前状态下执行“剪裁”操作，则该声音时长变为20秒 C、当前状态下执行“删除”操作，则该声音左声道第10到20秒变为静音2 D、通过“插入静音”命令插入5秒静音后直接按原参数保存，则音频容量变大 -
14、下列应用中，使用了人工智能技术的有（ ）
①通过在线翻译网站把中文翻译成英文
②word软件中的“自动更正”功能
③通过语音控制智能音箱播放音乐
④使用二维码生成器生成二维码
⑤通过人脸识别功能登录某支付软件
A、①②④ B、①③⑤ C、②③④ D、②③⑤ -
15、下列有关网页和电子邮件的说法，不正确的是（ ）A、网页是由HTTP语言描述的 B、网页可以用FrontPage、Dreamweaver进行编辑 C、发送电子邮件时，必须知道对方的电子邮件地址 D、POP3协议实现将电子邮件从收件人邮箱接收到本地计算机
-
16、下列关于信息的说法，不正确的是（ ）A、信息经过加工处理后可以具有更高的使用价值 B、信息可脱离它所反映的事物被存储、保存和传播 C、信息具有真伪性，网上信息获取信息时仔细鉴别 D、信息具有共享性，网上论坛中的信息可随意转发
-
17、使用Flash软件创作作品“岁寒三友”，其中“main”场景的制作脚本如下表所示。
场景名：main
类别序号：2
进入方式：来自“Load”场景，通过“播放”按钮进入
呈现方式：
⒈“松”从舞台左侧淡入至舞台左下方。
⒉“梅”在舞台右上方从完全透明到完全显示到完全显示。
⒊“详情”和“退出”按钮位于舞台右下角，单击“详情”按钮停止声音播放并在浏览中打开同一文件夹下的文件“xq.htm”。
⒋其他动画略。
呈现顺序说明：
⒈开始出现背景图片、石头、雪和“松”的动画，再出现“竹”和“文字”动画。
⒉第4秒时出现“梅”动画，动画持续时长2秒。
⒊最后出现“详情”和“退出”按钮，并停止场景播放，背景音乐不停止。
(1)、在创作作品之前应进行需求分析，下列不属于创作需求分析的有 (多选，填字母)。A、设计作品的主要界面 B、确定作品的结构类型为演示型 C、了解用户的计算机应用水平 D、确定作品以SWF格式在网上发布 E、确定使用Photoshop软件合成作品背景(2)、根据上述脚本，在Flash软件中编辑“main”场景，部分界面如图所示。
测试场景，当动画停留在场景结束，发现雪花还在漫天飞舞，可知“雪”图层添加的雪花元件实例类型为。
(3)、如上图所示，“文字”图层第20帧到第35帧已创建了形状补间动画，为顺利实现从文字“松 四季长春”渐变为35帧的文字“竹 宁折不屈”的动画效果，应该。(4)、“梅”图层第20帧中的对象是正常显示的“梅”元件实例，为实现脚本要求动画效果，在“梅”图层中应进行的操作是。(5)、根据制作脚本,应为“详情”按钮添加动作脚本。(6)、下列作品发布格式中，无音频信息的是 (单选，填字母)。A、Flash影片( *. swf) B、GIF动画( *. gif) C、Windows AVI( *.avi) D、Windows放映文件(*.exe) -
18、用VB编写字符解压程序，功能如下:在文本框Text1中输入压缩字符串，压缩字符串中不含空格，其中数字可以是多位数，表示其后面的字符个数，字符为单个字符。在文本框Text2中显示解压结果。例如，输入压缩字符串“3Y5a”(表示有3个“Y”和5个“a”组成)，单击“解压”按钮后， 输出解压结果“YYYaaaaa”。程序运行界面如图所示：
(1)、在设计程序界面时，要将文本框Text1和Text2中的内容清空，可以修改这两个对象的属性实现。(2)、由代码可知，命令按钮“解压”的名称是。(3)、实现上述功能的VB程序如下,请在划线处填入合适的代码。Private Sub Comd1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim ch As String, s As String, ss As String
s = Text1.Text
n = 0: ss = ""
i = 1
Do While i <= Len(s)
If ch >= "0" And ch <= "9" Then
Else
For j = 1 To n
ss = ss + ch
Next j
n = 0
End If
Loop
Text2.Text = ss
End Sub
(4)、运行程序，若文本框Text1中输入的内容为“Y3a5”,则输出的解压字符串为。 -
19、使用Excel软件处理2020年12月国内各省市油品的价格数据，如图 a所示。
图a
请回答下列问题:
(1)、单元格J4中的结果可以通过复制D4单元格中的公式得到，则J4单元格的公式为：。(2)、区域M4:M8的结果是使用AVERAGEIF函数计算得到的，在M4单元格中输入公式： ， 再利用自动填充功能完成区域M5:M8的计算。(提示: AVERAGEIF函数用于统计某个区域中满足条件的单元格区域平均值，如“=AVERAGEIF(A4:A10， L4， E4:E10)”可以求得E4:E10区域中，所属地区是华北地区的93号汽油的平均价格)(3)、若要将C列数值小数位数设置为0，可以通过点击工具栏中的按钮（填字母：A .
/B . 
）实现，该操作会使M4单元格中显示的值(填字母：A .变大/B .不变/C .变小）。
(4)、根据图a相关数据制作的图表如图b所示，创建该图表的数据区域是。
图b
(5)、通过排序功能对图a中的数据按“0号柴油”价格从低到高排序，则排序时应选择的数据区域是。(6)、若要找出“华北”地区97号汽油价格最高的省市（若存在符合条件的多个省市，则全部选取），下列方法可行的是______________ (多选，填字母)。A、设置“地区”的筛选条件为“等于”“华北”进行筛选，再设置97号汽油“价格”的筛选条件为“最大1项”进行筛选 B、设置“地区”的筛选条件为“等于”“华北”进行筛选，再以97号汽油“价格”为关键字降序排序，选取排在最前面的省市 C、以97号汽油“价格”为关键字降序排序，再设置“地区”的筛选条件为“等于”“华北”进行筛选，选取排在最前面的商品 D、以“地区”为主要关键字升序排序、97号汽油“价格”为次要关键字降序排序，选取排在最前面的商品 -
20、有如下VB程序段：
Dim i As Integer
Dim c As String， s As String， t As String
s = "2021 PYthon": t = ""
For i = 1 To Len(s)
c = Mid(s， i， 1)
If c >= "a" And c <= "z" Then
t = t + c
ElseIf c >= "0" And c <= "9" Then
t = c + t
End If
Next i
Text1.Text = t
执行该程序段后，文本框Text1中显示的内容是（ ）
A、2021thon B、1202thon C、thon1202 D、noht1202