相关试卷
-
1、矩阵斜线排序是指按斜线方向从小到大实现排序，如5*5矩阵斜线排序效果如下图所示。
小明使用VB实现该排序，设计功能如下：随机生成两位正整数并显示在List1中，单击按钮“Command1”后将排序完成的数据显示在List2中。界面如图所示。
请回答以下问题：
(1)、更改窗体按钮Command1显示为“开始排序”，则需要设置它的属性。(单选，填写字母：A .Text/B .Caption/C .Name)(2)、请完善程序代码。Const n= 5 '矩阵大小
Dim a(1To n*n) As Integer
Private Sub Form_Load()
'随机生成n*n的矩阵数据，并依次保存在数组a(1)~a(n*n)中
'以n*n矩阵形式在list 1中显示数据，代码略
End Sub
Private Sub Command 1_Click()
Dim i As Integer， j As Integer， k As Integer， t As Integer
Dim startpos As Integer， endpos As Integer， s As String
For i= 2 To 2*n-2
If i<=n Then
startpos=(i-1) *n+ 1
endpos=i
Else
startpos= ①
endpos=(i-n+1) *n
End If
Do While startpos>endpos
②
j=startpos-n+1
Do While j>=endpos
If a(j) <a(k) Then k=j
j=j-n+1
Loop
If k<>startpos Then
t=a(k) ：a(k) =a(startpos) ：a(startpos) =t
End If
start pos=startpos-n+ 1
Loop
Next i
For i=1To n
s=””
For j=1To n
s=s+ ③
Next j
List 2．Add Item s
Next i
End Sub
① ② ③
-
2、使用flash软件打开“预防新冠．fla”文件，编辑界面如下图所示：
请回答下列问题：
(1)、创作多媒体作品需要进行需求分析，下面属于创作需求分析的有：(多选，填字母：A .目标用户的信息获取渠道；B .作品的主题思想；C .作品能产生的效益；D .作品主要内容；E 、制作作品所需设备。)(2)、“如何预防”图层动画补间类型可能是(单选，填字母：A 、动画补间；B 、形状补间；C 、逐帧动画)(3)、若要“查看更多”图层动画跟“如何预防”图层动画同步，应该进行的操作是：。(4)、“标题”图层第1帧“预防新冠病毒”文字属性如图B所示，可以推断，该图层动画效果为“预防新冠病毒”文字(单选，填字母：A 、从上而下进入舞台；B 、从左往右进入舞台；C 、从右往左进入舞台。)
(5)、点击“了解新冠”，停止当前场景的声音，并跳转到“场景2”第1帧播放，应该添加的动作脚本为。 -
3、小张同学收集了某地区近五年(2015-2019)供水用水情况数据，用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、小张在C10单元格输入公式后，又将C10单元格复制到C12，并用自动填充功能完成C10：G10，D12：G12单元格的数据计算，则C12单元格中显示的结果是(单选，填字母：A ．#VALUE!/B ．1266．27/C ．#DIV/O!/D ．14．32)(2)、若要按照上述方法正确计算所有“占总用水量百分比(%)”，小张应修改C10单元格的公式为。(3)、根据图a数据，小张制作了一张反映近五年用水总量对比图，如图b所示，则该图表的数据区域为B3：G3，B9：G9，B11：G11，。
(4)、分析图表，近5年用水量变化波动最大的是(选填：农业用水/工业用水/生活用水/生态用水) -
4、有如下VB程序段：
Key=Val(Text 1．Text)
i=1：j=10
Do While i<=j
m=(i+j)＼2
If Key<a(m) Then
j=m-1
Else
i=m+1
End If
Loop
Text 2.Text=Str(i-1)
数组a(1)~a(10)的值分别是2，2，3，5，5，5，7，7，7，9，若从Text 1中输入5，则Text 2显示的内容是（ ）
A、4 B、6 C、7 D、10 -
5、有如下VB程序段：
i=1：j=10：temp=a(5)
Do While a(j) >temp
j=j-1
Loop
Do While a(i) <temp
i=i+1
Loop
temp=a(i)：a(i)=a(j)：a(j)=temp
数组元素a(1)到a(10)的值依次为“36 91 36 17 93 99 29 97 97 96”，执行该程序段后，a(5)的值为（ ）
A、29 B、36 C、93 D、97 -
6、有如下VB程序段：
s=0
For i= 1 To 5
k=0
For j=i+ 1 To 6
If a(i) >a(j) Then k=k+1
Next j
s=s+k
Next i
数组元素a(1)到a(6)的值依次为“5，4，2，6，3，1”，执行该程序段后，变量s的值为（ ）
A、9 B、11 C、13 D、15 -
7、将无序数据“8，23，4，16，77，-5，53，100”按从大到小的顺序排列，每次可以交换任意两个元素，最少需要交换（ ）次A、4 B、5 C、6 D、7
-
8、某算法的流程图如图所示，执行这部分流程后，s的值是（ ）
A、20 B、27 C、30 D、43 -
9、若要对实数型变量x四舍五入保留两位小数，下列VB表达式中能实现的是（ ）A、Int(x*100+0.5) / 10 B、Int(x*10+0.5) / 10 C、Int(x*100) / 100 D、Int(x*100+0.5) / 100
-
10、一段音频使用GoldWave软件打开，属性如下图所示：
这段音频容量约为（ ）
A、10MB B、20MB C、25MB D、30MB -
11、使用Photoshop软件编辑图片，如图所示：
下列操作可以实现的是（ ）
A、可以使用“自由变换”命令调整“文字背景”图层的大小，而不影响其他图层 B、可以将“西子三千”的图层样式拷贝到“背景”图层 C、“西子三千”图层添加了三个图层样式：效果，投影，描边 D、当前状态下，可以直接删除“文字背景”图层 -
12、下列有关进制与字符编码的描述，正确的是（ ）A、任意进制的一个数，若末尾为0，这数转为十进制一定是偶数 B、十进制数98，转为七进制数表示为：170 C、用n位二进制数给m种不同的信息编码，则必满足2n≥m D、汉字和英文字符在计算机内部编码是采用十六进制形式
-
13、使用Access软件打开数据库文件，部分界面如下图所示，下列说法正确的是（ ）
A、当前打开的数据表名为“VIP会员信息．accdb”。 B、当前状态下，执行插入新记录操作，会在当前位置插入一条新记录。 C、ID字段肯定为自动编号类型，该字段的内容不能手动添加。 D、每新增加一位VIP会员，该表将增加一个字段。 -
14、下列应用中，体现了人工智能技术的有（ ）
①用APP进行拍照搜题
②在Word软件中输入“百步川杨”自动更正为“百步穿杨”
③使用指纹打卡进行员工考勤
④声卡将模拟信号转换成数字信号
⑤商场中的VR游戏体验
A、①③⑤ B、②③④ C、③④⑤ D、①③ -
15、下列关于信息与信息表达的说法正确的是（ ）A、网页文件是由HTML语言描述的文本文件，可以用记事本编辑。 B、常用的信息表达方式有语言、文字、图像、书籍、报纸、网络等。 C、因特网是当今人们获取信息的重要场所，所以网络上获取的信息都是真实可信的。 D、POP 3协议的功能是把电子邮件从发件人电子信箱发送到收件人的电子邮件服务器中。
-
16、小龙同学设计了一个求四则混合运算结果的程序，用于计算不带括号的“+”、“-”、“*”、“＼”的运算，“＼”为整除运算，且此处要求“*”和“＼”的优先级相同。在表达式中输入待求解的表达式，以“=”结尾。按下Command 1“计算”按钮后， 在标签控件Label l中输出运算结果。程序界面如下图所示：
(1)、在表达式中输入“15-22＼5*2+7=”，则输出的结果是。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Function calculate(x As Integer， y As Integer， op As String) As Integer
If op=“+”Then calculate=x+y
If op=“-”Then calculate=x-y
If op=“*”Then calculate=x*y
If op=“＼”Then calculate=x＼y
End Function
Function state(op As String) As Integer
If op=“#”Then state=-1
If op=“=”Then state = 1
If op=“+”Then state = 1
If op=“-”Then state = 1
'①
If op=“*”Then state = 3
End Function
Private SubCommand1_Click()
Dim s As String， length As Integer， t As String
Dim k As Integer， q As Integer
Dim opt( 0 To 3) As String
Dim i As Integer
Dim s1 As String
Dim a( 1 To 3) As Integer
s=Text 1.Text
length=Len(s)
t=“”：k=0：q=0：opt(q) =“#”
For i= 1 To length
s1=Mid(s， i， 1)
If s1>=“0”And s 1<=“9”Then
t=t+s1
Else
k=k+1
a(k) =Val(t)
t=“”
Do While '②
a(k-1) =calculate(a(k-1) ， a(k) ， opt(q) )
k=k-1
q=q-1
Loop
q=q+1
'③
If s1=“=”Then Label1.Caption=Str(a(1))
End If
Next i
End Sub
-
17、小奕同学基于排序算法设计了一个数字矩阵排序的程序。程序界面如下图所示，在文本框中输入矩阵大小，点击“生成”按钮Command1，在左侧列表框List 1中输出一个长宽均为指定大小的随机整数矩阵，随机整数范围为【1，99】。点击“排序”按钮Command2，结果输出在右侧列表框List 2中，奇数行从左到右依次递增，偶数行从右至左依次递增，且保持输出矩阵的长宽不变。
(1)、实现上述功能的VB程序如下，显示数据用的add item是一种(单选，填字母：A ．属性名/B ．事件名/C ．方法名/D ．过程名)。(2)、请在划线处填入合适的代码。Dim a( 1 To 100) As Integer
Dim n As Integer
Function dq(s As String， L As Integer) As String ‘自定义对齐函数
‘在输入的字符串s前加若干空格，输出长度为L的字符串，代码略
EndFunction
Private SubCommand1_Click() '生成数字矩阵
‘随机生成n^2个数字，存储在数组a中，代码略
‘以一行n个，共n行的格式显示在List 1中，代码略
End Sub
Private Sub Command2_Click() '数字矩阵排序
Dim i As Integer， k As Integer， j As Integer， s As String
Dim f As Boolean
List 2.Clear
f=True
For i=1 To n^2 Step n
s=“”
For j=i To
k=n^2
Do While ①
If a(k) <a(k-1) Then
t=a(k)：a(k)=a(k-1)：a(k-1)=t
End If
k=k-1
Loop
If f=True Then
s=s+“”+dq(Str(a(j) ) ， 2)
Else
s=“”+dq(Str(a(j) ) ， 2) +s
End If
Next j
List 2.Add Items
②
Next i
End Sub
① ②
(3)、程序中加框处代码有错，请改正。 -
18、小龙创作“防疫宣传”的多媒体作品。他首先使用Photoshop软件制作一张背景图片， 然后使用Flash软件制作动画。请回答下列问题：(1)、如图a所示，当前状态下，下列说法正确的是(多选，填字母：A ．将作品存储为“口罩分类．bmp”， 存储容量为1.26Mb/B ．“医用口罩”图层不可见的原因是不透明度为0%/C ．可以对背景图层使用“镜头光晕”滤镜/D ．可以调整背景图层的填充为50%/E ．该位图文件存储每个像素占8b)。
(2)、如图b所示，已知声音文件长度为10秒，为了使声音播放到50帧自动停止，则可以将声音同步方式设置为(单选，填字母：A ．事件/B ．数据流)。
(3)、如图b所示，库中一共有个元件。(4)、如图b所示，“口罩”图层第1帧到第15帧的补间动画实现了“口罩”实例从完全透明到完全显示，则该动画的类型是(单选，填字母：A ．动画补间动画/B ．形状补间动画/C ．逐帧动画)。(5)、为使按钮推迟1秒出现，并持续到第50帧。下列操作不可行的是 (多选，填字母)A、将“按钮”图层第1帧拖动到第13帧 B、选中“按钮”图层第1-12帧执行“清除帧” C、选中“按钮”图层第1-12帧执行“剪切帧” D、选中“按钮”图层第1-12帧执行“转换为空白关键帧” E、选中“按钮”图层第13帧执行“插入关键帧”，然后在第1帧执行清除关键帧(6)、测试“main”场景时， 单击“返回”按钮能跳转到“begin”场景第1帧并停止播放， 则在“返回”按钮上设置的动作脚本是。 -
19、小龙收集了杭州某书城部分图书销售相关数据，并用EXCEL表进行处理，如图1所示：
(1)、已知H4：H13的数据由H3单元格利用自动填充功能得到，那么H3单元格中公式为。计算公式：占总销售额百分比(%)=销售额(元)/所有销售额(元)的总和×100
(2)、若根据“课程类别”为主要关键字对数据进行排序，应选数据区域为。(3)、若根据“课程类别”关键字对数据进行升序排序后，创建以下图表的数据区域是 。
(4)、将图1区域A2：H13的数据复制到新工作表，在新工作表中对数据进行筛选操作，筛选设置如下图所示，则按此设置筛选出的书名有个。
-
20、有如下VB程序段：
Const n= 10
Dim a(1 To n) As Integer
Dim mid As Integer， L As Integer， R As Integer
Randomize
a(1)=10
For i=2 To n
a(i) =a(i-1) +Int(Rnd*2) + 1
Next i
c=0：L=1：R=n：flag=False：Key=11
Do While L<=RAnd Not flag
mid=Int((L+R) /2+0.5)
c=c+1
If a(mid) =Key Then
flag=True
ElseIf a(mid) >Key Then
R=mid-1
Else
L=mid+ 1
End If
Loop
执行该程序段后，变量c可能的值是（ ）
A、1或2 B、2或3 C、3或4 D、4或2