相关试卷
-
1、小王收集了本校高一选修课满意度调查数据，并用 Excel软件进行数据处理，如图a所示。请回答下列问题：
(1)、各门选修课的满意率数据是在H4单元格输入公式后，利用自动填充功能得到的，则H4单元格输入的公式是 。（满意率：是指该门课“非常满意”和“满意”的评价人数之和除以评价总人数)
(2)、由于“航模运动基础”这门课最终未开设，因此没有各项数据，自动填充完成后，H7单元格显示的内容为 (填字母：A .#DIV/O! ；B .#REF!；C .#VALUE!；D .— )。(3)、为了更加直观地比较满意率情况，小王制作了如图b所示的图表，创建该图表的数据区域是。
(4)、若对表格中数据进行自定义筛选，设置的筛选条件如图c所示，则图b所示的图表中将显示(填数字)项数据。
-
2、某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：
待排序数据已存储在数组a中(a(1)~a(n))
For i= 1 To n-2
k= i
For j=
‘①If a(j)>a(k) Then k =j
Next j
If k<>i Then t= a(i)： a(i)= a(k)： a(k)=t
Next i
For i= 1 To n\ 2
j=2*i-1
If a(j)< a(j+ 1) Then t= a()： a()=a(j+ 1)： a(j+1)=t
Next i
For i=
‘②t= a(i)：j-i
Do While t> a(j)
a(j+1)=a()：j=j
Loop
‘③Next i
上述程序段中3处方框处的代码分别为（ ）
A、①i+1 To n Step 2②2 To n Step 2③a(j+1)=t B、①i+2 To n Step 2②3 To n Step 2③a(j+1)=t C、①i+2 To n Step 2②2 To n Step 2③a(j)=t D、①i+1 To n Step 2②3 To n Step 2③a(j)=t -
3、某对分查找算法的部分VB程序如下：
i=1：j=12：k=0：s=””
key= Va1(TextI Text)： c=N： flag= False
Do While i<= j And flag= False
m=(i1+j+1)\2：k=k+1
If key= a(m) Then c=Y： flag=True
If key >a(m) Then j= m-1 Else i =m+1
s=s& Str(a(m))
Loop
Text2 Text s： Text3 Text= c
数组a(1)到a(12)的值依次为“991．85．76，68．61，53，42．34，27，20，13”，执行该程序段后，下列说法正确的是（ ）
A、该程序段只能进行两位正整数的查找 B、在文本框Text1中输入两位任意正整数，则k的值介于1和3之间 C、在文本框 Text1中输入76，程序执行后变量i和j的值分别为1和6 D、若文本框Text2中显示了两个正整数，则文本框Text3中显示的内容一定是Y -
4、有如下VB程序段：
For i=1 To 100
For j=i To 100
If j Mod i=0 Then a(j)=a(j)+1
Next j
Next i
Text1. Text=Str(a(30))
数组a各元素的初值为0，执行上述程序段后，文本框Text中输出的内容为（ ）
A、30 B、9 C、8 D、7 -
5、下列VB程序段用于读取某数据库中的数据，相应数据表结构如图所示（ ）
Dim adoConn As New ADODB Connection
Dim adoRs As New ADODB. Recordset
Dim a(1 to 1000)As String, b(1 to 1000) As Integer
adoConn ConnectionString "Provider=Microsoft. ACE OLEDB 12.0：DATA Source="& App. Path &\mydata. accdb
adoConn. Open
Set adoRs. ActiveConnection= adoConn
adoRs. Open “Select*From Score”
n=0
Do While Not adoRs. EOF
n=n+1
a(n)= adoRs. Fields(“学号”). Value
b(n)=adoRs.Fields(3). Value
adoRs. Move Next
Loop
adoRs. Close：adoConn. Close
下列对于该程序段的理解正确的有
①程序连接的数据库文件名是“ \mydata. accdb”
②程序打开的数据表名称是“ Score"
③程序将数据表中的语文成绩存入数组b
④程序运行后，变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为adoConn. close
A、①②④ B、②③④ C、②④⑤ D、②③④⑤ -
6、下列VB表达式中的值必定为一个两位正奇数的是（ ）A、Int(Rnd (*90+11) B、Int(Rnd0*45+5)*2+1 C、Int(Rnd (*88+10)+1 D、Int(Rnd0*90+11)*2+1
-
7、某算法的部分流程图如图所示，执行这部分流程，输入n的值为5，则输出值依次为（ ）
A、4，16 B、4，5 C、5，16 D、5，5 -
8、使用 Photoshop软件创作“垃圾分类．psd”的宣传画，部分界面如图所示，下列说法正确的是（ ）
A、可以使用自由变换命令改变“小女孩”图层的图像大小 B、可以交换“小女孩”图层与“宣传语”图层的位置，且不会影响作品的整体呈现效果 C、“宣传语”图层使用了“波浪”滤镜效果 D、将该文档存储为BMP文件，则该BMP文件的大小约为2．24B -
9、使用 Goldwave软件编辑某音频文件，部分界面如图所示，在当前状态下执行“删除”命令，再插入2秒静音后按原格式参数保存，则保存后的声音文件存储容量约为（ ）
A、516．KB B、689KB C、1MB D、2MB -
10、使用 UltraEdit软件观察字符内码，部分界面如图所示，下列说法正确的是（ ）
A、图中字符共有9个ASCII码字符 B、大写字母N的十六进制内码为48 C、图中第一个中文字符的二进制内码为10111000 11011111 D、存储图中字符共需13个字节 -
11、小王使用 Access软件设计“学生信息”数据表，其中设计最合理的是（ ）A、
B、
C、
D、
-
12、下列应用中，体现人工智能技术的是（ ）
①在微信中将对方发来的语音转换为文字
②使用某OCR软件中的扫描图像功能，将一份杂志的目录页面扫描成JPG文件
③某停车场管理系统通过调用出、入口的摄像头对汽车车牌进行拍照并识别，从而实现无人管理
④小明在Word中输入了某一错别字时，该错别字被自动更正
A、①③ B、②④ C、①③④ D、②③④ -
13、下列有关信息和信息技术的说法，错误的是（ ）A、信息可以被重复使用而不会像物质和能源那样产生损耗 B、信息具有载体依附性，因此不能脱离它所反映的事物被存储和传播 C、语言、文字、图像、形体动作等是常见的信息表达方式 D、现代信息技术主要包含计算机技术、通信技术、微电子技术、传感技术等
-
14、IPv6 是英文“Internet Protocol Version 6”（互联网协议第 6 版）的缩写。IPv6地址总共有128位，为了便于人工阅读和输入，IPv6地址使用16进制数表示，划分成8个块，每块4位，块与块之间用“:”隔开，如：ABCD:EF01:0000:0000:ABCD:EF01:0000:6789
同时，对于多个地址块为 0 的情况时，可以使用“::”号，进行化简。化简原则：
①全 0 块“0000”，可以化简为“0”
②连续多个全0块，可以化简为“::”
③一个IPv6地址中只能出现一个“::”，出现多个全 0块时，“::”要化简最长的一段，没有最长的就将最左侧的一段化简为“::”
④“::”可以出现在地址开头或结尾具体示例如下：
化简前
化简后
ABCD:0000:2345:0000:ABCD:0000:2345:0000
ABCD:0:2345:0:ABCD:0:2345:0
FBCD:EF01:0000:0000:0000:0000:0000:6789
FBCD:EF01::6789
BBCD:0000:0000:0000:ABCD:0000:0000:6789
BBCD::ABCD:0:0:6789
0000:0000:0000:0000:0000:0000:0000:0001
::1
2001:0000:0000:0000:0000:0000:0000:0000
2001::
程序界面如图所示：
实现上述功能的VB程序如下，请回答下列问题：
(1)、请在划线处填入合适的代码。Private Sub Text1_Change()
Dim a(1 To 8) As String, ipstr As String, ips As String
Dim lenth As Integer, max_lenth As Integer, start As Integer
ipstr = Text1.Text
For i = 1 To 8
a(i) = ① ' 将IPv6分段存入数组a
Next i
'对数组进行处理，如果字母或非零数字开头，则不用处理；如果全是数字，则压缩成 0，如果前导为 0，则去掉，处理完毕存回数组。
'///------ 处理过程略------/////
'如果只有一串，则将该串“0”用“::”代替，如果不止一串，则将最长的一串“0”简化为“::”，如果有连续 0，则将左边的一串零简化，右侧保留。
max_lenth = 0
For i = 1 To 7
If ② Then
lenth = lenth + 1
Else
If lenth > max_lenth Then
max_lenth = lenth: start = i - lenth: lenth = 0
End If
End If
Next i
If lenth > max_lenth Then max_lenth = lenth: start = i - lenth
'根据连续0串的位置确定输出简化后的结果
ips = ""
If start = 1 And max_lenth = 7 Then '开头是0且全0
ips = "::"
ElseIf start = 1 Then '开头是0但不全为0
ips = "::"
For i = start + max_lenth + 1 To 7
ips = ips + a(i) + ":"
Next i
ips = ips + a(i)
ElseIf start > 1 And start + max_lenth = 8 Then '开头不是0但0到最后
For i = 1 To start - 1
ips = ips + a(i) + ":"
Next i
ips = ips + ":"
ElseIf start > 1 Then '开头不是0且0不到最后
For i = 1 To start - 1
ips = ips + a(i) + ":"
Next i
ips = ips + ":"
For i = ③ To 7
ips = ips + a(i) + ":"
Next i
ips = ips + a(i)
Else '无连续0出现
For i = 1 To 7
ips = ips + a(i) + ":"
Next i
ips = ips + a(i)
End If
Text2.Text = ips End Sub
① ② ③
(2)、IPv6地址：3BCD:0000:0000:ABCD:0000:0000:0000:6789，则化简后为。 -
15、小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到n个非降序数保存在数组a(1)—a(n)中，并显示在 List1中。在文本框Text1中输入成绩key，单击“查找”按钮，则在标签 label1中显示共有多少位同学的成绩大于等于该成绩。
(1)、加框1处的程序代码有错，应改为。(2)、请在划线处填入合适代码：Dim a(1000) As Integer, n As Integer Private Sub Command1_Click()
'从数据库获取n 个成绩存储在 a(1)---a(n)组中，代码略
For i = 2 To n ‘排序
tmp = a(i)
j = 1
Do While tmp > a(j)
j = j + 1
If ① Then Exit Do
Loop
For k = i To j + 1 Step -1
a(k) = a(k - 1)
Next k
'改错 （1） Next i
For i = 1 To n List1.AddItem Str(a(i))
Next i End Sub
Private Sub Command2_Click()
Dim key As Integer, i As Integer, j As Integer, m As Integer
key = Val(Text1.Text)
i = 1: j = n
Do While i <= j
m = (i + j) \ 2
If ② Then
j = m - 1
Else
i = m + 1
End If
Loop
Label1.Caption = "共有" + ③ + "位同学大于等于该成绩。"
End Sub
①②③
-
16、某同学创作了一个关于“鲲龙 AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：
图 1
(1)、如图1所示，要获得透明背景的鲲龙图像，下列操作中可以实现该效果的是 (多选，填字母：A .选中“背景”图层并删除，然后存储为png格式 / B .选中“背景”图层，设置不透明度为0%，然后存储为 png 格式 / C .选中“背景”图层，用橡皮擦擦除其中的图像，然后存储为png格式 / D .选中“背景”图层，设置为不可见，然后存储为png格式)。
图 2-a
图 2-b
(2)、制作“文字”图层动画时，首(左图)尾(右图)关键帧的部分属性界面如图2-b所示，可推测大雁的移动方向是 (单选，填字母：A .向左上/B .向左下/C .向右上/D .向右下)(3)、“飞机”图层在第1至50帧实现飞机在空中飞行到当前位置的过程中逐渐消失的动画效果，若要使“飞机”图层的动画效果在第40帧结束，应进行的操作是。(4)、“声音”图层的同步方式如图3所示，若在第20帧处执行“清除关键帧”操作，则声音播放时长为秒（保留1位小数）。
图 3
(5)、要想通过单击“更多”按钮，打开同一目录下的“kunlong.docx”文件了解更多详情。则在该按钮上添加的动作脚本是。 -
17、某校对高一进行了七选三科目的摸底统计，数据情况如图所示。请回答下列问题：
图 1
(1)、图1区域N2:T15的公式是从N2单元格通过自动填充功能得出，可知T2单元格公式为。（提示：SUMPRODUCT 函数返回相应的数组或区域乘积的和。例如：=SUMPRODUCT((A4:A500="101")
*(D4:D500="物理"))表示在数据区域 D4:D500 中统计“101”班选“物理”的人数）
(2)、对图1中各班级的数据按技术选科人数进行降序排序，应选择的数据区域为。(3)、由图1的数据制作的图表如图2所示，则制作该图表的区域为。
图 2
(4)、复制图1中L1:T15 的数据到新工作表中，对生物和物理学科分别按图3所示的条件进行筛选，则筛选结果为（填班级名称）
图 3
-
18、下列VB程序段的功能为：对数组a中的n个元素进行排序，生成左右交替上升的数据系列。如排序前a中元素依次为：21，33，56，11，44，60，程序运行后a中元素依次为：11，33，56，60，44，21。
For i=1 To ①
k=i
For j=i+1 To n-i+1
If a(k)>a(j) Then k= ②
Next j
If k<>i Then t=a(k):a(k)=a(i):a(i)=t For j= ③
If a(j)<a(j+1) Then a(j)=a(j)+a(j+1) : a(j+1)=a(j)-a(j+1):a(j)=a(j)-a(j+1) Next j
Next i
上述程序段3个划线处的表达式分别为（ ）
A、① n-1 ② j+1 ③ i To n-i+1 B、① n-1 ② j+1 ③ i To n-i C、① n\2 ② j ③ i+1 To n-i D、① n\2 ② j ③ i+1 To n-i+1 -
19、有如下 VB 程序段：
i=1：n=5
Do while i<=n
x=Int(Rnd*9)+1
If x Mod 2=1 Then
a(i)=x
Else
a(n)=x:n=n+1
End If
i=i+1 Loop
数组元素的初值均为0，执行该程序段后，a(1)至a(5)的值可能是（ ）
A、1 , 3 , 5 , 5 , 0 B、3 , 3 , 0 , 8 , 8 C、0 , 1 , 0 , 4 , 2 D、7 , 1 , 3 , 9 , 8 -
20、有如下 VB 程序段：
For i = 1 To 2
For j = 1 To 6 - i
If a(j) - a(j + 1) > 0 Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i Text1.Text = "" For i = 1 To 6
Text1.Text = Str(a(i)) + Text1.Text Next i
数组元素a(1)到a(6)的初值依次为15，11，58，38，26，9，执行该程序段，文本框Text1显示的内容是（ ）
A、9 58 11 38 15 26 B、11 15 26 9 38 58 C、58 38 9 26 15 11 D、58 9 38 11 26 15