相关试卷
-
1、有如下VB程序段：
s = "cbafedgh"
m= 3: c=" ": n= Len(s)
For i=1 To n
j=(i-1) Mod 3 + 1
If m> n Then Exit For ‘退出For循环
c= c + Mid(s, m-j+1, 1)
If j Mod 3=0 Then m=m+3
Next i
If i < n Then c = Mid(s, i, n-i+1)+ c
执行该程序段后，变量c的值是（ ）
A、abcdef B、abcdefgh C、ghabcdef D、hgabcdef -
2、有如下VB程序段：
m = a(1): s=0
For i=2 To 5
If a(i) >m Then s=s+m
m= a(i)
Next i
数组元素a(1)到a(5)的值依次为“1，3，4，2，3”，执行该程序段后，变量s的值为（ ）
A、6 B、7 C、10 D、13 -
3、如图是求 的流程图，则图中①处应填入的内容是（ ）
A、A←1+ B、A←2+ C、A← D、A← -
4、在VB中，若x、y都是正整数且表达式x Mod y=1为真，则下列关系表达式值一定为真的是（ ）A、x>y B、x\y=0 C、x\y<>x/y D、x*y Mod 2=0
-
5、使用Photoshop软件编辑“算术.psd”，部分界面如图所示。
则当前文档的图像大小为（ ）
A、300*400像素 B、520*1000像素 C、450*800像素 D、1116*1400像素 -
6、使用Goldwave软件打开某音频文件，选中其中一段音频后的部分界面如图所示。
下列说法正确的是（ ）
A、当前状态下执行“删除”操作，则两个声道的2～4秒均为静音 B、当前状态下执行“裁剪”操作，保持其他参数不变直接保存，存储容量约为344.5KB C、把音频文件“素材.wav”重命名为“素材.mp3”，可以实现声音格式的转换 D、当前状态下执行“插入6秒静音”操作，音频的时长不变 -
7、将下列数转换为十进制数，除以8后余数为1的是（ ）A、B50H B、100111B C、F59H D、111000B
-
8、在设计某校园一卡通管理系统时，使用Access软件创建的数据表部分界面如图所示。
下列说法正确的是（ ）
A、该一卡通系统属于数据库管理系统 B、同一身份证号不能同时办理两张校园卡 C、当前不能对数据表“充消记录表”进行重命名操作 D、“用户身份”的字段值可以输入“是”或“否” -
9、下列有关网站和网页的说法中，正确的是（ ）A、使用“添加到收藏夹”功能可将网址收藏到指定的文件夹中 B、使用搜索引擎搜索时，关键词越多，搜索结果越多 C、网站内各个网页之间均需相互链接 D、以“网页全部(*.htm；*.html)”类型保存网页，网页中的图像不会被保存
-
10、下列有关信息和信息技术的说法中，错误的是（ ）A、传感器技术已经在智能手机中广泛使用 B、计算机中所有的字符都采用ASCII码编码 C、声音数字化的基本方法是采样和量化 D、数据压缩技术提高了多媒体信息存储、处理和传输的效率
-
11、给定一个字符串（由字母、空格、句末点号组成，单词中不出现其它符号），你需要反转字符串中每个单词的字符顺序且输出均为大写字母，同时仍保留单词的初始顺序、空格和句末点号。小李同学编写的“字符反转”VB程序如下，文本框Text1中输入的是反转前字符串，单击“反转”按钮后，在文本Text2中输出字符串反转结果，程序运行界面如图所示。
(1)、请在划线处填入合适的代码。Private Sub Command1_Click()
Dim a（1 To 20）As String
Dim n，m，i，j As Integer
Dims，s1，s2 As String
s1=Text1. Text：n=Len（s1）
m=0：s=""
For i=1 To n
If Mid（s1，i，1）="" Or Mid（s1，i，1）="." Then
m=m+1
a（m）=s
s=""
Else
End If
Next i
For j=1 To m
n=Len（a（j））
For k=1 To n
If t﹥="a" And t<="z" Then
s2=s2+t
Else
s2=s2+t
End If
Next k
Text2. Text=Text2. Text+s2
s2=" "
Next j
Text2. Text=Text2. Text & "."
End Sub
(2)、观察程序运行界面和阅读下面程序可知，原字符串输入“ShanShui LianMeng”单击“反转”按钮的则反转结果输出。 -
12、暑假小明的弟弟问了他一道小学一年的数学题，题目是：“小红去超市买东西，里面有：巧克力一盒28元、火腿肠一包24元、皮球一个16元、毛巾一条4元、N95口罩一包15元、笔记本一本8元、铅笔盒一个7元、水晶泥一盒12元、水彩笔一盒24元、牛奶一瓶5元等很多商品。小红带的钱刚好购买其中的两样东西。请问她可以买哪两样东西，有几种组合？”为解决这个问题，小明专门编写了一个VB程序。在文本框中text1输入商品和价格，在文本框text2中输入带的钱，单击“挑选”按钮，在列表框list1中输出查询结果。程序运行界面如下图：
请回答下面问题：
(1)、下列对象中，有Caption属性的是（单选，填字母：A .Command1/B .Text1/C .Lis1）。(2)、实现挑选两样商品功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim n，i，j，k，x，L，R，c As Integer
Dim goods（1 To 20）As String 'goods（i）存储商品的名称
Dim price（1To 20）As Integer 'price（i）存储商品的价格
Dim s，ch As String
s=Text1.Text：x=Val（Text2. Text）
j=1：k=0
For i=1 To Len（s）
ch=Mid（s，i，1）
If ch="，" Then
k=k+1
If k Mod 2=1 Then
Else
price（k\2）=Val（Mid（s，j，i-j））
End If
j=i+1
End If
Next i
n=k\2
For i=1 To n-1
For i=1 To n-i
If price（j）>price（j+1）Then
k=price（j）：price（j）=price（j+1）：price（j+1）=k
End If
Next j
Next i
For i=2 To n
L=i：R=n
Do While L<=R
m=（L+R）\2
If price（m）+price（k）=x Then
c=c+1
List1. Addltem goods（k）& Str（price（k））&"元 和" & goods（m）& Str（price（m））& "元"
j=m
Do While price（j）=price（j-1）
j=j-1
c=c+1
Listl. Addltem goods（k）& Str（price（k））& "元 和" & goods（j）& Str（price（j））& "元"
Loop
Do While
m=m+1
c=c+1
List1. Addltem goods（k）& Str（price（k））& "元 和" & goods（m）& Str（price（m））& "元"
Loop
Exit Do ‘Exit Do 表示退出Do循环
Elself price（m）+price（k）>x Then
R=m-1
Else
L=m+1
End If
Loop
Next i
List1. Addltem"共有：" & Str（c）& "种组合"
End Sub
(3)、程序中加框处代码有错，请改正。 -
13、小明要创作一个主题是“绿水青山就是金山银山”的多媒体作品。请回答下列问题：(1)、在制作作品前，进行了相应的分析和规划。下列属于创作需求分析的是（多选，填字母：A .该作品需要使用的相关软件/B .该作品面向中学生演示播放/C .该作品的主题思想为“绿水青山就是金山银山”/D .该作品将在网络上进行发布/E.制作作品的媒体元素分解表）。(2)、使用Flash软件制作该多媒体作品，如图所示。图中“小船”图层第1帧到第20帧的补间动画实现了“小船”实例从左到右的动画效果，该动画的补间类型是。
(3)、测试场景时，“小船”图层内容在播放完第40帧后消失。为了使该图层第40帧内容延续显示至本场景动画结束，解决方法是：；(4)、测试影片时，本场景播放结束后，声音还在继续播放，可知“标题”图层第1帧中声音的同步类型为。（选填：事件/数据流）(5)、测试影片时，单击“详情”按钮，实现在浏览器中显示位于同一文件夹下“两山论.txt”文件的内容，则“详情”按钮的动作脚本为。 -
14、小林收集2020年度国内影院电影票房排行榜数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、如图a所示，区域F2：F14是通过rank()函数计算得到的各电影票房的排名（注：rank（number，ref）函数表示返回一个数值在一组数值中的排位，例如：=rank（C3，C3：C10）求的是C3单元格中的数值在C3：C10这一组数值中的排名）。先在F2单元格输入公式，再利用自动填充计算出F3：F14区域内所有的数据，则F2中的公式为。(2)、如果要对各电影的数据以“票房（万元）”为关键字进行降序排序，则应选择数据区域是。(3)、根据图a中数据制作的“2020年电影票房饼图”图表如图b所示，创建该图表的数据区域为。
图b
(4)、对图a中的票房占比（%）进行筛选，筛选条件如图c所示，则最终满足条件的数据有几条。
图c
-
15、有如下VB程序段
Dim a（1 To 6）As Integer
For i=1 To 6
a（i）=Int（Rnd()*45）*2+10
Next i
For i=1 To 2
For j=2 To 6-i
If a（j）\10>a（j-1）\10 Then
temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
End If
Next j
Next i
执行上述程序段后，下列选项中，a（1）到a（6）各元素值可能的是（ ）
A、84，98，93，84，62，30 B、70，60，10，28，18，14 C、34，44，36，14，16，94 D、74，32，66，46，38，28 -
16、某查找算法的部分VB程序代码如下：
i=1：j=8：k=0
key=15
Do While i<=j
k=k+1
m=Int（（i+j）/2）
If key<a（m）Then j=m-1 Else i=m+1
Loop
数组元素a（1）到a（8）的数据依次是“14，15，15，17，28，30，37，40”，该程序执行完毕后，下列各变量的值不正确的是（ ）
A、i=4 B、m=2 C、j=3 D、k=3 -
17、有如下VB程序段
Dim a（1 To 5）As Integer
Dim d（1 To 5）As Integer
a（1）=12：a（2）=21：a（3）=19：a（4）=11：a（5）=20
n=5：Max=0
For i=1 To n
d（i）=0
For j=1 To i-1
If a（j）<a（i）Then d（i）=d（i）+1
Next j
If d（i）>Max Then Max=d（i）
Next i
执行完以上程序段后，Max的值为（ ）
A、1 B、2 C、3 D、4 -
18、有如下VB程序段：
flag=False: s="ShanShui2020！"
For i=1 To Len（s）
ch=Mid（s，i，1）
If Not（ch>="0" And ch<="9"）And Not flag Then
t=ch+t
End If
flag=Not flag
Next i
Text1.Text=t
执行完以上程序段后，文本框text1中的内容为（ ）
A、!uSaS B、SaSu! C、!22uSaS D、ShanShui! -
19、某算法的流程图如下图所示。
当输入x的值为109时，在标签Label1中输出的内容为（ ）
A、4 B、33 C、36 D、48 -
20、下列VB表达式中，可取到的最小值中，最小的为（ ）A、Rnd-99 B、Fix（（-Rnd*45））*2-10 C、int（（Rnd-Rnd）*100） D、-Int（Rnd*45）*2-10