相关试卷
-
1、使用Access软件创建的“无人机”数据表，其设计视图的部分界面如图所示，下列说法正确的是( )
A、可以修改“序号”字段的值 B、可以再建一个“自动编号”类型的字段 C、插入新记录时，可以在“优惠”字段输入文字“是” D、可以在品牌和价格之间插入一个数字类型的新字段 -
2、下列有关浏览器的应用，说法正确的是( )A、HTTP协议主要用于浏览器与Web服务器之间的信息传输 B、通过浏览器将电子邮件读取到本地计算机采用的是SMTP协议 C、使用浏览器可对当前正在浏览的网页进行编辑 D、选择“网页，仅HTML(*.htm；*.html)”的方式保存网页可将图片保存到本地磁盘
-
3、下列有关信息的说法，正确的是( )A、同样的信息不能加载于不同的载体之上 B、设置邮箱，限制邮件大小，过滤垃圾邮件，无助于保护个人信息 C、加密后的文本不是信息 D、教务处为每位同学分配准考证号，属于信息的编码
-
4、小刘在玩一个数字游戏，给定一个n位正整数(n<=20)，根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数38265083，保留4位，最大数为8683。算法如下：
1)在左边第1位至最后第n个数(从右向左的第n个数)之间，找出最大值，确定新数的最高位；
2)从最大值的下个位置到第n-1个数之间查找最大值，确定新数的第二位。
3)依次类推，确定最终的最大数。
设计了一个VB程序，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。
(1)、如果输入的原数是3635132，保留4位数字，则输出的新数是。(2)、实现上述功能的VB代码如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String ′xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs=“ ”
ys= Text1.Text
n= Len(ys)
k= Val(Text2.Text)
F= True
If ys=“ ” Or n > 20 Or k = 0 Or k > n Then
Label4.Caption =“输入的原数或保留位数不符，请重输！”
F=False
End If
For i= 1 To n
If a(i)<“0” Or a(i)>“9” Then
Label4.Caption=“输入的原数不是数字，请重输！”
Text1.Text=“ ”
F= False
End If
Next i
If F= True Then
h = 1
For i = 1 To k
For j= h To
If a(j) > a(h) Then h = j
Next j
h= h + 1
Next i
Text3.Text= xs
End If
End Sub
-
5、星期天，小杰来到动物园游玩，园内共有N个景点，每个景点都有一个标号，标号为1至N。现在只知道每个景点有一条路连接下一个景点。小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。
例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2。
景点号
1
2
3
4
5
下一景点号
2
4
5
5
2
则他可以从2号景点出发，最多可以游玩2号、4号、5号三个景点。
程序代码如下：
Private Sub Command1_Click()
Dim a(1 To 100) As Integer, d(1 To 100) As Integer ′数组a存放下一景点号
Dim jd As String, m As String, c As Integer, i As Integer
Dim s As Integer, p As Integer, k As Integer, ans As Integer
jd = Text1.Text + “，”
s = 0: c = 0
For i = 1 To Len(jd)
m = Mid(jd, i, 1)
If m <> ”，” Then
s = s * 10 + Val(m)
Else
c=c+1：a(c)=s：s=0 ′含义
End If
Next i
ans = 0: k = 0
For i = 1 To c ′枚举游览起点
For k = 1 To c
d(k) = 0
Next k
If d(i) = 0 Then
p = i
Do While p <= c
If d(p) = 0 Then
k=k+1：d(p)=k
Else
y= ② ′填空
If y>ans Then ans=y
k = 0
Exit Do
End If
′改错Loop
End If
Next i
Text2.Text = Str(ans)
End Sub
(1)、若要实现显示“景点连接情况：”的Text1在程序运行时默认为空，则需要将Text1的属性设置为空。(2)、若有7个景点，且每个景点的连接情况为：6，3，7，2，7，5，4，那么小杰最多可以游玩的景点数是。(3)、程序代码中，有下划线的语句“a(c)=s”代表的含义是。(4)、程序代码中，程序代码填空：y=。(5)、程序代码中，加框处代码有错，请改正。 -
6、小王创作“宣传禁烟”的多媒体作品，请回答相关问题。(1)、首先使用Photoshop软件制作一张背景图片，如下图所示。
要去除中间含有“禁烟”标志的圆形图案，下列工具可行的有(多选，填字母：A . 剪裁
/B . 仿制图章 
/C . 画笔 
/D . 橡皮擦 
)。(2)、然后使用Flash软件制作动画，界面如下图所示。
若要使得“烟”图层的动画一开始就出现，应进行的操作是。
(3)、“按钮”图层第27帧到第50帧实现了“控烟协会”按钮实例从右侧向左移入的动画效果，该动画类型为(填字：动画补间/形状补间/逐帧动画)。(4)、“标题动画”图层中放置了“标题动画”实例，编辑该元件，界面如下图所示，该场景动画播放时，该动画反复播放，若要使得该动画播放一次就停止，应进行的操作是。
(5)、测试影片时，单击“诗词网”按钮，实现在浏览器中打开中国控烟协会的网站(网址为：www.catcprc.org.cn)，则该按钮的动作脚本是。 -
7、如图1是某校信息技术成绩概况表，分析回答下列问题：
图1
(1)、如图1所示，区域C3：C14是通过公式计算得到的，要实现计算，可以选择区域中的C3单元格，输入公式 ， 然后利用自动填充功能完成其他单元格的计算。(提示：合格数=实考数*(1-不及格率))
(2)、若要将表格中的数据对班级按“优秀率”进行从高到低的排序，应选择的排序数据区域为。(3)、若要用图表直观显示各班实考人数占全校实考人数的占比情况，应选择的数据区域是。(4)、根据图1中数据制作的图表如图2所示，在下列操作中，能引起图表发生变化的是(多选，填序号：A . 以“平均分”为关键字对表格数据进行排序；B . 选定区域D3：D14设置单元格格式，保留2位小数；C . 把单元格D6的数据手工修改为73.4；D . 通过函数计算出全校平均分，填在单元格D15 )。
图2
-
8、对某数组a中的n个元素随机赋0、1或2这三种值之一，现按如下算法对数组a从小到大升序排序，设置两个变量：Left记录第一个1的位置，其左侧全是0，Right记录第一个2的前一位置，其右侧全是2。使用i从头到尾查询一遍，根据a(i)的值决定其是否与a(Left)或a(Right)交换，直至i与Right相遇。
left = 1: right = n: i = 1
Do While i <= right
If a(i) = 0 Then
tmp = a(left): a(left) = a(i): a(i) = tmp
left = left + 1
i = i + 1
ElseIf a(i) = 1 Then
i = i + 1
Else
End If
Loop
要实现上述排序算法思想，则横线处代码应该是( )
A、tmp=a(i)：a(i)=a(right)：a(right)=tmp: right =right -1 B、tmp=a(i)：a(i)=a(right)：a(right)=tmp: right =right-1：i=i+1 C、i=i-1 D、right=right-1：i=i-1 -
9、运行下列VB程序，在文本框Text1中输入十进制数22，单击按钮后，在标签Label1输出转换后的五进制数。
Private Sub Command1_Click()
Dim y As Integer
Dim s As String, Dim r As Integer
y = Val(Text1.Text)
s = “ ”
Do While y <> 0
Loop
Label1.Caption = s
End Sub
方框中的代码由以下三部分组成：
①s=Str(r)+s ②r=y Mod 5 ③y = y \5
代码顺序正确的选项是( )
A、①②③ B、③②① C、②①③ D、③①② -
10、有如下 VB 程序段：
bottom = 7
i = 2
Do While i <= bottom - 1
If i Mod 2=0 And a(i)=a(i-1)+a(i+1) Then
For j = i To bottom - 1
a(j) = a(j + 1)
Next j
bottom = bottom - 1
End If
i = i + 1
Loop
For i = 1 To bottom
Text1.Text=Text1.Text+Str(a(i))
Next i
数组元素a(1)到a(7)的值依次为“26，94，68，42，69，27，132”。若该程序段执行后，文本框Text1中显示的内容是( )
A、26 42 27 132 B、26 68 42 27 132 C、26 42 69 27 132 D、26 68 42 69 27 132 -
11、有VB程序如下：
Private Sub Command1_Click()
Dim a(0 To 9) As Integer, t as Long
t = Val(Text1.Text)
Do While t <> 0
a(t Mod 10) = 1
t = t \10
Loop
For i = 0 To 9
x = x + a(i)
Next i
End Sub
若在文本框Text1中输入10242048，则程序执行后，变量x的值为( )
A、1 B、2 C、5 D、10 -
12、某算法的部分流程如图所示，输入“40”并执行这部分流程后，输出的sum的值是( )
A、91 B、90 C、21 D、1 275 -
13、使用UltraEdit软件观察字符“一带一路B&R 2019”的内码，部分界面如下图所示，下列说法正确的是( )
A、图中共有8个非ASCII字符 B、字符“10”的内码值为3A C、在计算机中存储图中所有字符共需要15Byte的存储空间 D、字符“一”内码值的二进制表示为“11010010 10111011” -
14、下列关于人工智能的说法，不正确的是( )A、利用手机百度拍衣服找相似款属于人工智能技术的一种应用 B、淘宝VR购物给用户带来沉浸式的体验，使用的是人工智能技术 C、AlphaGo是一款围棋人工智能程序，它的计算能力远非人类所能比拟 D、基于生物特征识别技术的刷脸考勤是人工智能的一种生活化应用
-
15、某字符(限ASCII字符)加密算法，对明文中的每个字符进行下列加密处理：
1)将该字符的ASCII码转换成对应的2位十六进制数；
2)将产生的十六进制数互换位置；
3)步骤2)产生的二位十六进制数即为该明文字符加密后的密文字符。
小明按照上述方法，设计了一个字符串加密的VB程序，功能如下：单击“生成密文”按钮Command1，程序依次将文本框Text1中每个字符按上述规则进行加密处理，连接这些加密字符，最后在文本框Text2中输出加密结果。程序运行界面如图所示。
实现上述功能的VB程序如下：
(1)、按照上述加密算法，明文“B”生成的密文是。(2)、实现上述功能的VB程序如下，请在横线处填入合适代码。Private Sub Command2_Click()
Dim s As String, a As String, ans As String
Dim c As Integer, i As Integer
Dim s1 As String
s=Text1.Text
ans=” ”
For i=1 To Len(s)
a=Mid(s, i, 1)
s1=
ans=
Next i
Text2.Text=ans
End Sub
Function DToh(x As Integer) As String
Dim str As String
str=”0123456789ABCDEF”
Do While x <> 0
t=x Mod 16
x=x \16
Loop
End Function
-
16、学校投票选最佳德育导师，候选老师有30位，现给每位参选老师一个从1到30的编号，在全校师生中投票，并从中选出最高得票数的教师作为年度最佳德育导师。小李设计了一个计票的VB程序，将各位师生投票的编号输入到文本框Text1，每票之间用“，”隔开，单击“计票”按钮Command1，在列表框中显示各位导师的得票数，在文本框Text2、Text3中显示总得票数和最高得票，在标签Label2中显示最高得票的教师编号，如果最高得票有多位教师，则全部显示他们的编号。程序运行界面如图所示。
实现上述功能的VB程序如下。
Private Sub Command1_Click()
Dim s As String, i As Integer, j As Integer, s1 As String
Dim a(30) As Integer, max As Integer, c As String, sum As Integer
s=Text1.Text
i=1：t=0：sum=0
Do While i <= Len(s)
c=Mid(s, i, 1)
If c=“，” Or ① Then
a(t)=a(t)+1
t=0
sum=sum+1
Else
′改错End If
i=i+1
Loop
max=a(1)
For i=1 To 30
List1.AddItem “编号为”+Str(i)+ “的教师，得票数为”+Str(a(i))
If max < a(i) Then
max=a(i)
s1=“最高教师编号为：”+Str(i)
②
s1=s1+”，”+Str(i)
End If
Next i
Text2.Text=Str(sum)
Text3.Text=Str(max)
Label2.Caption=s1
End Sub
(1)、文本框Text1有一个名为Multiline的属值，当其值为True时，可以显示多行文本，为了使Text1能显示多行文本，应在FormLoad事件中应添加的语句是(单选，填字母：A . Text1 = True /B . MultiLine = True /C. Text1.MultiLine True /D . Text1.MultiLine = True)。(2)、上面加框处代码有错误，请改正。(3)、请在横线处填入适当的代码。① ②
-
17、小王创作主题为“国学启蒙”的多媒体作品，结合表a和图b请回答下列问题：
场景：主界面
类别序号：1
进入方式：直接进入
呈现方式：
⒈“国学启蒙”四字显示在舞台左上方
⒉“弟子规”、“三字经”、“百家姓”三个按钮出现在舞台中间
⒊背景音乐、弟子规、三字经、百家姓四段音频分别添加在“诵读”图层第1、26、27、28帧
⒋背景从头至尾呈现，动画播放至最后自动停止
呈现顺序说明：
⒈一开始出现背景、飞鸟，背景音乐，并依次出现“国学启蒙”四个字
⒉2秒后出现“弟子规”、“三字经”、“百家姓”按钮并停止动画播放，分别单击“弟子规”、“三字经”、“百家姓”三个按钮，仅播放本场景第26帧、27帧、28帧中对应应的弟子规、三字经、百家姓音频
表a
图b
(1)、表a属于多媒体作品脚本设计中的。(单选，填字母：A . 脚本大纲/ B . 文字脚本/C . 制作脚本/D.媒体元素分解)(2)、在制作本作品时，至少使用了(填数字)类元件。(3)、在当前状态下，将“飞鸟”元件从库中拖至舞台，则下列说法正确的是。(单选，填字母：A . “飞鸟”元件将出现在“国学启蒙”图层第25帧中/B . “飞鸟”元件将出现在“飞鸟”图层第25帧中/C . “飞鸟”元件将出现在“飞鸟”图层第1帧中/D . “飞鸟”元件将无法添加至舞台)(4)、为保证听取完整音频，则“诵读”图层第27帧中声音同步方式应设置为。(5)、根据制作脚本要求，单击“三字经”按钮实现仅播放本场景第27帧中的“三字经”音频，并停止播放动画，则该按钮上应添加的脚本命令为on(press){}。(6)、测试场景时，“背景”图层内容没有在一开始就显示，为实现背景从头到尾显示，下列操作方法可行的有。(多选，填字母：A . 选中“背景”图层第1帧执行“清除关键帧”操作/ B . 删除“背景”图层第1帧到第6帧/ C . 选中“背景”图层第7帧执行“复制帧”操作，在第1帧执行“粘贴帧”操作/ D . 将“背景”图层第7帧移到第1帧) -
18、小方使用Excel分析某网店2018年第四季度销售的相关数据，部分界面如下图所示：
(1)、表中本季总销量的计算是通过在L5单元格中输入公式，并将公式自动填充到L18单元格后得到的，请问，L8单元格中的公式是。(2)、建立了一张反应本季单品总盈的柱型图，如下图所示：应选择的数据区域是 ， 图表生成后，小方对本季单品总盈这列数据进行了
操作，已生成的图表(填“会”或“不会”)发生变化。
(3)、对表中各产品的“进价(元)”和“12月销量”的数据进行筛选操作，筛选条件设置如下图所示，则按此设置筛选出的产品有个。
-
19、下列VB程序段的功能为：生成n个不重复的随机整数，保存在数组a中，并升序排序。
Const n = 6
Dim a(1 To n) As Integer, f(1 To 10) As Boolean
Dim tmp As Integer, i As Integer, j As Integer, t As Integer
′f数组各元素的初值置为False，代码略
For i = 1 To
t = Int(1 + Rnd * 10)
If Not f(t) Then
a(i) = t : f(t) = True
For j =
If a(j)<a(j-1) Then
tmp=a(j)：a(j)=a(j-1)：a(j-1)=tmp
End If
Next j
Else
End If
Next i
上述程序段3个方框处的表达式分别为( )
A、(1)n - 1 (2)2 to i (3)i = i - 1 B、(1)n (2)i to 2 Step -1 (3)i = i - 1 C、(1)n - 1 (2)2 to i (3)t = Int(1 + Rnd * 10) D、(1)n (2)i to 2 Step -1 (3)t = Int(1 + Rnd * 10) -
20、某VB程序部分程序段如下：
For i = 1 To n - 1
For j=____________
If a(j) < a(j - 1) Then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
为了使此程序段能实现数组a中的数据升序排列，则划线处应填入的代码是( )
A、1 to n-i B、2 to n-i+1 C、n to i+1 D、i+1 to n