相关试卷
-
1、【加试题】小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数 ，保留一位小数），在文本框Text2中输出路径值。程序界面如图所示。
实现上述功能的VB程序如下，但划线部分代码有错，请改正。
Private Sub Command1_Click()
Dim x(1 To 100) As Single， y(1 To 100) As Single
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single
Dim i As Integer， j As Integer， k As Integer
Randomize
List1.Clear
k = Val(Text1.Text)
For i = 1 To k
x(i) = Int(Rnd * 90) / 10 + 1
y(i) = Int(Rnd * 90) / 10 + 1
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i))
Next i
For i = 1 To k - 1
For j = 1 To k - i
If x(j) > x(j + 1) Then
x(i)=x(i) + x(j)
x(j) = x(i) - x(j)
x(j) = x(i) + x(j) ‘①
tmp = y(j)
y(j) = y(j + 1)
y(j + 1) = tmp
End If
Next j
Next i
sum = 0： length = 0
For i = 1 To k - 1
x1 = (x(i) - x(1)) ^ 2 ‘②
'变量y1计算方法同x1，代码略
length = Sqr(x1 + y1)
sum = sum + length
Next i
Text2.Text = Str(Int(sum * 10) / 10)
End Sub
① ②
-
2、小明制作主题为“皮影熠彩”的多媒体作品，她先用PhotoShop软件制作一张背景图片，然后用Flash软件制作动画。请回答下列各题：(1)、如图1所示，当前状态下，下列说法不正确的有（多选，填字母：A .可以对“龙柱”图层选择区域并填充颜色/ B .用“仿制图章”工具对“灯笼”图层操作将会新增一个图层/ C .将“熠彩”的图层样式拷贝到“皮影”之后，“皮影”的图层样式将被替换/ D .可以设置“背景”图层的不透明度）。
图1
(2)、如图2所示，“人物”图层第5帧到32帧实现了人物实例旋转一周且淡入的动画效果，该动画类型为（单选，填字母：A .形状补间/B .动画补间/C .逐帧动画）
图2
(3)、调试作品，发现“进入”按钮会在最后消失，以下对“按钮”图层的操作可实现该按钮一直在舞台上的操作有（多选，填字母：A .把第1帧移动到第60帧/B .选择第60帧，执行“清除帧”操作;/C .选择第60帧，执行“清除关键帧”操作/D .对第1帧“复制帧”，选择第60帧“粘贴帧”/E.选择第1帧执行“剪切帧”操作，选择第60帧“粘贴帧”）(4)、为实现单击“进入”按钮，使动画从“main”场景的第1帧开始播放，应在该按钮上添加动作脚本。(5)、经上述操作之后，若要测试“进入”按钮的效果，则应（单选，填字母：A .测试场景/ B .测试影片/ C .播放） -
3、编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：
⑴将n乘以3后加1产生一个新的数
⑵对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1
譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示，回答下列问题：
(1)、若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的属性。(2)、完成上述功能的程序代码如下，请在划线处填入合适的代码Private Sub Command1_Click()
Dim n As Integer，t as Integer ，m as Integer ，s as String
t = n * 3 + 1
m = 1
s = ""
Do While
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现！"
End If
End Sub
(3)、按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数 。（选填：能/否） -
4、小李收集了本市主要食品平均价格变动的数据，并使用Excel软件进行数据处理，如图1所示。
图1
请回答下列问题：
(1)、若要对肉类食品按本期价格进行降序排序，则需要选择的数据区域为。(2)、区域F3：F16的数据是通过公式计算得到的：在F3单元格输入公式后，用自动填充功能完成F4：F16的计算，则F3单元格中的公式是。（涨跌幅（%）=(本期价格(元)-上期价格(元))/上期价格(元)×100）
(3)、在计算F列数据之后，若E列的数据被误清除，则F16单元格将显示为(单选，填字母： A .98.2 / B .0 / C .#DIV/0！/ D .#REF！)。(4)、为了更直观地比较鱼肉类价格波动情况，小李制作了如图2所示的图表。该图表的数据区域是： ， D2：E2，D6：E11。
图2
-
5、【加试题】已知一无序数组a中的元素为"90，15，40，72，65，32，81，6"，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为"8，2，6，3，5，4，7，1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
当文本框Text1中输入的值为32时，程序运行结束后变量c的值为（ ）
A、1 B、2 C、3 D、4 -
6、（加试题）有如下VB程序段：
A=1：b=1：n=12
f(1)=a：f(2)=b
For i=3 to n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
执行该段程序后，数组元素f(12)的值为（ ）
A、0 B、1 C、2 D、3 -
7、（加试题）一段未经压缩的PAL制式的AVI格式无声视频，时长为10秒，每帧画面为512×400像素，存储容量约为97.7MB，则该视频中图像的每个像素所占的位数是（ ）A、2位 B、8位 C、16位 D、24位
-
8、使用Flash软件制作补间动画，部分属性界面如图所示。以下说法正确的是（ ）
A、该补间动画可能是形状补间动画 B、当前状态下，该实例在舞台中可见 C、该界面是关键帧的属性面板 D、该实例由库中“舞动”元件生成 -
9、用Photoshop软件制作“2018世界杯”作品，界面如图所示：
以下说法正确的是（ ）
A、用“裁剪”工具对“背景”图层操作之后，图像大小一定不会发生改变 B、隐藏“徽标”图层后，按原参数保存成bmp图像，存储容量不变 C、将左下角的100%改成66.67%之后，按原参数保存，存储容量变小 D、该作品以jpg格式存储后容量为1.25MB -
10、使用GoldWave软件编辑某段音乐，界面如图所示。
下列说法正确的是（ ）
A、当前状态下执行“静音”操作，和插入25秒静音效果相同 B、该音频是Wav格式，是无损压缩的音频文件 C、复制一段10秒声音，在当前状态下第25秒开始执行“混音”后，音乐文件总时长不变 D、当前状态下执行“删除”操作，左声道从25秒到50秒变为静音 -
11、使用UltraEdit软件观察字符内码，结果如图所示。
以下说法正确的是（ ）
A、图中内码表示的ASCII码字符共有5个 B、字符“F”内码转十进制过程应为4×162+6×161 C、字母“j”内码用十六进制表示是70 D、字母“B”内码用二进制表示是1000010 -
12、使用Access软件创建一张数据表，其设计视图界面如图所示，下列说法正确的是（ ）
A、当前状态下，可以对数据表“图书信息”重命名 B、该视图中，右表删除一行，则其数据表的记录总数会相应减少一条 C、在“图书信息”数据表中，可以包含图书名称相同的两条记录 D、存储“借出”字段值需要1个字节 -
13、使用word编辑某文档，部分界面如图所示，以下说法正确的是（ ）
A、若将文档中图片的环绕方式改为“紧密型”后效果不变 B、删除批注对话框中“摘自《遗传密码》”后该批注框消失 C、文中的“美梦承真”可通过自动更正功能改为“美梦成真” D、接受所有修订后，第四行将变成“毫发无损。有魔术表演的夜晚总是那么欢乐。” -
14、下列有关浏览器与网页、网络协议的说法，正确的是（ ）A、选择“网页，仅HTML”方式保存网页，网页中的图片同时被保存 B、保存网页其实就是保存网页的URL C、网页内容是通过HTTP语言描述的 D、SMTP协议是简单邮件传输协议的英文简称
-
15、下列有关信息的说法，正确的是（ ）A、信息经过加工和处理后的使用价值始终保持不变 B、信息可以脱离载体而存在 C、信息在使用过程中会产生损耗 D、手机屏幕锁功能，可以提升信息的安全性
-
16、编写一个VB程序，判断某字符串是否为回文字符串。所谓回文字符串，指一个字符串从左往右读和从右往左读是完全一样的。程序运行时，单击“判断”按钮后，在标签Label2中显示判断结果。程序运行效果如图所示。
实现上述功能的程序如下，请回答下列问题：
Private Sub Com1_Click( )
Dim s As String
Dim flag As Boolean
Dim n As Integer， i As Integer
s = Text1.Text
_________ ‘①
flag = True
i = 1
Do While i <= n \ 2
If Mid(s， i， 1) < >________________ Then ‘②
flag = False
Exit Do '退出Do循环
End If
i = i + 1
Loop
If flag Then
Label2.Caption = s + "是回文字符串"
Else
Label2.Caption = s + "不是回文字符串"
End If
End Sub
(1)、当前代码的事件处理过程名为。(2)、为使程序完成相应功能下划线①处应填入代码。
下划线②处应填入代码。
-
17、用VB设计一个模拟选手得分程序，在文本框Text1中输入裁判人数（人数大于2），然后点击Command1按钮，在List1中产生70到100的随机数为裁判的打分，去除一个最高分，去除一个最低分，取其他裁判打分的平均分作为最终得分显示在文本框Text2中，运行效果如图所示。
(1)、若要在程序运行时，修改窗体显示的标题为“得分计算”，则下面语句可行的是。（单选，填字母：A .Command1.Caption=“得分计算”/B .Form1.Name=“得分计算”/C .Form1.Text=“得分计算”/D .Form1.Caption=“得分计算”）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim n As Integer '裁判人数
Dim max As Integer， min As Integer， sum As Integer
Dim AveScore As Single '存储最终得分
n = Val(Text1.Text): sum = 0
If n <= 2 Then MsgBox ("输入数据要大于2，请重新输入！")
If n > 2 Then
List1.Clear
Randomize
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
max = score
min = score
For i = 2 To n
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
If score > max Then max = score
If score < min Then min = score
sum = sum + score
Next i
AveScore =
Text2.Text = Str(AveScore)
End If
End Sub
(3)、若要将最终得分保留一位小数（四舍五入），下列代码可行的是______________________。A、AveScore=int(AveScore+0.5) B、AveScore=int(AveScore*10+0.5)/10 C、AveScore=int(AveScore*100+0.5)/100 -
18、小李在Access中打开一张数据表，如图所示，回答下列问题。
(1)、小李将当前数据表导出到Excel，则Excel表格中共有行数据。(2)、删除当前记录后，（填字母：A .能/B .不能）通过“撤销”按钮恢复该记录。(3)、若将“学号”字段的数据类型由“数字”改为“文本”，（单选，填字母：A .能/B .不能）在当前视图中进行更改。 -
19、仔细观察下面的图表，完成下列填空。
图a
(1)、“公共理论”科目的离差为考生的“公共理论”成绩与所有科目“公共理论平均分”的差值。E4单元格公式如图a所示，自动填充至E14，发现有误，则正确的公式应该为。(2)、为了在L4单元格中显示准考证为“00307001”考生的总成绩在“高中语文”中的名次，则L4单元格中的公式是 ， 其他单元格用自动填充功能完成。（RANK函数的含义：求某一个数值在某一区域内的排名。示例：语法格式=RANK(number，ref，[order])，number为参与排名的数值，ref为排名的数值区域，order为0是降序，1是升序，[order]省略，默认为降序。示例：=RANK(A1，A1：A3，1)，显示A1单元格中数据在单元格A1到A3数据区域中的升序名次）。
(3)、由下图可知创建图表时选择的数据区域为。
(4)、对“高中信息”按“总成绩”进行排序，应选择区域为。(5)、对“高中信息”先按“总成绩”降序排序，若“总成绩”相同，按“专业知识”的成绩降序排序，则排序完成后“高中信息”中第二位的“准考证”是。(6)、D15的值是通过AVERAGE函数计算得到，若不慎将D8单元格数据误删，导致此单元格无数据，则D15单元格中数值将。（单选，填字母：A .变大；B .变小；C .不变） -
20、小陈准备制作一份暑期北京旅游攻略，现找到一份命名为“攻略.jpg”的图片资料。(1)、小陈在使用OCR软件识别该图像时，涉及下面四步操作，正确的步骤是(填数字序号)
①选中识别区域后，单击“识别”按钮进行文字识别；
②在OCR软件中打开“攻略.jpg”图像文件；
③将识别结果保存成txt文件；
④利用相似字功能对识别结果进行校对。
(2)、他将识别结果复制到Word进行编辑时，发现文中几处文字下方有绿色波浪线，如下图所示，表示这些文字可能存在(单选，填字母：A .语法错误/ B .拼写错误)；若想把文中多处“北大”文字改为红色加粗格式，可利用功能(单选，填字母：A .修订/B .自动更正/C .查找替换)实现快速更改。
(3)、当前采用的文字环绕方式为(单选，填字母：A .嵌入型/B .上下型/C .紧密型/D .四周型)。