相关试卷
-
1、有如下VB程序段：
Dim x As String，y As String
Dim ans As Integer
x="5"：y="20"：ans=0
If x>y Then ans=Val(x) Else ans=Val(y)
ans=ans +Val(x+y)
Text1.Text=Str(ans)
执行该程序段后，文本框Text1中显示的内容是
A、25 B、30 C、540 D、525 -
2、把星期一记为1，星期二记为2，……，星期日记为7，已知某月1日（即第1天）是星期一，下列语句中，用于正确计算该月第n日星期数w的是（ ）A、w=(n-1)\ 7+1 B、w=(n-1) mod 7 +1 C、w=n mod 7 D、w=(n+1) mod 7
-
3、小周用GoldWave软件录制了一首歌曲并进行编辑，部分界面如图所示：
则下列说法正确的是（ ）
A、录制的声音只有一个声道 B、将声音另存为MP3格式，文件容量不变 C、将左声道静音，保存后的声音存储容量约为原容量的一半 D、当前状态下，单击“删除”按钮，保存后的声音文件容量不变 -
4、小李使用Flash软件制作蝴蝶飞舞的动画，其部分界面如图所示：
分析图中的信息，下列描述不正确的是（ ）
A、“图层 1”中的动画是一段逐帧动画 B、“图层 2”最后一帧没有延续该图层第1帧的画面内容 C、从第1帧播放到最后一帧所需的时间约为2秒 D、当前正在编辑“main”场景中的“图层1”图层 -
5、使用Photoshop软件处理图像，编辑界面如图所示：
下列说法不正确的是（ ）
A、不能使用文字工具将“鸟语花香”图层中的文字修改为“湖光山色” B、“印象西湖”图层一定没有添加滤镜效果 C、可以交换“背景”和“莲花”图层顺序 D、将作品按当前状态存储为BMP格式文件，左边的莲花图像将有“投影、斜面和浮雕”效果 -
6、使用UltraEdit软件观察“翻的-Ship”的内码，如图所示。则字符串“Hello 2021”中的小写字母“o”的ASCII码是（ ）
A、1101001 B、1110000 C、1110001 D、1101111 -
7、某算法流程图如图所示：
若要用VB语言实现该部分算法，下列代码符合流程图的是（ ）
A、
B、
C、
D、
-
8、使用Access软件创建的“图书”数据表，其设计视图的部分界面如图所示。下列说法正确的是（ ）
A、该数据表中，不会有两条记录的“编号”字段值相同 B、该数据表创建完成后，不能添加字段 C、该数据表添加记录后，就不能对数据表的字段名进行修改 D、在该数据表中，“35.20元”可以是“价格”字段的有效输入值 -
9、以下对HTTP协议的概念与功能，描述正确的是（ ）
①浏览器发出的请求发送至WEB服务器
②将服务器回应的网页传回到发出请求的浏览器
③HTTP即超文本传输协议
④描述网页中的文本、图像、超链接等元素及构件
⑤将不同地点的WWW网站链接起来
A、①③⑤ B、①②③ C、②③④ D、②③⑤ -
10、下列关于信息和信息技术的说法，正确的是（ ）A、书本不是信息，但文字属于信息 B、信息具有载体依附性，所以不能脱离它所反映的事物被存储、保存和传播 C、信息和物质、能源最大的不同在于信息具有共享性 D、由于电子计算机是近代才出现的，因此古代没有信息技术
-
11、亲戚寻找。小李总是因为认不清亲戚而苦恼，于是他设计了如下程序来模拟亲戚寻找的过程。已知：如果1和2是亲戚，1和3是亲戚，则2和3也是亲戚。代码思维如下：
1)将每个人看成是一个钩码，能挂在另一个挂钩底下，自己底下也能挂其他挂钩。
2)如果两个钩码在同一条钩码串上，则为亲戚（如2、3都能找到1）。
3)如果两个是亲戚但不在一串钩码上，则可将其中一串的最上面的钩码挂在另一串的下方。
例如从图a加框处的前三行数据可得到图b所示的钩码串1和钩码串2，从第四行数据可知9、5也为亲戚，则可将两串钩码合并，合并后3为2的顶端，5为3的顶端，其余数据以此类推。
根据算法思想，编写VB程序功能如下：程序初始化时给出6条亲戚关系显示在List1中，单击“理关系”按钮，在List2中显示每个人所在钩码的顶端编号。在Text1和Text2中分别输入两人的编号，单击“询问”按钮，输出两个人是否为亲戚关系。程序运行界面如图a所示。
(1)、根据图a数据，若输入两人的编号为4和5，则两人的关系是否为亲戚(填：是/否)。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Const n = 9 ‘总人数
Const m = 6 ‘已知的亲戚关系数
Dim a(1 To n) As String , b(1 To n) As String
Dim f(1 To n) As String ‘记录不同的亲戚钩码串成员，每条亲戚钩码串内互为亲戚
Dim k As Integer ‘亲戚钩码串的数目
Private Sub Form_Load()
‘初始化List1和List2，生成m条亲戚关系，每条亲戚关系的编号对应存储在数组a(i)和b(i) '中，在List1中输出a(i)和b(i)，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, x As Integer, y As Integer
f(1) = a(1) + b(1) ‘利用a(1)、b(1)生成第一条钩码串存储在f(1)中
k = 1 ‘k为钩码串编号
For i = 2 To m
x = root(a(i), 0): y = root(b(i), 0) ‘x为调用函数获取a(i)所在的钩码串编号
If x = 0 And y = 0 Then k = k + 1: ‘根据x与y分类讨论
If x <> 0 And y = 0 Then f(x) = f(x) + b(i)
If x = 0 And y <> 0 Then f(y) = f(y) + a(i)
If x <> y And x <> 0 And y <> 0 Then ‘x、y在不同钩码串则将两条钩码串合并
f(x) = f(x) + f(y): f(y) = f(k): k = k - 1
End If
Next i
For i = 1 To n ‘输出每个人所在钩码的顶端编号
x = root(CStr(i), 0): y = root(CStr(i), 1) ‘Cstr()函数用于去除字符前导空格
If x <> 0 Then
If y = Len(f(x)) Then List2.AddItem Str(i) + " " + CStr(i)
If y <> Len(f(x)) Then List2.AddItem Str(i) + " " +
End If
Next i
End Sub
'按钮Command2的功能为判断输入的两个人是否为亲戚关系，代码略
Function root(a As String, b As Integer) As Integer ‘参数a表示待查找目标，参数b
‘表示返回值类型，0表示返回目标所在钩码串编号，1表示返回目标在该钩码串中的位置
Dim m As Integer, n As Integer, i As Integer, j As Integer
m = 0: n = 0: i = k: j = 0
Do While i > 0
If a = Mid(f(i), Len(f(i)) - j, 1) Then m = i: n = Len(f(i)) - j: Exit Do
j = j + 1
If j = Len(f(i)) Then i = i - 1: j = 0
Loop
If Then root = m Else root = n
End Function
-
12、某分段排序算法描述如下：
1)将原始数据按升序分成若干有序段。
2)将第1段和第2段进行合并，使得合并后的数据依旧有序，得到新的有序段。
3)将新的有序段再次和下一个有序段进行合并。
4)重复上述操作，直到全部数据变成一个有序段为止，排序结束。
如数据：1、3、9、4、5、7、2、6，第1段为1、3、9，第2段为4、5、7，将第1段和第2段合并，得到新的第1段为1、3、4、5、7、9。继续和下一段2、6进行合并，合并后段数变为1段，则排序结束。
编写VB程序，实现分段排序功能：在文本框Text1中输入数据总量，单击“数据生成”按钮Command1后，在列表框List1中显示原始数据，然后单击“分段排序”按钮Command2，在列表框List2中显示排序后的结果。程序运行界面如图所示。
请回答下列问题：
(1)、若要清空列表框List1，下列代码正确的是(单选，填字母：A .List1.Clear / B .List1.List="" / C .List1.Text="" / D .List1.Caption="空白" )。
(2)、实现分段排序功能的VB程序如下，请在划线处填入合适的代码。Dim a(1 To 1000) As Integer
Dim n As Integer
Private Sub Command1_Click()
'输入数据总量n，随机生成n个数据保存在数组
'a(1)~a(n)中，并在List1中显示数据，代码略
End Sub
Private Sub Command2_Click()
Dim b(1 To 10000) As Integer
Dim p1 As Integer, p2 As Integer, t1 As Integer, t2 As Integer
Dim t As Integer, k As Integer, i As Integer, j As Integer
p1 = 1
t1 = leng(p1)
p2 = p1 + t1
Do While p2 <= n
i = p1: j = p2: t = 1
Do While i < p2 Or j < p2 + t2
If j >= p2 + t2 Or i < p2 And a(i) < a(j) Then
b(t) = a(i): i = i + 1
Else
b(t) = a(j): j = j + 1
End If
t = t + 1
Loop
For k = 1 To
a(k) = b(k)
Next k
t1 = t1 + t2
Loop
'在List2中输出数组a(i)的值，代码略
End Sub
Function Leng(ByVal p As Integer) As Integer
'该函数返回数组a中数组下标p开始的升序有序段的长度，代码略
End Function
(3)、程序中加框处代码有错，请改正。 -
13、使用Flash软件创作“雍正故宫”作品，其中“load”场景的制作脚本如下表所示，
场景名：load
类别序号：1
进入方式：启动动画自动播放
呈现方式：
呈现顺序：
①“音乐”图层中的声音源于库中的素材 bg.wav，参数如图b所示。
①一开始时出现背景画面，音乐随即播放。
②“文物”从完全透明到完全显示，由左到右由小变大慢慢呈现在舞台上。
②1秒后出现“文物”动画，3.5秒后音乐停止播放。
③“播放”按钮位于舞台右侧位置，单击该按钮跳转到“main”场景第1帧并开始播放。
③最后出现“播放”按钮，场景停止播放。
(其他略)
(其他略)
部分界面如图a所示，请回答下列问题：
图a
图b
(1)、根据所给材料，下列说法正确的是 (多选 ，填字母)。A、该动画作品至少包含2个场景 B、“播放”按钮只能用于本场景的舞台中 C、编写制作脚本后应进行的操作是编写文字脚本 D、“文物”图层第10帧对象的Alpha值为0%(2)、从图中可知“故宫”图层中的文字“雍正故宫”为（选填：实例/形状）。(3)、根据制作脚本可知，背景图层第60帧处应添加动作命令为。(4)、若要使得“音乐”图层中的音乐在“文物”图层补间动画结束后停止播放，在不改变其他动画效果情况下，以下操作可行的是 （多选：填字母）。A、在“音乐”图层第20帧帧插入关键帧 B、将“音乐”图层第35帧空白关键帧移至第20帧 C、在“音乐”图层第20帧添加stopAllSounds();指令 D、删除“音乐”图层第20-34帧，并将声音的同步方式设置为事件(5)、“按钮”图层的呈现方式和脚本不符，则应进行的操作是。 -
14、某中学校园英语文化节举行了各类比赛，用Excel软件对比赛成绩进行处理，如图a所示。
图a
(1)、图a中L4:P4区域的数据是根据K4单元格自动填充得到，则L4单元格中的公式是（单选，填字母：A .=AVERAGEIF($A$4:$A$63,"高一*",C4:C63)/ B .=AVERAGEIF($A4:$A63,"高一*",C4:C63) / C .=AVERAGEIF($A4:$A63,"高一*",B4:B63 )
(2)、根据图a数据创建的图表如图b所示，则创建图表的数据区域为。
图b
(3)、若要找出高三年级口语成绩最好的班级，下列操作可行的是 （多选，填字母）。A、以“班级”包含高三，“口语”最大1项进行筛选，选取筛选出的班级。 B、以“班级”包含高三进行筛选，再按“口语”进行降序排序，选取排在最前面的班级。 C、以“口语”为主要关键字，“班级”为次要关键词均降序排序，选取排在最前面的班级。 D、以“口语”为主要关键字降序排序，以“班级”包含高三进行筛选，选取排在最前面的班级。 -
15、有如下VB程序段：
s = ""
i = 1:j = 10:k = 1
Do While i <= j
m = Int((i + j) / 2)
If a(m) > b(k) Then j = m - 1 Else i = m + 1
If a(m) = b(k) Then k = k + 1:s = s + Str(m)
Loop
数组元素a(1)到a(10)依次为“2,3,7,9,10,15,15,15,19,20”，执行该程序段后，变量s的值有3个字符，则b(1)到b(3)的值可能为（ ）
A、2 3 11 B、3 7 9 C、10 15 15 D、15 15 19 -
16、判断非重字符串s2(至少含2个字符)是否为s1的子集，若s2的字符按序在s1中出现，则称s2为s1的子集。例:s1="a3bcd"，s2="ab"，s3="ba"，则s2是s1的子集，s3不是s1的子集。实现该功能的VB程序段如下：
s1 = Text1.Text : s2 = Text2.Text
i = 1 : j = 1
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) = Mid(s2, j, 1) Then
Loop
If
Then Label1.Caption = "是子集" Else Label1.Caption = "不是子集"上述程序填空处的可选语句为：
①i = i + 1 ②j = j + 1 ③i > Len(s1) ④j > Len(s2)
则(1)(2)(3)处语句依次最合理的搭配为（ ）
A、①②③ B、②①③ C、①②④ D、②①④ -
17、有如下VB程序段：
For i = 1 To 2
For j = 6 To 2 * (i + 1) Step -2
If a(j) < a(j - 2) Then
t = a(j): a(j) = a(j - 2): a(j - 2) = t
End If
Next j
Next i
假定数组元素a(1)～a(6)的值依次为“happy，sky，change，sk，bellow，hello”。执行该程序段后，a(4)～a(6)的值依次是（ ）
A、sk，bellow，sky B、sky，bellow，sk C、sk，happy，sky D、happy，sk，sky -
18、有如下VB程序段：
n = 3: s = 0
c = Val(Text1.Text)
For i = 1 To c
p = i Mod n + 1
s = s + p
Next i
在文本框Text1中输入9，程序执行后，变量s的值为（ ）
A、6 B、9 C、18 D、45 -
19、某算法的部分流程图如图所示。输入n的值为20，执行这部分流程后，输出k的值为（ ）
A、0 B、1 C、2 D、5 -
20、下列选项中，无法实现变量r的值在“0”和“1”之间进行切换功能的表达式是（ ）A、r = (r - 1) Mod 2 B、r = Abs(r - 1) C、r = 1 - r D、r = (r + 1) Mod 2