相关试卷
-
1、在一个整数序列中找第k小的字母，若有相同的字母，则位置靠前的字母名次靠前，如有字母序列为“A，B，A，D，C”则第1小的字母为A在第1个位置，第2小的字母为A在第3个位置，笫3小的字母是B，在第2个位置，第4小的字母是C，在笫5个位置，笫5小的字母是D，在第4个位置。编写一个VB程序实现如下功能，程序启动时随机产生n个A-G之间的随机大写字母，在文本框Text2中输入整数k(k<=n)，单击“查找第k小的字母”按钮Commandl后，在文本框Text3上显示笫k小的字母位置。程序运行界面如下图所示。
(1)、若要清空文本框 Text1 中的内容，能实现该功能的语句是 （单选，填字母：A .Text1.Caption=""/B . Text1.Text=""/C . Text1.Clear）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Const n = 20
Dim i As Integer
Dim a(1 To n) As String
Private Sub Form_Load()
Randomize
For i = 1 To n
a(i) =
Text1.Text = Text1.Text + " " + a(i)
Next i
End Sub
Private Sub Command1_Click()
Dim k As Integer, count As Integer
Dim b(0 To 7) As Integer
k = Val(Text2.Text)
For i = 1 To n
Next i
i = 1
Do While i < 7 And b(i) < k
i = i + 1
Loop
Key = i
count = 0
For i = 1 To n
If a(i) = Chr(Key + 64) Then count = count + 1
If count = Then Exit For
Next i
Text3.Text = "第" + Str(k) + "小的字母是：" + Chr(Key + 64) + "；位置是：" + Str(i) End Sub
(3)、程序中加框处有错，请改正。 -
2、小张使用Flash软件制作了一主题是“建党100周年”的多媒体作品，部分界面如图a所示，请回答下列问题：
图a
(1)、关于多媒体作品设计，下列说法正确的是。（多选，填字母：A . Flash 是以时间序列为基础的多媒体制作工具/B .在创作需求分析阶段应该分析作品效益/C .结构设计阶段需要描述整个作品的组成部分、工作流程和主要界面/D .将所需要的的原始素材列成表格、确定获取原始素材的方式并分类登记，属于脚本编写/E .文字脚本是制作多媒体作品的直接依据。）(2)、“人物”图层第13帧到第48帧实现了人物由小变大且由透明到完全显示的动画效果，则该动画的类型是 （填字母：A .逐帧动画/B .动画补间/C .形状补间）。(3)、“按钮”元件的编辑界面如图b所示，当鼠标移动到人物上时， （填字母：A .会/B .不会）出现小手形状。
图b
(4)、“暂停”按钮在本场景一开始就播放，在不改变其他动画的前提下，实现该按钮在本场景最后一帧才出现，下列操作可行的是 （多选，填字母）A、在“按钮”图层第1帧移动到第60帧 B、在“按钮”图层第1帧执行“插入空白关键帧”操作 C、在“按钮”图层第1帧执行“删除帧”操作 D、将“按钮”图层第1帧舞台上的对象删除 E、在“按钮”图层第1帧到59帧执行“清除帧”(5)、要在动画播放4s后，声音停止播放，则需要在图层相关帧上添加动作命令。 -
3、小张收集了某些学生期中考试的部分数据，并使用Excel软件进行数据处理，如图a所示，请回答下列问题：
图a
(1)、区域F3:F11中的数据是通过公式计算得到的，F3中的数据已经正确计算，通过自动填充功能完成区域 F4:F11，则 F6 中的计算结果是 （单选，填字母：A . */B . 214/C . #VALUE!/D . #REF!）(2)、根据图a制作了如图b所示的图表，创建该图表的数据区域是。
图b
(3)、图a和图b，下列说法正确的是 。A、正确完成第（1）小题的计算后，不小心删除C列，则原F3中的总分变成252 B、若要得到1班中总分最高的记录，可以按照“班级”等于1班，总分等于最大一项进行筛选 C、在第6行和第7行之间插入一行数据，图b不变 D、正确完成第（1）小题的计算后，选中A2:F11，按照“总分”为主要关键字降序排序，排序后图b变化 -
4、有如下VB程序
i=1：j=10：key=Val(Text1.Text)
Do While i <= j
m = (i + j + 1) \ 2
If a(m) >= key Then
j = m - 1
Else
i = m + 1
End If
Loop (程序 a)
i=1：j=10: key=Val(Text1.Text)
Do While i <= j
m = (i + j + 1) \ 2
If a(m) > key Then
j = m - 1
Else
i = m + 1
End If
Loop (程序b)
以下说法正确的是（ ）
A、若要使用程序a或程序 b查找某个数据，数组a中的数据可以是降序排序 B、无论key的值是多少，执行程序a和程序b后一定有i = j + 1成立 C、无论key的值是多少，执行程序a和程序b后i的值一定相同 D、无论key的值是多少，执行程序a和程序b后j的值一定相同 -
5、有如下VB程序：
n = 7
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) Mod 10 > a(j - 1) Mod 10 Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
已知a(1)到a(7)各元素初值分别是31、22、73、54、85、26、37，运行上述程序后，a(1)到a(7)各元素的值分别是（ ）
A、85、73、54、31、22、37、26 B、37、26、22、31、54、73、85 C、37、85、73、31、22、54、26 D、26、54、22、31、73、85、37 -
6、反转字符串，如输入字符串为“abcdefg”，则输出字符串“gfedcba”，实现该功能的部分程序如下所示，划线处的正确语句是（ ）
s = Text1.Text：n = Len(s)
'按s中字符顺序从左到右依次存入到数组a中，代码略
i = 1
Do While i <= n - 1
t = ①
For j = n - 1 To i Step -1
a(j + 1) = a(j)
Next j
②
i = i + 1
Loop
For i = 1 To Len(s)
Text2.Text = Text2.Text + ③
Next i
A、① a(n) ② a(j + 1) = t ③ a(i) B、① a(n) ② a(j) = t ③ a(i) C、① a(i) ② a(j + 1) = t ③ Str(a(i)) D、① a(i) ② a(j) = t ③ Str(a(i)) -
7、有如下VB程序段：
s1 = "2019GaoKao"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
ch = Str((Val(ch)+1) Mod 10)
s2 = ch + s2
ElseIf ch >= "a" And ch <= "z" Then
ch = Chr(Asc(ch) - 32) s2 = s2 + ch
End If
Next i
该程序运行后，s2的值是（ ）
A、"A0A00213" B、"0213A0A0" C、"02130A0A" D、"0A0A0213" -
8、某算法的流程图如图所示，若输入k1=0，k2=0，n是1到31之间的整数，执行这部分流程之后，输出k1和k2的值相等，则满足条件的n的值的个数是（ ）A、4 B、6 C、7 D、8
-
9、已知ch是一小写字母，VB表达式Int（Asc（ch）/10+0.5）+Int（Rnd*3-1）^2的最大值是（ ）A、11 B、12 C、13 D、14
-
10、一幅未经压缩的1024×1600像素的BMP图像，将该图像存储为JPEG格式（其他参数不变），其存储容量为100KB，图像的压缩比约为32：1，则该图像的色彩位数为（A、4位 B、8位 C、16位 D、24位
-
11、利用PhotoShop软件制作“夏至.psd”作品，编辑界面如下图所示：
下列描述正确的是（ ）
A、可以将“夏至”图层的图层样式复制粘贴到“花”图层 B、调整“夏至”和“圆”的图层顺序，不会影响作品的呈现效果 C、可以使用“自由变换”命令仅将“夏至”图层中的“夏”字变大 D、设置背景图层不透明度为0%，将当前文件保存为夏至.png格式，可以看见透明背景 -
12、将下列数转换成十进制数，其中是8的倍数的是（ ）A、10111010B B、101110011B C、123H D、120H
-
13、使用Access软件创建数据表如下图所示，下列说法正确的是（ ）
A、当前数据库的文件名是“资产说明.accdb” B、进入“资产说明”的设计视图后，无法将“ID”字段设为主键 C、添加一条新记录，则新记录的“ID”字段值可能为“5” D、在某条记录的“购置日期”字段中输入“2018-10-29”，不会自动转为“2018/10/29” -
14、下列有关网页和邮件的说法，不正确的是（ ）A、自动网页搜索技术和全文检索技术是搜索引擎的两大核心技术 B、将网页保存为“网页，仅HTML”类型，可以保存网页中的图片 C、SMTP协议是实现将电子邮件从发件人计算机发送到收件人电子信箱的协议 D、HTTP协议的作用是将浏览器发出的请求发送至Web服务器，并将服务器回应的网页传回至浏览器
-
15、下列有关信息和信息技术的说法，正确的是（ ）A、信息技术和多媒体技术从古至今一直存在 B、物质、能源和信息是构成当今人类社会的三大要素 C、文字、语言、图形、图像、声音和形体动作都是常见的信息表达技术 D、用支付宝支付时，在一定时间段内二维码会自动更新，这体现了信息的实时性
-
16、用VB编写字符串“密码破译”程序，其功能如下：在文本框Text1中输入任意一串字符串,字符串长度为n*n（n为自然数），单击“解密”按钮Command1,在文本框Text2中输出解锁密码。解锁密码破译步骤如下：将字符依次存储到数组a中，存储方式从左下向右上，平行于矩阵的对角线依次进行存储，以长度为36的字符串“Toleranceisthemental,YouSheng优胜一筹”为例，数组a元素对应的赋值情况如图a所示；将对角线字符从右上向左下依次相连即为解锁密码。程序运行效果如图b所示。
图 a
图 b
实现上述功能的 VB 程序如下，请回答下列问题：
(1)、若输入的字符串内容为“abcdefghijklmnopqrstuvwxy”，则破译后的解锁密码为。(2)、请在划线处填写合适代码，使程序正常运行。Private Sub Command1_Click()
Const n = 6
Dim a(1 To n * n) As Integer
Dim b(1 To n * n) As String
Dim i As Integer, j As Integer, k As Integer, s As String
Dim zf As Integer '变量zf存储数组a元素的值
Dim xb As Integer '变量xb存储数组a的下标
Dim p As Integer
For i = 1 To Len(Text1.Text)
b(i) = Mid(Text1.Text, i, 1)
Next i
k = 1
For i = 1 To n
k = k + (i - 1)
zf = k
a(xb) = zf
p = i + 1
For j = 2 To n
If j <= n - i + 1 Then
zf = zf + p
a(xb + j - 1) = zf
p = p + 1
Else
zf = zf + p
a(xb + j - 1) = zf
End If
Next j
Next i
For i = 1 To n
s = s +
Next i
Text2.Text = s
End Sub
-
17、小明为班会活动的“抽奖环节”设计了一张获奖表。该“抽奖环节”功能如下：班级学生人数为n个，程序运行后，单击“发放号码牌”按钮Command1，随机生成n个不重复的[n+1, 2*n]内的整数，并在列表框list1中显示，学生按学号次序依次领取号码牌，例如：随机生成的第一个整数为54，则学号为1号的学生领取的号码牌为54。单击“抽奖”按钮Command2,在列表框list2中显示获奖表，获奖序列要求：第1名获奖的学生是号码牌数字中偶数最大的，第2名获奖的学生是号码牌数字中奇数最小的，第3名获奖的学生是号码牌数字中偶数第二大的，第4名获奖的学生是号码牌数字中奇数第二小的……取过的数字不能再取，以此类推，直到结束。其程序界面如图所示。
实现上述功能的VB程序代码如下，请回答以下问题：
Const n = 50
Dim a(1 To n) As Integer
Dim f(n + 1 To 2 * n) As Boolean
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize
For i = n + 1 To 2 * n
f(i) = False
Next i
For j = 1 To n
a(j) = Int(Rnd * n) + n + 1
If f(a(j)) = True Then j = j - 1 Else ①
Next j
For i = 1 To n
List1.AddItem CStr(i) + "号-" + CStr(a(i)) 'cstr 把数值类型转换为字符串类型，并去前导空格
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer
m1 = 0: m2 = n \ 2
For i = n + 1 To 2 * n
If ② Then
m1 = m1 + 1: a(m1) = i
Else
m2 = m2 + 1: a(m2) = i
End If
Next i
For j = 1 To n \ 2
List2.AddItem "第" + CStr(2 * j - 1) + "名" + Str( ③ ) List2.AddItem "第" + CStr(2 * j) + "名" + Str(a(n \ 2 + j))
Next j
End Sub
(1)、若仅对如下号码牌进行抽奖：1号-57，2号-76，3号-91，4号-83，5号-66，6号-82，则第3名获奖的学生学号是号。(2)、 请在划线处填写合适代码，使程序正常运行。① ② ③
-
18、小王创作主题为“网络连接你我他”的多媒体作品。在作品创作过程中，他使用Photoshop软件制作了一张“科技创新”图片，并使用Flash软件制作了一个“网络世界”动画。请回答下列问题：
图 a
(1)、如图a所示，在当前状态下，下列说法正确的是 （多选， 填字母）A、选中“智慧”图层后，可使用油漆桶工具将“智慧”图层中字体颜色填充为蓝色 B、可在“背景”图层添加滤镜效果 C、将“科技创新”图层的图层样式拷贝到“网络”图层后，“网络”图层仍有“描边”效果 D、可使用自由变换操作更改“科技创新”图层中“科技”二字的大小 E、可交换“网络”图层与“科技创新”图层的图层次序(2)、图b中，“文字”图层第1帧到第25帧的动画效果是由“信息社会”逐渐变为“网络连接你我他”，则该动画的补间类型是（选填：形状补间/动画补间）。若要使背景图层从第1帧到第50帧一直显示同一内容，应该在“背景”图层第25帧执行操作。
图 b
(3)、如图b所示，“音乐”图层的声音素材时长为3分钟，且同步属性为“事件”，要使本场景动画播放到第25帧时停止声音播放，可行的操作是。(4)、如图b所示，“PLAY”按钮位于舞台左下角。测试影片时，单击“PLAY”按钮即跳转到“大数据”场景第10帧继续播放并打开链接“http://www.lianjie.com.cn”，则该按钮的动作脚本为：on(press){} -
19、小李收集了杭州市区自来水销售情况数据，为进一步对该表分析评价，使用Excel软件进行了数据处理，如图a所示，请回答下列问题：
图 a
(1)、区域E3:E9的数据是通过公式计算得到的：在E3单元格中输入公式,再利用自动填充功能完成区域E4:E9的计算。若在C4单元格输入“不详”二字，则E4单元格将显示。（单选，填字母：A .1.50/ B .#VALUE!/ C .#REF!/ D .#NAME?）(2)、图a中的数据显示值和真实值相等，对图a中的数据进行筛选操作。先按“供水价格”自动筛选最大的3项，再按“污水处理费标准”自动筛选最大的3项，则按此操作筛选出的数据内容（不包括标题行）有行。(3)、根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域是。
(4)、对图a中的“经营性用水”数据进行排序，要求按“供水价格”为主关键字降序，按“污水处理费标准”为次关键字升序，排序应选择的数据区域是。 -
20、有如下VB程序段：
i = 1: j = 8: k = 4
Randomize
Key = (Int(Rnd * 4)+20)*4
Do While i <= j
m = (i + j) \ 2
If Key = a(m) Then
Exit Do
ElseIf Key < a(m) Then
j = m - 1: k = k / 2
Else
i = m + 1: k = k * 2
End If
Loop
数组元素a(1)到a(8)的值依次为“80,82,84,86,88,90,92,94”,执行该程序段后，变量k的值可能是( )
A、1,4,8 B、 2,4,8 C、4,16,32 D、1,4,16