相关试卷
-
1、 【加试题】小李编写一个统计学生选考科目的VB程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科次占有效人数的百分率求出各科排名。程序运行时，单击“显示”按钮Commmad1，学生选课数据显示在列表框List1中，各科编号及对应科目名称显示列表框list2中， 单击“统计”按钮Commmad2，选课结果按各科百分率由高到低显示在列表框list3中，程序运行结果如图所示。
实现上述功能的VB程序如下，请回答下列问题：
(1)、学生选课的编码数据存储在数据表中，其字段名为。(2)、请在划线处填入合适的代码.Dim ach(1 To 500) As String '存储各学生选课编码
Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer '存储各科目被选次数
Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String
cn.Open "provider=Microsoft.Jet.oledb.4.0;Data Source=" + App.Path + "\students.mdb"
rs.Open "select * from choose", cn
Do While Not rs.EOF
n = n + 1 : ach(n) = rs.Fields("subject") : rs.MoveNext
Loop
rs.Close : cn.Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i : bname(i) = Mid(km, (i - 1) * 2 + 1, 2)
List2.AddItem Str(bno(i)) + "---" + bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) = True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) =
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7 '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) > bnum(i) Then
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If Then
per = Int(bnum(j) * 100 / num * 100) / 100
List3.AddItem Str(bno(j)) + "---" + bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
'代码略！若学生选科代码有效，函数返回True，否则返回False
End Function
-
2、 【加试题】字符串排序。编写VB程序，实现如下功能：程序运行时，单击命令按钮Command1 产生100个随机字符串（每个字符串长度不超过10），并显示在列表框List1中，单击命令按钮Command2对产生的100个随机字符串按权值进行降序排序，将排序结果显示在列表框List2中。每个字符串的权值定义为该字符串中ASCII码值最大的字母的ASCII码值，例如字符串“Hello”中ASCII码值最大的字母是“o”（ASCII码值为111），则字符串“Hello”的权值为111。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 100) As String '依次存放100 个随机字符串
Dim b(1 To 100) As Integer '依次存放每个字符串的权值
Private Sub Command1_Click() '产生100 个随机字符串
Dim i As Integer, k As Integer, t As Integer, x As Integer
Randomize
For i = 1 To 100
k = Int(Rnd * 10 + 1) : t = 0 'k 表示第i 个字符串的长度
Do While t < k '通过循环依次产生第i 个字符串a(i)的k 个字符
If Int(Rnd * 2 + 1) = 1 Then '产生一个小写字母的ASCII 码值
x = Asc("a") + Int(Rnd * 26)
Else
x = Asc("A") + Int(Rnd * 26) '产生一个大写字母的ASCII 码值
End If
'①If b(i) < x Then b(i) = x
t = t + 1
Loop
List1.AddItem a(i)
Next i
End Sub
Private Sub Command2_Click() '对100 个字符串按字符串权值降序排序
Dim i As Integer, j As Integer, y As Integer
Dim s As String
For i = 1 To 99
k = i
For j = i + 1 To 100
'②Next j
If k <> i Then
s = a(k): a(k) = a(i): a(i) = s
y = b(k): b(k) = b(i): b(i) = y
End If
Next i
For i = 1 To 100
List2.AddItem a(i)
Next i
End Sub
① ②
-
3、小红创作主题为“新年贺卡”的多媒体作品。她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：(1)、如图1所示，若仅将“文字”图层中文字“2017”变小，下列操作可行的有 (填字母：A .使用“画布大小”命令，将其变小/B .使用“缩放”工具，将其变小/C .使用“自由变换”工具，将其变小/D .使用“文字”工具，将其字号变小/E .使用“图像大小”命令，将其字号变小)。
图1
(2)、要求“声音”图层中的声音，与烟花补间(第6帧)同时开始播放，烟花补间（第45帧）同时停止，则可以进行的操作是：（已知声音的同步方式为“数据流”）。(3)、测试当前场景，动画播放到45帧后，画面停留在第85帧画面，根据图2时间轴判断，引起该现象最有可能的原因是。
图2(4)、如图3所示，由于“链接”按钮元件有问题，测试影片时“链接”按钮不能响应鼠标操作，以下修改可行的是（A .在“文字”图层的“点击”帧上执行清除帧操作；B .在“文字”图层的“点击”帧上执行清除关键帧操作；C .在“文字”图层的“点击”帧上执行清除空白关键帧操作；D .在“文字”图层的“点击”帧上执行删除帧操作；E .在“music”图层的“点击”帧上执行插入帧操作；F .在“背景”图层的“点击”帧上执行插入关键帧操作）
图3
(5)、测试影片时，单击“链接”按钮，实现在浏览器中显示网址“www.xinchun.com/1.html”，则按钮的动作脚本为。 -
4、 RLE压缩算法是Windows系统中使用的一种图像文件压缩方法，用两个数据表示，第一个记录指定像素重复的次数；第二个记录具体像素的值。 例如，有一表示颜色像素值的字符串RRRRGGBBB，用RLE压缩方法压缩后可用4R2G3B表示。小芳设计了一个VB程序实现RLE算法功能。在Text 1中输入原始数据， 点击“压缩”按钮Command 1后，在text2中显示经过压缩后的数据。程序运行界面如图所示：
(1)、这里采用的压缩技术属于（选填：有损压缩／无损压缩）(2)、若想修改文本框Text2中字体大小，则需对它的（选填BackColor/Font/Text/)属性值进行修改(3)、实现上述功能的 VB程序如下，请在划线处填入合适的代码Private Sub Command1_Click（）
Dim s1 As String, s2 As String
Dim c As Integer, p As Integer
s1=Text1.Text
s2＝“”
c = 1
p = 2
Do While p <= Len(s1)
If Mid(s1, p, 1) = Mid(s1, p- 1, 1) Then
c = c + 1
Else
s2 = s2 + Str(c) + Mid(s1, p-1, 1)
End If
p=p+1
Loop
Text2.Text＝
End Sub
-
5、小刘收集了近2年国内轿车市场主要销售统计数据，并用Excel软件进行数据处理，如图1所示。请回答下列问题：
图1
(1)、区域H5:H13中的数据是对H4单元格进行自动填充功能得到，则H12单元格中的公式是 。(2)、制作如图2所示的图表过程中，应该同时被选择的数据范围是
图2
(3)、观察图1，表中区域A3:I13，排序的次要关键字为。(4)、将区域A3:I13的数据进行筛选，设置“2016年1月”的筛选方式如图3所示，则筛选后得到车型是。
图3
-
6、【加试题】小张编写程序，实现把数据temp插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1)、a(2)、a(3)、……、a(n)中。他编写的VB程序段如下：要使程序实现上述功能，则方框①②中的语句分别是（ ）
If temp >= a(n) Then
a(n + 1) = temp
Else
j = n
Do While j >= 1 And temp < a(j)
①
j = j -1
Loop
②
End If
A、①a(j + 1) = a(j) ②a(j + 1) = temp B、①a(j) = a(j-1) ②a(j + 1) = temp C、①a(j + 1) = a(j) ②a(j) = temp D、①a(j) = a(j-1) ②a(j) = temp -
7、【加试题】有如下VB程序段：数组元素a(1)到a(6)的值分别为“Beijing”、“Guangdong”、“Jiangsu”、“Jiangxi”、“Shanghai”、“Zhejiang”，已按字典序排序。当key的值为“Zhejiang”时，单击命令按钮Command1，文本框Text1中显示的内容为（ ）
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer
Dim s As String
i = 1: j = 6
Key = Text1.Text：s = ""
Do While i <= j
m = Int((i + j) / 2 + 0.5)
s = s + " " + a(m)
If Key > a(m) Then
i = m + 1
Else
j = m - 1
End If
Loop
Text1.Text = s
End Sub
A、Jiangxi Zhejiang B、Jiangsu Shanghai Jiangxi Zhejiang C、Jiangxi Zhejiang Shanghai D、Jiangsu Shanghai Zhejiang -
8、【加试题】使用PS软件新建一个图像文件，相关参数设置如下图所示，制作完成后分别以a.bmp和b.jpg保存，已知b.jpg文件容量为236KB，则图像文件a.bmp与b.jpg的压缩比约为（ ）
A、2:1 B、4:1 C、6:1 D、16:1 -
9、用Flash软件制作动画作品，其中一个场景的部分时间轴界面如下图所示。下列说法正确的是（ ）
A、该作品每个场景的动画播放速度均为每秒12帧 B、当前状态下，“背景”图层不能进行任何操作 C、删除“声音”图层的后12帧，则原音频素材会被删掉1秒 D、修改“头像”图层第1帧中对象的属性，则该图层第15帧中对象的属性也随之改变 -
10、小明使用PhotoShop软件设计图片，操作界面如图所示，下列说法正确的是（ ）
A、“背景”图层中的中秋二字被嫦娥遮挡了，将“背景”图层放置在嫦娥图层上方 B、“团圆日”图层未使用过滤镜，不能编辑图层中文字的字体 C、此时执行填充命令，可以将“团圆日”图层中绿色的文字设置成红色 D、将方框处的比例变大，图像所需的存储空间不变 -
11、使用Goldwave软件编辑素材，部分界面如图所示。下列说法错误的是（ ）
A、该段音频的格式为mp3，其采样频率为44.1kHz B、当前选中的是该段音频左声道的第7秒至第12秒 C、点击“删除”按钮后，该音频的第7秒开始将出现5秒静音时间 D、点击“裁剪”按钮后，该音频的左声道的前6秒将出现静音效果 -
12、某算法的部分流程图如图所示。执行这部分流程后，变量S和a的值分别为（ ）
A、3和3 B、3和5 C、5和3 D、5和15 -
13、一个二位十六进制正整数n，末位是“9”，下列说法正确的是（ ）A、无法确定n是奇数还是偶数 B、n+1是一个三位十六进制数 C、转换为十进制数，最小值是25D D、转换为二进制数，最大值是11111111B
-
14、使用Access编辑某数据库，部分界面如图所示。下列说法正确的是（ ）
A、已打开的数据表名称是“非洲”，共有37条记录 B、该数据库文件名是“世界各国基本信息：数据库.accdb” C、“ID”字段不是是自动编号，可以通过“单击”以添加新建字段，类型为“自动编号” D、该数据库图中可见的数据表共有5个，已打开的数据表中可见字段有5个 -
15、王老师将刊登在期刊上的一篇文章扫描后，通过OCR软件识别出文字，并用Word软件编辑处理。下列说法不正确的是（ ）A、扫描仪扫描的结果可能的文件格式是wmv格式，若扫描的分辨率太低，会影响OCR软件的识别的正确率 B、识别的结果文件与扫描的结果文件相比，识别的结果文件存储容量更小 C、王老师可以使用查找替换功能将文章中的所有的“一”一次性改为“1” D、王老师可以使用Word的批注功能给文章精彩处添加点评
-
16、下列有关浏览器与网页的说法，正确的是（ ）A、在IE浏览器中清空历史记录，收藏夹中的内容同时被清空 B、在IE浏览器中将当前浏览的网页添加到收藏夹，实质上是保存该网页的URL C、浏览器与WEB服务器之间进行数据交互使用的协议是SMTP D、网页内容是用HTML描述的，可以使用记事本、IE浏览器等软件进行编辑
-
17、下列关于信息与信息表达的说法正确的是（ ）A、信息必须依附于特定载体，人脑不能作为信息载体 B、信息不能脱离它所反映的事物被存储、保存和传播 C、同一种信息内容不可以采用不同的表达方式 D、信息可重复使用而不会产生损耗
-
18、数塔问题。一组数字构成如图a所示的数塔，从数塔顶层出发，每个结点可以选择移动至左下方或右下方结点，一直走到塔底为1条路径。求从数塔顶层到塔底各条路径上数字和的最大值。
解决此问题可采用自底至顶分析的方法。如图a所示的数塔中，先从第3层开始分析：如果路径经过第3层的第1个数字12，那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值，记作f（3，1）=12+141同理，f(3，2)=7+15、f(3，3)=26+15：再分析第2层，计算f(2，1)、f(2，2)：最后计算出第1层f(1，1)，即为所求结果。
(1)、如图a所示数塔各条路径上的数字和的最大值为。
(2)、编写VB程序，运行界面如图b所示，程序代码如下，请在划线处填入合适的代码，将程序补充完整。
Const n= 5
Dim a(1 To n^2) As Integer ‘数组a存储数塔数据，存储结构如图c所示
Dim f(1 To n^2) As Integer ‘数组f存储从第i层第j个数到底层尾结点的最大数字之和，其存储结构与数组a一样
Private Sub Command2Click()
‘生成数塔，将数据存入a数组中，代码略
End Sub
Private Sub Command2Click()
Dim i As Integer, j As Integer, k As Integer
For j=1 To n
f((n-1)*n+j)=
Next j
For i=
For j=1 To i
k=(1-1)*n+j
f(k)=
Next j
Next i
Label1.Caption=“路径上的数字和最大值为："+Str(f(1)
End Sub
Function max(a As Integer, b As Integer) As Integer
If a>b Then max=a Else max=b
End Function
-
19、纪念品分组问题。某教师节晚会的纪念品分组规则如下：
按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定值w，单击“分组”按钮，在标签Label2上输出最少的分组数。程序运行界面如图所示。
(1)、要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在 Form Load事件过程中添加语句(单选，填字母：A .Fron1=“纪念品分组”/B .Form1.Name=“纪念品分组”/C .Form1. Caption=“纪念品分组”/D . Forml.Text=纪念品分组”)。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。Private Sub Command1 Click（）
Dim a(1 To 1000), n As Integer, w As Integer, cnt As Integer
Dim i As Integer, j As Integer, t As Integer
Dim s As String, ch As String
Dim p As Integer, q As Integer
s= Text1. Text： w= Val (Text2 Text)： n=0
For i= 1 To Len (s)
ch= Mid(s, i, 1)
If ch=“,”Then
n=n+1：a(n)=t：t=0
Else
t=
End If
Next i
For i= n To 2 Step-1
For j= 1 To
‘If a(i)< a(j+1)Then
t=a(j)：a(j)=a(j+1)：a(+1)=t
End If
Next j
Next i
cnt=0
p=1：q=n
Do While<p
cnt=cnt+1
If Then
p=p+1： q=q-1
Else
p=p+1
End If
Loop
If p= q Then cnt=cnt+1
Labe12 Caption=Str(cnt)
End Sub
(3)、若在文本框 TextI中输入“50．30，100，70，80，40，50，20，”，文本框Text2中输入“110”，单击“分组”按钮，标签Labe12中显示的内容是。 -
20、某同学使用Flash软件创作了以“重阳节”为主题的多媒体作品，其制作脚本如下表，作品的Main场景如图所示，请回答下列问题：
场景：Main
类别序号：2
进入方式：由“Load”场景单击“播放”钮进入
呈现方式
⒈“文字2”从舞台外由右向左移动到房子的上方，同时“文字2”由完全透明至完全显示
⒉“重播”按钮位于舞台右上方，单击该按钮，该场景从第1帧开始播放。
⒊其他动画略。
呈现顺序说明：
⒈一开始出现“远山”“近景”、“文字1”和“船”的动画，再依次出现“大雁”、“文字2”和“菊花“的动画。
⒉最后出现“重播”按钮，并停止播放。
(1)、在作品制作前进行了一系列准备工作，其中属于创作需求分析的是（多选、填字母：A ．将作品定位为演示型/B ．把作品大致规划为“片头”、“主交互界面”、“片尾”三大部分/C ．最后将作品以exe文件的形式发布/D ．分析并确定制作该作品需要用到的软硬件/E ．分析该作品主要面向的人群)(2)、“菊花”图层中的补间动画是利用库中“菊花”元件制作的，当动画播放完毕停留在最后一帧时，该元件实例的动画依然持续，则该实例的元件类型是。(3)、根据制作脚本描述，“文字2”图层第45帧的元件实例的 Alpha属性值应设置为。(4)、测试Main场景，发现某图层的动画效果与制作脚本描述不符，应做的调整操作为。(5)、根据制作脚本描述，应在“重播”按钮上设置的动作脚本为。