相关试卷
-
1、字符加密：用VB编写某字符串加密解密程序(仅针对ASCII码字符) ，其加密过程如下:
首先，分别求出特加密ASCII字符的ASCII码，然后用7位二进制来表示，比如“4”的ASCII码为十进制52，转换为7位二进制为“0110100”
其次，从左至右依次记为第1、2、3....7位，分别把第3、4、5位取反，即0变1， 1变0，至此“0110100”变为“0101000”，将此二进制转换为ASCII码为40，对应的字符为“(”，即“4”经过加密后得到加密字符左括号“(”。
在文本框Text1中输入ASCII字符，单击命令按钮Command，则在文本框Text2中显示经过加密的字符。VB代码如下，程序界面如图所示。
上述加密与解密过程实际上是可以互逆的，请完成下列问题。
(1)、若在文本框Text1中输入字符“46785”，则文本框Text2中显示加密字符(2)、请在划线处填入合适的代码。Private Sub Command1_Click（）
Dim a(1 To 7) As Integer
Dim i As Integer， j As Integer， n As Integer
Dim ascl As String， s As String， s1 As String
i=1
S=Text1.Text
Text2.Text=“”
Do While i=Len(Text1.Text)
s1= Mid(s， i， 1)
ascl=Asc(s1)
n=0
For j=7 To 1 Step-1
If j=3 Or i=4 Or j=5 Then
a(j)=
Else
a(j) = asc1 Mod 2
End If
ascl=asc1\2
n=
Next j
Text2.Text =Text2.Text+
i=i+1
Loop
End Sub
-
2、用VB编写数据解压缩程序，其功能如下:在文本框Text1中输入压缩后的数据，格式为“字符数字字符数字......，其中的字符只能是单个，而数字可以是多位，表示其前面的字符个数。(即原始数据)“WWWyyyy”输出在文本框Text2中运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题
Private Sub Cond1_Click（）
Dim i As Integer， j As Integer， n As Integer
Dim ch As String， s As String， s1 As String
s=Text.Tet
Tex2.Test=“”
n=0
s1=Mid(s，1，1)
i=2
Do While i＜Lend（S）
Ch=Mid(si，I)
If ch＞“0”And ch ＜”9”Then
n= ①
Else
Forj=1Ton
Text2 Text= ②
Next j
sl=ch
③
Endir
I=i+1
Loop
End Sub
(1)、由代码可知，命令按钮“解压缩”的对象名是(2)、请在划线处填入合适的代码。① ② ③
(3)、若删除加标处代码，而压缩数据依然为“w3y4”，则解压缩后的数据为 -
3、小王创作主题为庆祝春节的多媒体作品。他首先使用Photoshop软件制作一张图片，然后使用Flash软件制作动画。请回答下列问题:
(1)、如图a所示，已知背景颜色为白色，其他内容均为红色。在Photoshop中，仅去掉“2019”字样的内容，下列操作中可行的是 (多选，填字母: A .设置背景色为白色，用“橡皮擦”工具擦除“2019”B .设置背景色为红色，用“橡皮擦”工具擦除“2019”C .用”仿制图章”工具对白色去采样，然后对2019区域进行图画。D .用“裁剪”工具选中“2019”区域后按回车键/E .设置前景色为白色，用“画笔”工具对“2019”区域进行涂画(2)、如图b所示， “文字”图层从25帧到第40帧实现“新年快乐”文字的淡出效果，该动画类型属于(选填字母: A .逐动画/B .动画补同/C .形状补间).(3)、如图b所示，在按钮图层中使该按钮出现在动画的最后，再不改变其他动画效果前提下，可进行的操作是(4)、如图b所示，库中的音频素材时长为10秒，要实现动画结束时音乐也停止播放，则“声音”图层中的声音“同步”属性应设置为(5)、单击按钮图层的“重播”按钮，关闭声音并从本场景第一帧重新播放动画，则该按钮的动作脚本为 -
4、以下为浙江省某年1-5月保费收入情况表，用Excel进行数据处理，部分界面如图a所示：
请回答下列问题:
(1)、G4:G12单元格的数据是由G3单元格公式通过自动填充得到的，计算的分别是各地市合计数据(F列)在全省合计数据总和中所占百分比，则G6单元格的公式为(2)、图a中，如果需要把A1单元格中标题“1-5月浙江省保费收入情况统计表。”在A1:G1单元格范围内居中对齐，可以采用下述哪些方法:(多选，填字母)A、选中A1:G1单元格，单击工具栏上如图b所示的工具“1” B、选中A1:G1单元格，单击工具栏上如图b所示的工具“2” C、选中A1:G1单元格，单击工具栏上如图b所示的工具“3” D、选中A1:G1单元格，单击右键，选择“设置单元格格式 ......“对齐”，进入对话框后设置相应对齐方式并选择“合并单元格”，再单击“确定”(3)、根据表格数据，制作了一张如图c所示统计图，则该图表数据区域为 -
5、某VB程序段如下:
s=“491053”
For i=1 To 3
n=Len(s)
k=1
For j=2 To n
If Mid(s， k， 1) >=Mid(s， j， 1) Then
K=j
Else
Exit For .Exit For表示退出循环
End If
Next j
s= Mid(s， 1， k-1) + Mid(s， k+ 1，n-k)
Next i
Label1.Caption =s
执行该程序段后，标签Label1中显示的值是（ ）
A、053 B、953 C、913 D、103 -
6、有如下VB程序段:
For i=1 To 3
k=“”
Fori-1 To 2*i-1
k=k+“*”
Next j
List1.AddItem k
Next i
该程序运行后，在列表框List1中显示的是（ ）
A、
B、
C、
D、
-
7、某数组有9个元素，值为3、6、7，10， 12，17，26，41、69，下列说法中不正确的是（ ）A、若用对分法查找数据“10”，问的数据依次为12、6、7、10。 B、在该数组中查找数据，既可以用顺序查找也可以用对分查找 C、若用对分查找算法查找数据，最多需要的查找次数是3次 D、若用顺序查找算法查找数据，最多需要的查找次数是9次
-
8、某VB程序段如下:
s=“Hello world”
s1=“”
n=Len(s)
For i=1 To n\2
If Mid(s， i， 1) > Mid(s， n-i+1， 1) Then
s1=s1 + Mid(s， i， 1)
Else
s1=Mid(s， n-i+1， 1)+s1
End If
Next i
Text1.Text=s1
执行该程序段后，在文本框Text1中显示的是（ ）
A、WlleH B、oorld C、droo D、orldo -
9、六位同学的英语听力成绩分别为24， 27， 16， 15， 24， 18，其排序过程如下表所示，其采用的排序算法及第二遍排序结果正确的是（ ）
A、选择排序， 27 24 16 15 24 18 B、冒泡排序， 27 24 18 16 15 24 C、冒泡排序， 27 24 16 15 24 18 D、选择排序， 27 24 18 16 15 24 -
10、某算法流程图如图所示，若输入k的值为11，执行这部分流程后，最终输出的s，i的值分别为（ ）
A、18，12 B、18，11 C、19，12 D、19，11 -
11、使用GoldWave软件打开某音频文件，选中一段音频后的部分界面如图所示。
下列说法正确的是（ ）
A、当前状态下，可以直接对前15秒音频做“淡入”效果 B、当前状态下，单击“删除”按钮后，音频的时长变为20秒 C、通过“插入静音”命令插入两秒，静音后直接保存文件大小不变 D、该音频文件是立体声，使用GoldWave软件可将其转换为单声道音频文件 -
12、使用UltraEdit软件观察字符“浙江Good!”的内码，部分界面如图所示。
下列说法正确的（ ）
A、小写英文字母“o”的二进制编码是“01101111” B、字符“J”的十六进制内码值是“50” C、字符“！”的内码占用1个字节 D、“浙江Good! ”中有2个字符采用GB2312编码 -
13、一幅未经压缩的1024x800像素的BMP图像，将该图像存储为JPEG格式(其他参数不变)，其存储容量为200KB，图像的压缩比约为8: 1，则该图像的色彩位数为（ ）A、4位 B、8位 C、16位 D、24位
-
14、使用Access 软件打开某数据表，部分界面如图所示
下列说法正确的是（ ）
A、当前数据表名为“高考各科成绩.accdb” B、“身份证号”字段的数据类型应设置为“文本” C、当前状态下，不能交换“姓名”和“性别”字段的顺序 D、当前状态下，可以将“学生信息”表的名称重命名为“考生信息” -
15、下列应用中，体现了人工智能技术的有（ ）
①电饭煲根据其内部温度实现自动加热的功能
②警察通过专用系统进行人脸识别，核实相关人员身份
③能够实现自动驾驶的汽车
④在Word软件中将文章中所有的“张三”全部替换为“李四”
⑤利用智能手机的微信平台发送一段语音信息
⑥利用某软件识别手机拍摄的花卉照片并返回花卉的种类信息
A、①③④ B、②③⑤ C、②③⑥ D、②⑤⑥ -
16、下列有关信息的说法，正确的是（ ）A、信息是指数据、信号和消息 B、同一种信息内容可以采用不同的表达方式 C、信息在使用过程中会像物质、能源那样产生损耗 D、新闻经过各大媒体报导后迅速为大众所知，体现了信息的价值性
-
17、一个由正整数构成的等边直角三角形，从三角形的顶部到底部有很多条不同的路径。对于每条路径，把路径上的数字加起来可以得到一个和，以下程序求最大的和并记录最大和路径上的各个数字。（注意：路径上的每一步只能从一个数走到下一层，它的正下方或者右下方的数）程序根据输入的行数生成构造一个三角形所需的随机数存入数组a，运行输出“三角形、最大和以及依次访问到的数据”，例如输入5，运行效果如右图所示。算法采用自上而下逐层顺推的方式，层上每个数字选择与上层中可能路径上的和的最大值累加，从而得到到达该数字的所有路径中的最大和，过程如下图。
(1)、如图所示三角形
，其所有路径中的最大和为 (2)、请将以下程序代码中划线处补充完整。Private Sub Command1_Click()
Dim a(1 To 100) As Integer, y(1 To 100) As String
Dim i, j, k, n, c, res As Integer
n = Val(Text1.Text) '数组 y 记录路径上的数字，n 为行数
For i = 1 To n * (n + 1) / 2
a(i) = Int(Rnd *10)
Next i
List1.AddItem Str(a(1))
y(1) = Str(a(1)): s = "": k = 1
For i = 2 To n
For j = 1 To i
x = k + j - 1
s = s + Str(a(x)) + " "
If j = 1 Then
y(x) = y(x - i + 1) + Str(a(x))
a(x) = a(x) + a(x - i + 1)
ElseIf j = i Then
y(x) = y(x - i) + Str(a(x))
a(x) = a(x) + a(x - i)
ElseIf Then
y(x) = y(x - i + 1) + Str(a(x))
a(x) = a(x) + a(x - i + 1)
Else
y(x) = y(x - i) + Str(a(x))
a(x) = a(x) + a(x - i)
End If
Next j
List1.AddItem s
s = ""
Next i
For c = k To k + n - 1
If a(c) > Max Then Max = a(c): res = c
Next c
List1.AddItem "最大和是:" + Str(Max)
List1.AddItem "访问到的数据依次是:" +
End Sub
-
18、数组a初始值均为0，生成n个1到100之间的随机整数依次存入数组a，要求a(1)至a(n)中的奇数位上的都是偶数，偶数位上的都是奇数且都升序排序，例如n=4时有数列2,5,6,9，n=5时有数列2,5,6,9,8，运行程序，向文本框text2 输入个数，单击“生成”按钮后按上面的规则生成数据并排序，然后在文本框text1中显示结果，在文本框text3中输入一个1到100之间的整数，单击“添加”则向已生成的数据中添加该数，要求保持偶数在奇数位上升序，奇数在偶数位上升序，如存在与该数相同的数据则插入到最后一个相同数据的后面，并将最终结果显示在text1中。运行程序生成5个数据“28,5,50,25,98，”,添加1次17得到“28,5,50,17,98,25,”，再添加1次17得到“28,5,50,17,98,17,0,25,”，运行效果如图所示。
(1)、为了“生成”按钮command1被单击后处于不可点状态，应该向程序添加代码（单选填字母：A .command1.Visible=False B .command1.Enabled=False C .command1.Caption="False"）(2)、请将划线部分补充完整。Dim a(1 To 1000) As Integer
Dim n As Integer, p As Integer, q As Integer
Private Sub Command1_Click() '生成随机数据
n = Val(Text2.Text)
If n Mod 2 = 0 Then p = n - 1: q = n Else p = n: q = n - 1
'p，q 分别为生成的数列的奇数位和偶数位最大下标
'以下代码为生成随机数并按要求排序输出，代码略
End Sub
Private Sub Command2_Click() '添加数据
Key = Val(Text3.Text)
If Key Mod 2 = 0 Then
i = 1: j = p: p = p + 2
Else
i = 2: j = q: q = q + 2
End If
Do While i <= j
m = (i + j) / 2
If Key Mod 2 = 0 And m Mod 2 = 0 Then m = m - 1
If Key Mod 2 = 1 And m Mod 2 = 1 Then m = m - 1
If Then i = m + 2 Else j = m – 2
Loop
If Key Mod 2 = 0 Then '插入一个偶数
For k =
a(k) = a(k - 2)
Next k
a(k) = Key
Else
'插入一个奇数，代码略
End If
If p > q Then n = p Else n = q
For i = 1 To n
s = s + Str(a(i)) + ","
Next i
Text1.Text = s
End Sub
(3)、运行程序时在 text1 中生成“6,53，” ，先后添加数据“2”和“8”则在 text1 中显示的内容为 -
19、小兰用flash软件制作动画作品《登高》，部分制作界面如图所示，请依次回答以下问题。
(1)、小兰在作品制作之前对所需要的素材进行分类，逐一罗列并登记成表，这是属于多媒体作品设计过程中的（单选填字母：A .需求分析 B .规划设计 C .脚本编写）(2)、如题图所示，“鱼游动”图层的第一帧内容是库内“鱼”元件生成的实例，小兰在播放当前场景时并没有出现鱼游动的动画效果，可是在测试场景时却出现了鱼游动的效果，可见“鱼”元件的类型属于（单选填字母：A .图形 B .影片剪辑 C .按钮 D .位图）(3)、如图所示，为了实现第30帧至第60帧菊花从舞台左侧外向右移出舞台的动画效果，以下在“菊花”图层的做法可行的是(多选填字母： A .在第60帧执行“插入关键帧”，将第60帧上的菊花对象移到右侧舞台外，再在第30帧上设置补间类型为动画 B .将第30帧移动到第60帧并将该帧上菊花对象移到右侧舞台外，再在第30帧上设置补间类型为动画 C .复制第30帧并粘贴到第60帧，将第60帧上的菊花对象移到右侧舞台外，再点选30-60帧中间任意帧，右键选择“创建补间动画” D .在第60帧上插入空白关键帧，将库内的“菊花”元件拖放至舞台右侧外，再在第30帧上设置补间类型为动画 E .点选第60帧，将库内的“菊花”元件拖放至舞台右侧外，再在第30帧上设置补间类型为动画)(4)、如图为了使“小鸟”图层最后一帧上的内容，从动画一开始就出现并仅持续1秒，则在该图层上应该做的操作是：(5)、如图“按钮”图层最后一帧放的是“重播”按钮，单击该按钮时动画跳转到“load”场景开头播放，同时停止“mian”场景中的背景音乐，则该按钮应该添加的动作命令为： -
20、某小店对一月至六月份的部分商品销售量作了汇总并采用excel进行处理，部分处理界面如图a和图b所示
(1)、酒水类各商品销售量占当月酒水类销售总量的百分比数据是由公式计算得来，先在B12单元格输入公式，再利用自动填充计算出B12：D17区域内所有的数据，则B12单元格应该输入的公式为(销售比例=该月该商品销售量/该月酒水类商品销售总量*100)(2)、若要对图a中销售量情况表中的数据按“苹果”所在列数据升序排序，则应该选择的排序区域为 ， 排序后C12单元格显示的数据为(3)、利用图a中数据表中的数据制作的图表如图b所示，则创建该图表的数据区域为