相关试卷
-
1、有如下VB程序段:
a（1）＝4:a（2）＝5a（3）＝1
a（4）＝2:a（5）＝3:a（6）＝6
k＝1
For i＝1 to 5000
k＝（k＋a（k）－1）Mod 6＋1
Next i
执行该程序段后，变量k的值为（ ）
A、0 B、1 C、2 D、5 -
2、有如下VB程序段:
Max＝0:s＝0
For i＝1 to 6
If a（i）＞Max Then Max＝a（i）
s＝s＋Max
i＝i＋1
Next i
数组元素a（1）到a（6）的值依次为“5，7，4，8，6，9”，执行该程序段后，变量s的值为（ ）
A、11 B、16 C、29 D、44 -
3、某算法的部分流程图如图所示，若输入a的值为124，执行这部分流程图，则输出s的值为（ ）
A、12111 B、11121 C、1121 D、011121 -
4、符合产生随机整数n，其值范围为（－100≤n≤100）的VB表达式是（ ）A、Int（Rnd*101）－100 B、－Int（Rnd*101） C、Int（Rnd*200）－100 D、Int（Rnd*201）－100
-
5、使用PhotoShop制作一幅图像，编辑界面如图所示，下列说法正确的是（ ）
A、可以直接修改图中左下角的50%数据，改变图像的容量大小 B、可以在“背景”图层直接添加“投影”的图层样式效果 C、可以直接修改“芦苇”图层名称 D、删除“印章”图层，“笔和砚”图层也随之删除 -
6、使用GoldWave软件编辑某音频文件，界面如图所示。下列说法正确的是（ ）
A、当前处理的音频文件是Wave格式，属于无损压缩格式 B、当前状态下，执行“静音”操作后，此音频的容量约2.52MB C、当前状态下，执行“删除”操作，则原选区变为静音 D、当前状态下，执行“剪裁”操作后，此音频的容量变小 -
7、下列关于数制的说法，正确的是（ ）A、若二进制数末位为1，其对应权值为21 B、若二进制数末位为0，则该数对应的十六进制数末位一定为0 C、若二进制数最右边加一个0，其值为原来的10倍 D、若二进制数111111取最左边三位111十进制值，则该数对应的十进制值整除8即可得到
-
8、对于数据库和数据表，下列说法正确的是（ ）A、同一张数据表中字段名称可以相同 B、Access数据表同一列中各数据的类型可以不相同 C、数据表字段类型的修改，一定不会引起字段内容的缺失 D、在数据表视图下，修改字段的值可通过“撤销”操作恢复
-
9、小明通过浏览器登入自己的邮箱，此过程中使用到的协议是（ ）A、HTTP B、SMTP C、POP3 D、HTML
-
10、下列有关信息与信息处理的说法，正确的是（ ）A、同一信息通过不同途径传播时，其价值都是相同的 B、信息技术是伴随着计算机和互联网技术的发展而诞生的 C、信息在计算机内部可以采用十六进制编码进行存储 D、BMP格式位图图像的存储容量与图像内容无关
-
11、小李编写了“数字游戏”的VB程序，功能是查找符合下列条件的3个三位数：
①3个数中包含1-9的全部数字，且不重复；
②3个数的大小之比为1:2:3。
如“192、384、576”是符合规则的一种组合。
现编写程序功能如下：单击“计算”按钮Command1，在列表框List1中输出符合条件的数字组合，在标签Label1中输出组合数量。程序运行界面如图所示。
(1)、上图程序运行界面中，有Caption属性的对象共 (填数字)类。(2)、实现程序功能的VB代码如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim f(0 To 9) As Integer
Dim i As Long, j As Integer, s As Integer
Dim tmp As Long, t As Integer, count As Integer
count = 0
For i = 123 To 333
For j =
f(j) = 0
Next j
tmp = i + 2 * i * 1000 + 3 * i * 1000000
Do While tmp > 0
t =
tmp = tmp \ 10
f(t) = 1
Loop
s = 1
For j = 1 To 9
s = s * f(j)
Next j
IfThen
List1.AddItem Str(i) + Str(2 * i) + Str(3 * i)
count = count + 1
End If
Label1.Caption = "共有" + Str(count) + "种组合"
Next i
End Sub
-
12、为保证信息传输的准确性，可在一段ASCII字符后面插入一个验证字符加以验证。验证字符生成规则如下：
①从左往右依次获取各字符的ASCII码值；
②对奇数位字符的ASCII码值做加法处理，对偶数位字符的ASCII码值做减法处理；
③将上述结果取绝对值后除以26求余数，余数为0~25，分别对应大写字母A~Z，则该大写字母即为验证字符。
小李编写字符串验证程序，功能如下:在文本框Text1中输入待检验字符串（最后一位为验证字符），点击按钮Command1，在标签Label1中显示输入字符串是否验证成功。程序运行界面如图所示。
(1)、按照该规则，字符串“2021”的校验码是（注：字符“0”的ASCII码值为 48，字符“A”的ASCII码值为65，数字、字母 ASCII 码值均按序以 1 递增）。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s As String, t As String
Dim cha As Integer, ans As Integer
Dim a As Integer, b As Integer, i As Integer
s =
t = Mid(s, Len(s), 1)
ans = 0
For i = 1 To Len(s) - 1
cha = Asc(Mid(s, i, 1))
If Then
ans = ans - cha
Else
ans = ans + cha
End If
Next i
ans = Abs(ans) Mod 26
If
Then Label1.Caption = "验证成功！"
Else
Label1.Caption = "验证失败！"
End If
End Sub
(3)、程序中加框处代码有误，请改正。 -
13、小李使用Photoshop软件创作“茶文化”的多媒体作品，部分界面如图所示，请回答下列问题：
(1)、在制作作品前需要进行相应的分析和规划,下列属于创作需求分析是 。（多选，填字母：A .确定作品需要使用的相关软件/B .确定作品的主题为“茶文化”/C .确定作品面向中青年群体/D .确定该作品的工作流程和主要界面/E .确定作品所需素材的获取方式 ）(2)、若仅改变“禅茶一味”图层中“茶”字的大小可使用工具实现（选填字母： A .文字工具 /B .自由变换)；若删除“背景”图层，另存为 BMP 格式，该 BMP 图像的四周背景（选填字母：A .透明 /B .不透明）。(3)、对“禅茶.psd”文件进行下列操作，可能导致该文件图层数量改变的是 (多选，填字母)。A、对“禅茶”图层设置滤镜效果 B、选中“禅茶”图层使用文字工具添加文字“心静如水” C、对“禅茶一味”图层执行“复制图层”操作 D、对“禅茶一味”图层添加“投影”图层样式(4)、将“禅茶.psd”文件存储为“禅茶.jpg”文件，该过程属于（选填：有损/无损） 压缩，“禅茶.jpg”文件（选填：能/不能）分图层保留图像内容。 -
14、小李收集了某校招聘教师笔试成绩数据，并用Excel软件进行数据处理，如图a所示，请回答下列问题。
图a
(1)、J3单元格中显示的是参加“小学美术”职位的报考人数，利用J3单元格中的公式，对区域K3:L3进行自动填充，则K3单元格中的显示结果是( 单选， 填字母:A . #VALUE! / B . 0 / C . 7)。(提示:公式“=COUNTIF(D3:D27,J2)”统计区域 D3:D27 中值等于J2的单元格个数，即参加“小学美术”职位的报考人数。)
(2)、若要正确计算各个职位报考人数，可先对J3单元格中的公式进行修改，再对区域K3:L3进行自动填充，则J3单元格中的公式应改为。(3)、根据图a中数据制作的图表如图b所示，则制作该图表的数据区域是 。
图b
(4)、若对区域A2:G27中的数据以“报考职位”等于“小学音乐”，“笔试成绩”最大一项进行筛选，则筛选后显示的数据一定是报考职位为“小学音乐”中“笔试成绩”的最高分吗？（选填：是/否）。 -
15、有如下 VB 程序段:
s = "582319476"
i = 1: max = 0: res = ""
Randomize
Do While i <= Len(s) \ 3
tmp = Int(Rnd * 9 + 1)
If tmp >= max Then
res = res + Mid(s, tmp, 1)
max = tmp
i = i + 1
End If
Loop
执行该程序段后，变量res的值不可能是（ ）
A、"446" B、"249" C、"346" D、"897" -
16、有如下VB程序段：
Ma = 0: Mb = 0
For i = 1 To 10
If d(i) > Ma Then
Mb = Ma
Ma = d(i)
ElseIf d(i) > Mb Then
Mb = d(i)
End If
Next i
数组元素d(1)至d(10)的值依次为：4,2,5,7,10,8,3,9,1,6，执行该程序段后，变量Ma和Mb的值分别为（ ）
A、1 2 B、2 1 C、9 10 D、10 9 -
17、若一个数是某个整数的平方，则该数被称为完全平方数。下列程序段用于找出字符串中用逗号分割的完全平方数。部分程序代码如下：
Dim tmp As Single ,s As String ,ch As String ,i As Integer s = "1,20,36,29,3,"
tmp = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
Else
If Then
List1.AddItem Str(tmp)
End If
tmp = 0
End If
Next i
上述程序段中横线处可选语句为：
① tmp = tmp * 10 + Val(ch)
② tmp = tmp + ch
③ Sqr(tmp) ^ 2 = tmp
④ Int(Sqr(tmp)) = Sqr(tmp)
则方框处处语句依次为： （ ）
A、①③ B、①④ C、②③ D、②④ -
18、下列VB表达式中，值与其他三项不同的是（ ）A、Len("-1+6") B、Abs(Int(-3.1)) C、Mid("1314", 4, 1) D、Int(Rnd + 1) * 4
-
19、某算法的部分流程图如图所示，执行该流程后，变量sum的值为（ ）
A、45 B、25 C、20 D、0 -
20、用 UltraEdit 软件查看字符串“2021 学习 VB！”的内码，部分界面如图所示， 下列说法正确的是（ ）
A、字符“b”的内码是42H B、字符“10”的内码为3AH C、图中共有6个ASCII码字符 D、该字符串存储大小为11个字节