相关试卷
-
1、下列VB表达式的值为False的是（ ）A、8 Mod 10 \ 5 = 0 B、Int(Rnd * 50) Mod 2 * 2 < 4 C、Mid("1234", 3, 2) > "234" D、"Abc" < "ABCD"
-
2、一个时长为4分钟、采样频率为32kHz、量化位数为16、双声道未经压缩的Wave格式音频文件，其存储容量约为（ ）A、1MB B、29MB C、、59MB D、469MB
-
3、使用Photoshop软件制作“春暖花开”作品，界面如下图所示。下列说法正确的是（ ）
A、“春暖花开”图层使用了滤镜效果 B、可以执行“自由变换”命令，调整蝴蝶的大小 C、可以使用画笔工具，在背景图层中绘制云朵 D、删除“燕子”图层后，将文档存储为BMP格式图片，其容量将小于569.4KB -
4、用UltraEdit软件查看字符内码，部分界面如图所示。
下列说法正确的是（ ）
A、图中所有字符内码值的十进制表示均小于128 B、字符“10”的内码值是3AH C、字符“A”的二进制码是“01000001” D、图中所有字符在计算机中存储时共占10字节 -
5、用 Access 软件设计疫苗接种系统的数据库，其中已建好的“接种记录”数据表用于存储如图所示的数据。
疫苗名称
接种日期
接种部位
批号
生产企业
接种单位
新冠肺炎疫苗
2021.01.13
左手
202012001C
北京生物
中心医院
新冠肺炎疫苗
2021.02.03
右手
202012002C
北京生物
中心医院
…
…
…
…
…
…
下列关于“接种记录”数据表的描述，正确的是（ ）
A、“接种记录”的字段顺序与图中数据的列顺序必须一致 B、该数据表的字段数一定为6个 C、“接种记录”中疫苗名称数据的字段可以设置为主键 D、图中“批号”列在该数据表中相应字段的数据类型可以是“文本” -
6、下列用于浏览器与WEB服务器之间信息传输的协议是（ ）A、SMTP B、HTML C、HTTP D、FTP
-
7、下列有关信息与信息技术的说法，正确的是（ ）A、汉字在计算机内部采用二进制代码表示 B、信息具有时效性，只有最新的信息才具有价值 C、通过无线网络传输的信息不依附于载体 D、信息技术就是计算机采集、处理、存储信息的技术
-
8、一幅图像的相邻像素颜色之间往往存在着连贯性，现有幅256色位图，第一行像素为100个，该行像素信息用十六进制可以描述为“FFFFFF……FF”，占100个字节。若用第一个字节表示数量，第二个字节表示颜色，用“64FF”2个字节即可表示该信息，但存储空间只占原来的1/50。基于此思想，现在针对256色位图的图像信息设计压缩算法，描述如下：
①将所有的小写转换为大写，大小写字母内码差为32，例如：ASC(“a”)-ASC(“A”)=32
②对像素压缩用两个字节存储，前一字节存储连续相同像素的个数，用两位十六进制表示；后一字节存储颜色编码。
③若连续像素个数超过255，用多段字节存储该段连续像素。具体压缩方法如下：
依据上述算法设计VB程序，程序运行界面如下图所示：
请回答下列问题：
(1)、若要将窗体的标题改为“图像压缩”，应该更改窗体的属性。(2)、请在划线处填入合适的代码。Private Sub Command1_Click( )
Dim ans As String, s As String, ch As String, key As String Dim i As Integer, pos As Integer
Dim count As Integer, count1 As Integer, count2 As Integer
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "f" Then s =
End If
Next i
ans = ""
key = Mid(s, 1, 2)
pos = 3
Do While pos <= Len(s) + 1
count = 1
Do While key = Mid(s, pos, 2)
count = count + 1
pos = pos + 2
Loop
count1 = count \ 255
count2 = count Mod 255
For i = 1 To count1
ans = ans + "FF" + key
Next i
If count2 > 0 Then ans=
End If
key = Mid(s, pos, 2)
pos = pos + 2
Loop
Text2.Text = ans
End Sub
Function DtoH(n As Integer) As String
temp = ""
Do While n <> 0 r = n Mod 16
n = n \ 16
IfThen
temp = Chr(Asc("A") + r - 10) & temp
Else
temp = r & temp
End If
Loop
temp = "0" + temp '加上前缀 0，保证转换结果为两位十六进制数
DtoH = Mid(temp, Len(temp) - 1, 2)
End Function
(3)、如果某数据经过该程序压缩后的数据是“02FF026401EE01EF”，那么原数据为。 -
9、如下图所示，数组a中存储了一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组a的元素总个数为3的倍数。
8
5
3
17
14
10
32
25
24
53
50
35
73
66
61
图 a
依据对分查找思想，设计一个在数组a中查找数据key的程序。执行程序，在文本框Txt1中输入key的值，在文本框Txt2中显示查找结果。根据左右边界，计算中位值，并在标签L1中记录历次中位值的位置。
(1)、程序代码如下，请在划线处填入合适的代码。Private Sub Command1_Click( )
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer Dim i As Integer, j As Integer, m As Integer
Dim s As String
' 读取一组正整数，按上述规则存入数组，代码略。
key =
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
s = s + Str(m) + ","
If m Mod 3 <> 0 Then '把 m调整到三个一组的最后一个数的位置
If key = a(m) Then search = m: Exit Do
ElseIf key < a(m) Then j = m - 3
ElseIfThen i = m + 1
ElseIf key = a(m - 2) Then search = m - 2: Exit Do
ElseIf key = a(m - 1) Then
search = m - 1: Exit Do
End If
Loop
If search <> 0 Then Txt2.Text = Str(search)
Else
Txt2.Text = "找不到" End If
L1.Caption = s
End Sub
(2)、a数组数据如图 a所示，如果key的值为 10，则L1上显示的内容为。 -
10、小王创作了“药物不良反应”的多媒体作品，首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题:(1)、处理图像的部分界面如图a所示。下列说法正确的有 （多选，填字母）。
图 a
A、不能重命名的图层有2个 B、可以使用文字工具将“药物不良反应”图层中的“药物”两个字改为红色 C、删除“药片2”图层，“药片1”图层也会被删除 D、将“药物不良反应.psd”文件存储为bmp格式图片，则bmp图片不包含“小胶囊”图层的内容 E、可以将“药物不良反应”图层中的图层样式拷贝到“阴影”图层(2)、如图b所示，测试该场景时，“文字”图层内容直到45帧才出现，要使按钮从第1帧就出现并延续到第45帧，下列操作可行的是 。（多选题,填字母）
图 b
A、选中“文字”图层第1帧执行“清除关键帧”操作 B、选中“文字”图层第45帧执行“清除关键帧”操作 C、删除“文字”图层第1至44帧 D、选中“文字”图层第45帧执行“复制帧”操作，在第1帧执行“粘贴帧”操作 E、选中“文字”图层第45帧，并移动到第1帧(3)、“小胶囊”图层中的对象在补间结束之后仍然在继续张嘴和手部动作，实现该效果的对象类型是（选填：影片剪辑 / 位图 / 形状）(4)、删除“音效”图层，第40帧到第45帧，对动画整体音效（有/无）影响。(5)、测试影片时，若要实现当前场景播放结束后跳转到“主交互界面”场景的第1帧并停止播放，应执行的操作是。 -
11、小王同学收集了某书店的优惠图书信息，并使用Excel软件进行了数据处理，如图a所示。
图 a
请回答下列问题：
(1)、E4：E17单元格为 E3单元格自动填充得到，E3单元格的公式为。（提示：折后价格=原价*折扣）(2)、若要对社科类图书按照价格进行降序排序，选择的数据区域为。(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
图 b
(4)、对折后价格列进行筛选，筛选条件如图c所示，将筛选出条记录。
图 c
-
12、某对分查找算法的VB程序段如下：
L = 1 : R = 5 : c = 0
Key = Val(Text1.Text)
Do While L < R And Not f
m = (L + R) \ 2
c = c + 1
If d(m) = Key Then
f = True : Text2.Text = Str(m)
ElseIf d(m) < Key Then
L = m + 1
Else
R = m
End If
Loop
Label1.Caption = Str(c)
数组元素 a(1)到 a(5)的值依次为“19，28，37，46，55”。执行该程序段，下列说法错误的是（ ）
A、若 key=19，则 L=R-1 B、若 key=30，则 c=3 C、若 key=40，则 R=4 D、若 key=55，则 f=false -
13、某算法的 VB 程序段如下：
Const n = 5
Dim d(1 To n) As Integer
For i = 1 To n
d(i) = Int(Rnd * 10 + 1)
Next i
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then If d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
ElseIf d(j) Mod 2 = 1 And d(j - 1) Mod 2 = 0 Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
执行该程序段后，数组元素 d(1)到d(n)的值不可能为（ ）
A、7 11 15 16 19 B、1 9 11 15 19 C、2 8 10 18 20 D、11 2 10 12 16 -
14、现有一个 VB 程序，用于读取某数据库中“book”数据表的数据，其中部分代码如下：
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a(1 To 100) As String
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;data Source=" & App.Path & "\Mydata.accdb"
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM book"
n = 0
Do While Not
a(n) = rs.Fields("name")
Loop
上述程序段中方框处可选语句为：
①n = n + 1 ②rs.MoveNext ③rs.BOF ④rs.EOF
则方框处语句依次可为（ ）
A、③②① B、②①④ C、④②① D、④①② -
15、有如下 VB 程序段：
s = 0 : x = "0123456789"
i = 1
Do While i <= Len(x)
t = Val(Mid(x, i, 2))
If t Mod 3 <> 0 Then s = s + t Else s = s - t
i = i + 1
Loop
执行该段程序后，s的值为（ ）
A、270 B、144 C、126 D、-126 -
16、某算法流程图如图所示，执行该算法，输出结果为（ ）
A、s=10 B、i=4 s=10 C、i=11 D、i=11 s=55 -
17、下列关于表达式的描述正确的是（ ）A、表达式（Int (Rnd-Rnd+1)/2) *100=0 的值为 True B、表达式 1*2^5+1*2^2+1*2^0=37 的值为 True C、表达式 1988 mod 1000\10/2=38 的值为True D、表达式 Mid("3.1415926",6,2)=59 的值为 True
-
18、一段未经压缩的NTSC制式的AVI格式无声视频，时长为10秒，每帧画面为512×768像素，存储容量约为225MB，则该视频中图像的每个像素所占的位数为（ ）A、2 位 B、8 位 C、16 位 D、24 位
-
19、关于声音处理软件Goldwave，如图所示，下面说法正确的是（ ）
A、执行“插入 10 秒静音”操作后，音频播放过程中会出现静音部分 B、当前状态，单击“删除”按钮，左声道未选中部分变静音 C、选中左声道，单击“删除”按钮，按原参数保存，存储容量变成原来的一半 D、当前状态进行了“复制”、“粘贴”操作，保存后文件容量不变 -
20、使用 UltraEdit 软件查看字符内码，部分界面如图所示。下列说法正确的是（ ）
A、图中有2个字符采用ASCII编码，6个字符采用汉字编码 B、GB2312汉字编码是较为常用的汉字机内码 C、将内码“39”修改为“3A”，字符“9”将自动改为“10” D、根据上图推断可知，字符“E”的内码为33H