相关试卷
-
1、下列关于信息的说法，错误的是（ ）A、计算机处理数字化后的信息通常需要软件支持 B、信息可以传递和共享，在传递过程中可以有多种方式 C、信息本身是看不见摸不着的，因此不可以用某种方式表现 D、信息的表达技术有电视、广播、微信、微博、QQ等
-
2、对于两个大小为3*3的整数矩阵，设计一个通用的矩阵相乘函数，求得它们的矩阵乘积（新的矩阵），并查找出新矩阵中最大元素的位置和大小。其中一个矩阵已给定，另一个矩阵B由用户主动输入，相乘顺序为A*B。给定矩阵A为随机生成[-10，10]之间的非0随机数，矩阵B自己输入，由1和0构成，如果输入时有其它内容的就略过。
解题思路：A矩阵放a数组，B矩阵放b数组，相乘后的结果放在d数组
矩阵相乘的方式为：
⒈用A的第1行各个数与B的第1列各个数对应相乘相加，得到的结果就是第1行第1列的数；
⒉用A的第1行各个数与B的第2列各个数对应相乘相加，得到的结果是第1行第2列的数；
……
⒋依次进行，（直到）用A的最末行各个数与B的第末列各个数对应相乘相加，结果是最末行第末列的数。
(1)、如图a所示，新矩阵的d(5)的值是；
图 a
(2)、程序如图b所示，请在划线处填写合适的代码。
图 b
Dim a(1 To 9) As Integer， b(1 To 9) As Integer '矩阵 A，B 的数组
Private Sub Command1_Click()
Dim s As String, i As Integer, ch As String
Dim x As Integer, y As Integer, k As Integer
Dim d(1 To 9) As Integer '新矩阵的数组
s = Text1.Text 'B 矩阵以字符串的形式输入
k = 1
'输入 B 矩阵的值
For i = 1 To Len(s)
ch = Mid(s， i， 1)
If ch = "0" Or ch = "1" Then
b(k) = Val(ch)
k = k + 1
If k = 10 Then Exit For
End If
Next i
'计算出新的矩阵的值
For i = 1 To 9
For j = 1 To 3
Next j
Next i
'输出新矩阵的值
For i = 1 To 3
ch = ""
For j = 1 To 3
ch = ch + Str(d((i - 1) * 3 + j)) + " "
Next j
List2.AddItem ch
Next i
Max = 1
For i = 2 To 9
If d(Max) < d(i) Then Max = i
Next i
x = ((Max - 1) \ 3 + 1)
y =
Label2.Caption = "最大的数是" + Str(d(Max)) + "位置(" + Str(x) + "，" + Str(y) +
")"
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer, s As String
s = ""
Randomize
'生成矩阵 A 数组
For i = 1 To 9
a(i) = Int(Rnd * 20 + 1) * (-1) ^ (Int(Rnd * 2))
If Then
List1.AddItem s
s = ""
End If
s = s + " " + Str(a(i))
Next i
List1.AddItem s
End Sub
-
3、一位茶叶商人从南方收购了 n 吨新茶，由于产地偏僻不通铁路，茶商准备先沿水路运到武汉，再发往全国各地销售。码头上只有 10 条规格不同的小货船，每条船舶都不足以装载全部茶叶。各船舶的最大载重量分别为 W(i)吨，需 f(i)费用(该艘船每吨的费用）（1≤i≤10）。当然，由于茶商是老主顾，而且货船舶还可以搭配载其他货物，因此船主比较客气，声称可以装一部分货物，按实际装多少货物计费（例如，只装了 1/3 吨，则费用为 1/3*f(i)）请问茶商应该选择哪些货船，使得费用最低。若有费用相同，输出用船数最少的。
解题思路：随机生成 10 条船的载重量[1，10]和费用[1，30]，然后将它们按费用从小到大排序，若费用相同，则载重大的在前，运输时，先把费用低的船装满，再按费用向下将船装好，运输。
(1)、根据图a所示，可以发现有 （填数字）个对象没有 caption属性。
图 a
(2)、根据上述描述设计如下 VB 程序，请在划线处填入合适的代码。Dim f(1 To 10) As Integer, w(1 To 10) As Integer, b(1 To 10) As Integer
Private Sub Command2_Click()
Dim n As Integer, count As Integer, yf As Integer
Dim s As String, i as integer
n = Val(Text1.Text)
count = 0
yf = 0
cz = n
i = 1
Do While n > 0
If n >= w(b(i)) Then
Else
yf = yf + n * f(b(i))
End If
count=count+1
s = s + Str(b(i)) + "号船"
i=i+1
Loop
Label2.Caption = "总计费用为:" + Str(yf) + "元 " + Str(count) + " 条船，分
别为 " + s
End Sub
Private Sub form_load()
Dim t As Integer, i as integer, j as integer
List1.Clear
List1.AddItem "编号 载重 费用'"
For i = 1 To 10
w(i) = Int(Rnd * 10 + 1)
f(i) = Int(Rnd * 30 + 1)
b(i) = i
List1.AddItem Str(b(i)) + " " + Str(w(i)) + " " + Str(f(i))
Next i
For i = 1 To 9
For j = 10 To i + 1 Step -1
If Then
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
End Sub
-
4、小张制作了一个“光盘行动，从我做起”为主题的多媒体作品，如图a所示。
图 a
(1)、以下几个步骤属于创作需求分析的是（多选，填字母：A 、确定作品的主题为“光盘行动，从我做起”/B 、做这个作品大概需要花多少时间和资金/C 、作品准备从网络上发布/D 、确定好作品的主要界面/E 、确定原始素材的获取方式，并分类登记）(2)、盘图层动画在播放过程中突然消失了，若要使该图层持续播放到60帧，该如何解决?(3)、该场景播放到最后一帧时出现“重播”按钮，单击该按钮，停止播放所有声音，并跳转到本场景第1帧开始播放，“重播”按钮上应添加的动作为 ；(4)、若想让声音在整个场景中都能听到，那么声音的同步效果应设置为 ；(5)、如图b所示，以下说法正确的是 （填字母，多选）A、该按钮的弹起帧和按下帧在编辑状态时内容可能是不一样的 B、鼠标移到按钮上时，声音可能是能听到的 C、图层2弹起帧复制到点击帧后，该按钮是有效的 D、图层2点击帧，清除帧后，该按钮是有效的 E、如图所示的按钮应用到舞台，鼠标经过该按钮时的形状和弹起帧是一样的 -
5、小王运用excel软件处理浙江省2018、2019年浙江城乡居民人均收支情况，如图a所示，请回答下列问题：
图 a
(1)、要计算各类居民的“同比±%”，在D4 单元格中输入公式，并复制到D5:D17，G4:G17，J4:J17区域，D4 单元格中的公式为。（提示：同比=（2019 年-2018 年）/2018 年*100）。(2)、经过题（1）的操作，不小心把F列删除，G4单元格会出现 （填字母：A .8.3； B .#DIV/0!；C .#REF!；D .###）(3)、选中数据表中的数据创建了如图b所示图表，则创建图表的数据区域为；
图 b
(4)、从数据表中我们可以发现浙江省2018、2019这两年生活消费支出增长速度最快的项目是 。 -
6、某对分查找算法如下：
i=1:j=6:c=1
key=int(rnd*100+1)
do while i<=j
m=(i+j)\2
c=c+1
if key<d(m) then j=m-1 else i=m+1
loop
数组 d(1)~d(6)的值分别为“17，21，29，32，39，75”，则程序运行结束后，下列说法错误的是（ ）
A、i=j+1 是成立的 B、若 key=21，则 i=1 C、当 key=32 时， m=j 是成立的 D、若 key 如果是 38，那么 m=4 -
7、某算法程序段如下：
Dim s1 As String, s2 As String, ch As String
Const code = "@*()^&#"
s1 = Text1.Text
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "a" And ch <= "z" Then
t = (Asc(ch) - 65 + i) Mod 7
s2 = Mid(code, t + 1, 1) + s2
Else
s2 = s2 + ch
End If
Next i
Text2.Text = s2
若 text1 中输入字符“AbCd”，则 text2 中输出的是 （ ）
A、 AC^@ B、 ^@AC C、 ^(@& D、A^C@ -
8、某算法程序段如下：
Const n=5
Dim a(1 to n) as integer, i as integer, j as integer, k as integer, t as integer
For i=1 to n
a(i)=int(rnd*20+1)
Next i
For i=1 to n-1
k=i
For j=i+1 to n
If a(j) mod 2=1 then
If a(k) mod 2=0 or a(j)>a(k) then k=j
ElseIf a(k) mod 2=0 and a(j)>a(k) then
k=j
End if
Next j
If k<>i then t=a(k): a(k)=a(i): a(i)=t
Next i
该程序段运行结束后，a(1)~a(5)可能是（ ）
A、20 18 17 15 13 B、2 3 4 5 6 C、13 3 18 8 6 D、16 14 8 11 5 -
9、下列说法正确的是（ ）A、未优化过的选择排序和冒泡排序，比较次数肯定是相同的，所以交换次数也肯定相同 B、对包含7个数据的有序数组a进行对分查找，平均查找次数为17/7次 C、VB 调用数据库时，rs.fields(1)指的是调用某数据表中某条记录第 1 个字段的值 D、使用选择排序时，若某一遍排序时，并没有数据进行交换，说明数据已经有序
-
10、某算法部分流程图如图所示，执行这部分流程图后，s 的值为（ ）
A、1 B、4 C、2 D、3 -
11、下列表达式中，结果最大的是（ ）A、sqr(abs(int(-8.1))) B、sqr(len(“疫情防控人人有责”)) C、2041 mod 100 \10 D、int(rnd*4)\2
-
12、一段未经压缩的 PAL 制式的无声视频，时长 2 分钟，每一帧的图像像素为 1024*768，颜色占 3字节，存储该段视频需要的存储空间大约为（ ）A、28GB B、6.5GB C、7.9GB D、0.13GB
-
13、关于声音处理软件Goldwave，如图所示，下面说法正确的是（ ）
A、当前状态进行了“复制”、“粘贴”操作，保存后文件容量变大 B、当前状态，单击“删除”按钮，左声道未选中部分变静音 C、选中左声道，单击“删除”按钮，按原参数保存，存储容量变成原来的一半 D、当前状态，单击“剪裁”按钮，保存后，存储容量变小 -
14、下列关于数据库及数据库管理系统，说法错误的是（ ）A、“是/否”类型的字段，只能打勾或打叉，占 1bit B、数据库和数据库应用系统是相互独立的，数据库应用系统是不能直接访问数据库的 C、货币类型本质是数字型的，所以不能输入如“7 元”这种数据 D、“自动编号”类型的字段，它的类型在任何时候都可以修改为其它类型
-
15、以下项目中没有使用人工智能技术的是（ ）
①某网页在浏览时，提供了网页翻译功能，可以让不懂英语的人也能看懂英文文章
②智能手机使用笔划输入汉字
③WORD 软件中自动更正功能
④通过语音，让手机拨打相应的号码
⑤去超市买东西，付款时采用扫码支付
⑥某音乐网站自动统计歌曲的下载次数
A、①②③④⑤⑥ B、②③④⑤⑥ C、①②③④⑤ D、②③⑤⑥ -
16、下列关于网络和网页的说法，正确的是（ ）A、某邮件软件在发送邮件的时候，弹出“无法发送”的错误提示，可能是 pop3 协议设置错误 B、因特网上存储着海量信息，是人们进行信息检索的重要场所 C、网页在使用“网页，仅html”保存时，由于图片没有被保存下来，因此图片的超链接也没有被保存 D、网页内容是用 html（超文本标记语言）来描述的，可以用记事本浏览网页
-
17、下列关于信息与信息技术的说法，正确的是（ ）A、“口说无凭”说明随口说的信息，因为没有载体，所以不能做为凭证 B、文字、声音、网页、肢体动作等都属于信息的表达方式 C、云技术是指在广域网或局域网内将硬件、软件、网络等系列资源统一起来，实现数据的计算、储存、处理和共享的一种托管技术 D、计算机是信息处理的重要工具，因此所有信息的加工处理，本质上都是要通过计算完成的
-
18、某数字字符串的加密算法如下：
①从左往右扫描，若其中存在连续上升数字字符，则进行压缩。其中，数字字符串“91”也算连续上升。连续上升的数字字符不超过9个，若超过9个则该数字字符串分成两段。例如：“12324789123456789”可以压缩成“1-3247-67-9”
②对压缩后的数字字符进行加密，其中，数字字符“1”-“9”用加密字符“A”-“I”表示，未经压缩的数字字符原样输出。例如：“1-3247-67-9”加密后是“A-C24G-FG-I”。
程序界面如图所示。
(1)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s As String, k As Integer, i As Integer, t As Integer
Dim sjg As String, mw As String, start1 As Integer, end1 As Integer Dim a(1 To 100) As Integer
mw = "ABCDEFGHI"
t = 1
a(1) =
For i = 2 To Len(s)
a(i) = Val(Mid(s, i, 1))
If Then
t = t + 1
Else
If t > 1 Then
start1 =
end1 = a(i - 1)
sjg = sjg + Mid(mw, start1, 1) + "-" + Mid(mw, end1, 1)
Else
sjg = sjg + CStr(a(i - 1)) ‘CStr 函数将表达式转换为字符串，并去除前导空格
End If
t = 1
End If
Next i
Text2.Text = sjg
End Sub
(2)、若加框处代码改为“s = Text1.Text”，在文本框Text1中输入“45678989123456789”单击“加密”按钮后，文本框Text2中显示的内容是。 -
19、某垃圾分类VB程序功能如下：在文本框Text1中输入一串字符（数据用逗号分隔，以逗号结尾），单击“统计”按钮Cmd1后，程序实现计算干、湿垃圾的重量及总重量（单位：斤）。输入字符串中的前后两个数字字符为一组，第一个数字字符代表垃圾种类，1表示干垃圾，2表示湿垃圾，第二个数字字符代表该垃圾的重量。例如：输入字符串“2，1，1，12，”，程序统计结果为干垃圾12斤，湿垃圾1斤，总重量13斤。程序运行界面如图所示。
(1)、Cmd1对象属于类（单选，填字母：A .Form / B .Label / C .TextBox / D .CommandButton）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Cmd1_Click()
Dim s As String, s1 As String, t As Integer, i As Integer
Dim k As Integer, bh As Integer, w As Integer
Dim w1 As Integer, w2 As Integer
s = Text1.Text: k = 1: t = 0: bh = 0 'bh存储当前垃圾的垃圾编号
w1 = 0: w2 = 0
For i = 1 To Len(s) s1 = Mid(s, i, 1)
If Then
t = t * 10 + Val(s1)
Else
If Then
bh = t
Else
If bh = 1 Then
w1 = w1 + t
Else
w2 = w2 + t
End If
End If
k = k + 1
End If
Next i
List1.AddItem "干垃圾共" + Str(w1) + "斤"
List1.AddItem "湿垃圾共" + Str(w2) + "斤"
Label3.Caption = "总重量共有" + Str(w) + "斤"
End Sub
(3)、程序中加框处代码有错，请改正。 -
20、用Flash软件制作主题为“国潮”的多媒体作品。请回答下列问题：
图 a
(1)、创作多媒体作品需要进行创作需求分析和应用需求分析，下列属于创作需求分析的是 （多选，填字母）。A、确定作品的主题思想为“国潮” B、确定作品面向中学生演示播放 C、将作品划分为“片头”、“国风音乐”、“国风服饰”、“片尾”四个主要界面 D、确定作品的结构类型为演示型 E、根据主题思想和内容，制订脚本大纲(2)、“鸟 1”图层中补间动画的类型是（单选，填字母：A .形状补间动画/B .动画补间动画/C .逐帧动画）。(3)、测试场景时，为了使“鸟 2”图层的动画从第2秒开始播放，其他动画效果保持不变，应进行的操作是。(4)、测试影片时，发现“退出”按钮无法响应鼠标事件。该按钮元件的编辑界面如图 b 所示，为解决该问题，可采取的操作有： （多选，填字母）。
图b
A、对“文字”图层的指针经过帧执行“清除关键帧”操作 B、对“文字”图层的点击帧执行“删除帧”操作 C、在“文字”图层的点击帧中绘制一个矩形 D、对“背景”图层的点击帧执行“删除帧”操作 E、对“背景”图层的按下帧执行“清除关键帧”操作(5)、测试影片时，单击“退出”按钮，动画跳转到“片尾”场景的第1帧播放，同时打开网页“www.guofeng.com”，则“退出”按钮上的动作脚本为 on(release){}。