相关试卷
-
1、使用Photoshop软件编辑图像，部分操作界面如图所示。下列说法正确的是（ ）
A、当前图像采用RGB模式，每个像素点的存储空间为8位 B、交换“鲜花”和“母女”图层顺序，会影响作品的呈现效果 C、可使用“自由变换”命令修改“母亲节”图层中的文字大小 D、将作品存储为JPEG格式文件，“妈妈我爱你”图层中的“投影”效果依然可见 -
2、利用Access创建数据表，部分界面如图所示。下列说法不正确的是（ ）
A、该表共有6个字段，表名为“充卡记录” B、在当前视图中可以对记录进行添加、编辑和删除 C、“400" 可以是“充卡金额”字段的有效输入值 D、存储一个“性别”字段值，需要的存储空间为1bit -
3、十进制正整数n转换为2位十六进制数，该十六进制数末位为“F”。下列说法正确的是（ ）A、无法确定n是奇数还是偶数 B、十六进制数末位“F”转换成十进制数为n\l6 C、十进制数n+1转换得到的二进制数一定不超过8位 D、十进制数n+1转换为十六进制，该十六进制数末位为“0”
-
4、下列有关信息和信息技术的说法，不正确的是（ ）A、信息是指数据、信号、消息中所包含的意义 B、信息经过加工处理后可能具备更高的使用价值 C、物联网、大数据、云计算等都是当前信息技术应用的热点 D、信息技术是指利用计算机对信息进行加工和处理的技术
-
5、某校进行模拟考，现有25名学生的语数英三门课的成绩（按百分制）存储在数据库student.accdb中的数据表cj中，现取出各学生成绩存储在cj( )数组中，成绩存放如下：
运行程序，点击“数据导入”按钮后，在列表框list1中显示所有数据。点击“排序"按钮，按总分从高到低计算名次（成绩相同的名次相同），并按排名先后在列表框list2中显示，数据要求对齐。程序运行界面如图16-1所示：
(1)、观察程序及界面，可知“排序”按钮的对象名为。(2)、实现上述程序功能的VB程序段如下，请在划线出填入合适的代码。Dim cj（1 To 100） As Integer
Dim b（1 To 301） As Integer '分数为i的人数存入b（i）
Private Sub Cmdl_ Click( )
Dim conn As New ADODB.Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString = "Provider =Microsoft.ACE.OLEDB.12.0；Data Source= " &App.Path& "\studentaccdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT*FROM cj"
n =1
Do While Not rs.EOF
cj（n）= rs.Fields（"语文"）：cj（n+1） = rs.Fields（"数学"）
cj（n+2） = rs.Fields（"英语"）：cj（n+3） = cj（n）+cj（n+1）+cj（n+3）
rs.MoveNext
Loop
rs.Close：conn.Close
'此处代码略，用来实现将数据在list1中输出
End Sub
Private Sub paixu_ Click( )
Dim mc As Integer
'预处理求b数组的值
For j=4 To 100 Step 4
Next j
'以下程序用于计算名次并按要求对齐输出
mc=1：b（301)=0
List2.AddItem"语文"+"数学"+"英语"+"总分"+"名次
List2.AddItem "------------------------------------------------"
For i=300 To 1 Step -1
If b（i） <> 0 Then
For c=4 To 100 Step 4
If cj（c） = i Then
List2.AddItem
End If
Next c
End If
Next i
End Sub
'以下函数输出时数据s时，不足7位末尾补空格
Function gs（s As Integer） As String
Dim cd As String
ed = CStr（s）
For i=1 To 7 -Len（cd）
cd= cd+" "
Next i
gs = cd
End Function
-
6、出列顺序有10个人，编号分别为1，2，3……10按顺时针方向围坐成一圈，每次随机产生一个数m，m的范围为[3，7]的随机奇数，从第10个人开始逆时针报数，当报到m的人出列，圈内剩下的人，重新产生随机数m，重新开始报数，如此下去，直到所有人出列为止。如：若每次参数的随机数m都为5，从第10个开始报数，依次出列的为6-1-5-9-2-3-10-7-4-8
小李编写了如下程序求解10个人的出列顺序。程序运行界面如图15-1所示，点击求解按钮后，在Text1中输出出列顺序，在Text2中显示随机数据的值。
(1)、在划线出填写正确的代码Private Sub Command1 _Click( )
Dim ld（1 To 10） As Boolean， i As Integer， j As Integer
Dim rs As Integer， C As Integer， m As Integer
Randomize
For i=1 To 10
ld（i） = True ‘数组元素为True表示第i人当前在队列中
Next i
c=0：rs=10
m =Int（Rnd*3）*2+3
Do While rs <> 0
If ld（i） = True Then
If c=m Then
ld（i） = False
Text1.Text = Text1.Text + Str（i）
c=0
End If
End If
i =i-1
If Then i=10
Loop
End Sub
(2)、加框处两语句互换下顺序，会不会对出列顺序产生影响（选填：会/不会）。 -
7、小灰制作了有关“公筷公勺”为主题的多媒体作品，请回答下列问题：(1)、使用Photoshop处理如图14-1所示，下列说法中正确的是（多选 ，填写字母。A .可将“人物”图层的图层样式拷贝到“病毒”图层。/B .背景图层可以设置滤镜，也可以使用像皮擦。/C .“文明用餐使用公筷”图层不可以使用自由变换更改文字大小，但可以用文字工具更改文字大小。/D .“减少冠状病毒传染”图层设置滤镜必须栅格化图层，但可以用油漆简工具更改文字颜色。/E .“新冠”图层可以移动到圆点图层上方，背景图层不能移动位置。）
(2)、如图14-2所示，在“勺子”图层最后一帧（80 帧）设置了gotoandpaly(1)；的动作命令，“声音”图层的声音时长为40s，要求测试影片时（不点击按钮情况下）声音能完整的播放，且不会重复产生新的声音，则应将声音同步设为（数据流/事件/开始）
(3)、“勺子”图层实现了元件实例“勺子和筷子”的淡入动画，部分界面如图14- 2所示，则该补间类型为（选填：动画补间/形状补间/逐帧动画）。(4)、“勺子”图层的动画效果是在第31帧至60帧，若要使“勺子”图层的动画从第1帧开始，到60帧结束，则可执行的操作。(5)、测试影片时，点击“按钮”图层中的按钮时，声音停止播放并跳转到“主场景”的第6帧暂停，则此按钮的动作脚本为。 -
8、小豆制作了如图13-1所示的家居用品分类销售统计表，数据情况如图13-1所示。请回答下列问题：
(1)、图13-1中的销售占比是各类销售金额占合计的比例。E4：E10的公式是从E3单元格自动填充功能得出的，可知E3单元格公式为。(2)、要对图13-1中的数据按“销售金额”降序排序，则选择的数据区域为。(3)、根据图13-1中的数据制作了如图13-2的图表，则图表的数据区域是。
(4)、若在操作过程中对D6单元进行了如图13-3所示的操作，则E6单元格的数据（单选，填字母。A .变大 \ B .变小 \ C .#REF！ \ D .#DIV/O！ ）
-
9、某VB程序段如下图所示，执行程序段后，文本框Text2中显示的值不可能是（ ）
a(1)=0: a(2)=3: a(3)= 5: a(4)=7
a(5)= 9: a(6)= 11: a(7)= 13: a(8)= 15
a(9)= 17: a(10)= 19
key= Int(Rnd*5)*2+5
s=" "
i=1: j= 10
Do While i<= j
m=(i+j)\2
s=s+ Str(a(m))
If a(m)>key Then
j=m-1
Else
i=m+1
End If
Loop
Text1.Text= s
A、9 3 5 7 B、9 3 5 C、9 15 11 13 D、9 15 11 -
10、星星设计了10*10的矩阵，如下图所示：
实现此功能的VB程序段如下，已知程序中两处标记①的位置表达式相同，程序中①、②两处表达式为（ ）
Dim a(1 To 100) As StingFor i= 1 To 10
For j=1 To 10
If i=j Or i Mod 10=0 Or i Mod 10= 1
Then
a( ① )="●"
Else
a( ① )="○"
EndIf
Next j
Next i
For i= 1 To 100
s=s+ a(i)
If ② Then
List1.Addltem s
End If
Next i
A、①（j-1）*10+i ②i mod 10=1 B、①（i-1）*10+ j ②i mod 10=1 C、①（j-1）*10+ i ②i mod 10=0 D、①（i- 1）*10+j ②i mod 10=0 -
11、有两个VB程序段，如下所示：
已知程序段中①②两处内容相同，数组元素a(1)到a（10）的值依次为：6，43，21，78，33，16，80，45，12，90，执行“程序段1”后，数组元素a(1)~a(10)的值依次为80，78，90，45 ，43，33，21，16，12，6，则下列说法正确的是（ ）
A、①和②处的填空为7 B、两程序段的比较次数不一样，交换次数一样 C、执行完程序段2后，数据6移动到了a(10) D、两段程序的得到的运行结果相同 -
12、某算法部分流程如图1所示，执行此部分流程后，下列说法正确的是（ ）
A、此流程使用枚举算法（枚举i的值），虚线框部分是分支结构 B、流程中sum←sum+i与i←i+1调换下位置，输出的sum，c，i的值都不变 C、最终i的值是401，i←i+1执行数是200次 D、将流程图修改为如图2所示，程序运行结果会发生变化。 -
13、下列有关VB属性说法正确的是（ ）A、计时器每隔3秒Timer事件发生一次，则Interval属性应设置为3 B、设置标签框字体的颜色应在Font属性中设置 C、图像框（image）中图片的加载可以通过Picture属性设置 D、确定一个控件在窗体上位置的属性是Width和Height
-
14、有一段时长为40分钟，1920* 1080，32位真彩色，采用PAL制的未经压缩的AVI无声视频，此段视频通过5G网络下载（5G网络理论下载速度可达到10Cbps），所需的时间约为（ ）A、796s B、398s C、49s D、16s
-
15、在Goldwave中进行操作，当前操作界面如下图所示，下列说法正确的是（ ）
A、图中44100HZ，表示采用44100量化级别 B、这是一个双声道的无损压缩的音频格式文件 C、执行“删除”操作后，再选择左声道插入35秒静音，音频文件存储容量变大 D、执行“淡入”命令后，执行“更改音量”命令降低音量，文件存储容量不变 -
16、观察字符内码如下图所示，以下说法正确的是（ ）
A、图中有4个ASCII码，5个区位码 B、字符“40”的十六进制编码为“34 30” C、存储字符“3”需要1bit D、“℃”存储时占用了4字节 -
17、使用Word软件编辑文档，部分界面如图所示，下列就法正确的是（ ）
A、文中的图片的文字环绕方式为“四周型环绕” B、若接受所有修订，则第3行前半行文字将变为“服的时间都可能被感染，但是” C、删除批注内容“摘自鲁迅杂文（中国人失掉自信力了吗》”，该“批注[A1]：”也删除 D、第6行“不”字下方有波浪线，表示启用了拼写和语法有检查，这是人工智能技术 -
18、下列有关多媒体信息加工和多媒体技术的说法，正确的是（ ）A、一幅未经压缩的位图图像，内容越复杂，存储容量越大 B、某软件能自动朗读文本内容，该功能主要应用了多媒体技术中的语音识别技术 C、图像中某个区域的颜色、亮度、饱和度等相同，由此产生的数据重复称为空间冗余 D、矢量图放大后不会产生“锯齿形失真”，巨幅广告的图像一般都采用矢量图
-
19、下列有关信息和信息表达的描述，正确的是（ ）A、文字、语言、图形、声音、网络都是常见的信息表达技术 B、某计算机的CPU主频是3.90GHZ，体现了的存储容量大的特征 C、万维网采用SMTP协议将浏览器发出的请求发送到Web服务器 D、超链接可以实现不同网页间的链接，也可以链接到电子邮箱地址
-
20、病毒疫苗抗体检测。使用字符串序列表示志愿者注射疫苗后细胞的DNA和疫苗抗体的DNA（志愿者的DNA序列长度大于疫苗抗体的DNA序列长度），通过检测疫苗抗体DNA序列是否在志愿者的DNA序列中出现来分析疫苗效果。其中疫苗抗体的DNA序列是环状的，志愿者的DNA序列是线性的。只要疫苗抗体的DNA序列在志愿者的DNA序列中出现，说明己产生抗体。例如：疫苗抗体的DNA序列是环状的“cced”，即可以表示为“cced”，也可以表示为“cedc”、“edcc”、“dcce”。A志愿者的DNA序列为“mtrcnmdaced”， 没有出现抗体序列，结果为“阴性”，B志愿者的DNA序列为“acedssdfaef"，出现抗体序列，结果为“阳性”，C志愿者的DNA序列为“ce”，志愿者的DNA序列长度不够，无法比对，结果为“无效”。
按上述要求，编写一个VB程序，功能如下：程序运行时从数据库中读取志愿者的检测号、
DNA序列存入相应数组，在文本框Text1中输入抗体DNA序列，单击“检测结果”按钮Command11，在列表框List1中按检测号顺序显示每个志愿者的检测结果，并在标签Label1显示疫苗抗体的阳性率（以百分比表示，并保留2位小数），程序运行界面如图所示，请在划线处填入合适的代码。
Dim Pnum（1 To 100） As String 'Pnum数组存储志愿者的检测编号
Dim Pch（1 To 100） As String 'Pch数组存储志愿者的DNA序列
Dim Prs（1 To 100） As String 'Prs数组存储志愿者的检测结果
Dim n As Integer '存储志愿者的总人数
Private Sub Form_ Load( )
Dim i As Integer, j As Integer
Dim tmp As String, chtmp As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.ConnectionString = "Provider=Mi crosoft. ACE.OLEDB.12. 0；Data Source=" + App．Path+"\DNADB.accdb"
Conn.Open
Set Rs.ActiveConnection = Conn
Rs.Open "SELECT * FROM Source" '从数据库的名为 “Source”数据表中读取数据
i =0
Do While Not Rs.EOF
i=i+1
Pnum（i） = Rs.Fields（0）
Pch（i） = Rs.Fields(1)
Rs.MoveNext
Loop
Rs.Close
Conn.Close
n=
For i=1 To n-1 '以检测号作为关键字对DNA序列数据进行升序排列
j=i+1
Do While j <= n
If Then
chtmp = Pch（i）：Pch（i）= Pch（j）：Pch（j）= chtmp
tmp = Pnum（i）：Pnum（i）= Pnum（j）：Pnum（j）= tmp
End If
j=j+1
Loop
Next i
End Sub
Private Sub Command1_ Click( )
Dim Ach As String, RVch As String, Vch As String
Dim i As Integer, j As Integer, k As Integer, m As Integer
Ach = Text1. Text： s = Len（Ach）： RVch = Ach + Ach
k=0：m=0
For i=1 To n
If Len（Pch（i）） <= Len （Ach） Then
k =k+ 1： Prs（i） = “无效”
Else
For j=1 To s '按环状序列依次进行比较
Vch =
If Test（Vch，Pch（i）） Then
m=m+1
Prs（i） =“阳性”： Exit For
Else
Prs（i） =“阴性”
End If
Next j
End If
Next i
For i =1To n
List1. AddItem Pnum（i） +" " + Prs（i）
Next i
Label1. Caption = Str（Int（m/（n-k）*10000 +0.5）/100） + "%"
End Sub
Function Test（str1 As String，str2 As String） As Boolean '字符串比对函数
Dim i As Integer
Test = False
For i = 1 To Len（str2） - Len（str1） + 1
If Then
Test = True： Exit For
End If
Next i
End Function