相关试卷
-
1、若要把《动物图谱》中华南虎的图片保存计算机中,下列设备合适的是( )A、数码相机 B、打印机 C、键盘 D、鼠标
-
2、下列关于获取信息的途径的描述,不正确的是( )A、通过电视可以收看体育赛事 B、通过电话可以获取气象信息 C、通过收听广播可以了解新闻 D、只能通过因特网获取信息
-
3、信息技术主要包括通信技术、传感技术、微电子技术和( )A、医疗技术 B、勘探技术 C、计算机技术 D、生物工程技术
-
4、智能手机的应用处于信息技术发展历程的( )A、第二次革命时代 B、第三次革命时代 C、第四次革命时代 D、第五次革命时代
-
5、南方中学要组织义务植树活动。同学们通过网上搜索,获得“3月12日是植树节”、“根据南方的气候条件,三、四月份植树最有利于树苗的生长”等信息,从而确定了植树的日期。这件事说明信息具有( )A、共享性和价值性 B、共享性和真伪性 C、价值性和真伪性 D、时效性和真伪性
-
6、以下哪个是信息?( )A、黑板 B、报纸 C、天气预报 D、太阳光
-
7、用VB编写的英文单词字频统计程序如图所示,在文本框Text1中输入文章,单击“统计”按钮Command1,在列表框List1输出单词与频次,在标签Label2中输出频次最高的单词,如频次最高的单词有多个,则输出时用逗号分隔。算法如下:
1)将文本框Text1中的文章保存到字符串变量s中。
2)从左往右扫描字符串s,用字符串word存储文章中依次出现的单词,将新出现的单词自动加入单词队列dic(i)中,单词出现的频次记录到对应的num(i)中。
如下方法扫描:
①从左往右扫描,当扫描到第i个字符时,如果是字母,继续扫描,否则,跳转到②,直至扫描结束;
②将b到i-1组成一个单词word,查询单词字典dic判断是否存在,如果不存在,将新单词插入单词字字典尾部dic(k),并且记录单词频次num(k)为1,如果dic字典中存在单词word,那么该单词对应频次增加1,再跳转到①。
(1)、在列表框List1中依次输出单词与频次,在标签Label2中输出频次最高的单词。实现上述功能的VB程序如下,请在划线处填入合适的代码。Private Sub Command1_Click()
Dim dic(1 To 10000) As String '存储自建单词字典
Dim num(1 To 10000) As Integer '存储单词出现的频率
Dim word As String, c As String, s As String, slen As Integer
Dim i As Integer, j As Integer, di As Integer, k As Integer
Dim nummax As Integer '记录最高的单词频率
Dim result As String '存储出现频率最高的单词串
s = Text1.Text: slen = Len(s)
j = 0 '存储每个单词的长度
k = 1 'k-1 为当前单词字典长度
nummax = 0
For i = 1 To 10000 '初始化单词字典频次
num(i) = 0
Next i
i = 1
Do While i <= slen
If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then j = j + 1
Else
If j <> 0 Then
word = LCase(Mid(s, i - j, j)) 'LCase()函数功能:单词统一为小写
di = 1
Do While word <> dic(di) And di < k
di = di + 1
Loop
If di = k Then '单词字典插入新单词
dic(k) = word
num(k) = 1
Else
End If
'单词在单词字典中已存在,对应频次加1
If num(di) > nummax Then nummax = num(di)
j = 0
End If
End If
i = i + 1
Loop
result = ""
For j = 1 To k - 1
List1.AddItem dic(j) + "" + Str(num(j))
If Then
If result = "" Then
result = result + dic(j) Else
result = result + "," + dic(j) '如出现频率最高的单词有多个,则用逗号分隔
End If
End If
Next j
Label2.Caption = "出现频率最高的单词是:" + result
End Sub
(2)、根据本题算法如图所示,若在Text1中将文章最后一行“so you must know how to use it.” 改为“so you must know how to use it3.”,单词统计结果(选填:会/不会)产生变化。
-
8、已知数组a中的元素按非递减有序排列,在程序运行时显示在Text1中。编写程序实现如下功能:删除数组的重复元素,并更新数组的长度,在Text2输出新的数组元素值。程序运行界面 如图所示。
(1)、要是程序运行时,窗体Form1标题立即立即显示为“删除重复数组元素”,可在(单 选:A .Form_Load()/B .Form_click()/C .Command1_Click())事件过程中添加Form1.Caption=“删除重复数组元素”语句来实现。(2)、为实现上述功能的VB程序如下,请在划线处补充缺失的代码。Const n = 20
Dim a(1 To n) As Integer
Dim lena As Integer '数组a的实际长度 Dim s As String
Private Sub Form_Load()
'生成lena个非递减序列,并输出到文本框text1中,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer i = 1
Do While i < lena
If a(i) <> a(i + 1) Then i =
Else
For j = i + 1 To lena
a(j - 1) =
Next j
lena =
End If
Loop
s = ""
For i = 1 To lena
s = s + Str(a(i))
Next i
Text2.Text = s
End Sub
-
9、小李制作了主题为“杭州亚运会”的多媒体作品,首先用 Photoshop 软件处理了图片, 然后使用 Flash 软件制作动画。请回答下列问题:(1)、如图a所示,下列说法正确的是()(多选,填字母:A .可以通过“填充”命令更改图层“Hangzhou 2022”的文字颜色/B .“背景”图层一定没有添加了“高斯模糊”的滤镜效果C .调整“场馆”和“背景”的图层顺序,场馆图像将不可见/D .将该图像文件保存为“a.jpg”,则“Asian Games”文字上的“外发光”效果不可见/E.无法直接删除“场馆”图层)
图a
(2)、将动画GIF文件“闪烁.gif”导入库中产生一个影片剪辑元件,则该元件中动画的动 画类型是(单选,填字母:A .逐帧动画/B .形状补间动画/C .动画补间动画)(3)、影片剪辑元件“礼花”的编辑界面如图b 所示。若在不改变其他动画效果的情况下,希望礼花的动画速度提高一倍,下列操作可行的是(单选,填字母:A .将帧频 改成 6fps/B .删除第11-20帧/C .将20帧移动至第 10 帧,并删除 11-20 帧)
图b
(4)、如图c所示,按钮一开始就出现,若要使按钮直到最后才出现,则应如何操作。
图c
(5)、测试影片时,动画播放到最后,停止。按钮出现,单击按钮,将停止声音(声音设置如图d所示),并打开 http://www.hangzhou.net网页。那么按钮上的动作命令是。
图d
-
10、小张收集了2018年和2019年浙江省文化和旅游厅收入和支出情况的信息,用Excel软件进行了数据处理,如图1所示,请回答下列问题:
图1
(1)、区域E3:E15的数据是通过公式计算得到的,在E3单元格输入公式后,用自动填充功能完成E4:E15的计算,则E8中的公式是。(2)、若要对浙江省文化和旅游厅的支出预算按照2019年的数据进行降序排序,则应选择的排序数据区域为。(3)、选中图1中A1:E9的数据区域复制粘贴到新工作表中A1开始的位置,在新工作表中对“2018年”和“2019年”设置的筛选条件如图2所示,则按此设置筛选出的项目有条。
图2
(4)、小张根据图1中数据直接制作了如图3所示的图表,创建图表的数据区域为。
图3
-
11、有如下程序段:
Dim i As Integer, Sum As Integer
Dim a(1 To 11) As Integer
Sum = 6
a(11) = 49
For i = 10 To 1 Step -1
a(i) = a(i + 1) - 1
If a(i) Mod 3 = 0 Then Sum = Sum + a(i)
Next i
Text1.Text = Str(Sum)
该程序段运行后,文本框text1中显示的内容是( )
A、174 B、180 C、36 D、42 -
12、下列VB语句可以产生10到99之间(包含10和99)随机整数的是( )A、Int(Rnd()* 100) B、Int(Rnd ()* 89 )+10 C、Int(Rnd ()* 90)+10 D、Int(Rnd()*91)+10
-
13、某算法的部分流程图如图所示。执行这部分流程,若输入a的值为36,则输出c的值为( )。
A、2 B、3 C、4 D、5 -
14、把一幅1024×768像素的24位彩色BMP图像存储为JPG格式,存储后容量为460KB,则图像压缩比约为A、5:1 B、10:1 C、20:1 D、40:1
-
15、某ACCESS数据表设计视图的部分界面如下图所示。下列说法正确的是( )
A、该数据表的名称为“注册用户信息表” B、数据表视图下,可以在“性别”字段输入“男性” C、“2018年1月1日”可以是“出生年月”字段的有效输入值 D、除“ID”字段的字段值不允许重复外其余字段的字段值都允许重复 -
16、用 UltraEdit 软件观察字符串“ 方程 x1+y2 = 10” 的内码,部分界面如图所示。
下列说法正确的是 ( )
A、字符“10”的二进制编码为 0100 0000B B、图中有9个ASCII编码,有4个字节的GB2312编码 C、字符“y”的内码是79H,则字符“z”的内码是80H D、小写字母和大写字母内码相差32D,则“Y”的内码为47H -
17、小张使用Word软件编辑某文档,部分界面如图所示。
下列说法正确的是 ( )
A、图中图片的环绕方式一定不是“ 嵌入型” B、在光标所在处按“ Delete” 键,可以删除“ 曹娥江与甬江” 下方的波浪线 C、接受所有修订后,图中文字变为“ 天台山( tiān tāi shān) 位于中国浙江省天台县城北” D、可使用查找替换功能将文档中的所有的“ 天台山” 一次性加粗显示,这采用了人工智能技术 -
18、下列有关网页与浏览器的说法,正确的是( )。A、使用搜索引擎对相同关键词检索两次,得到的结果一定相同 B、用HTML(超文本标记语言)可以描述网页中的文本、图像和超链接等元素 C、在IE浏览器中,使用“添加到收藏夹”功能可以保存正在浏览的网页内容 D、在IE浏览器中,以“文本文件(*.txt)”类型保存网页,可以保存网页中的超链接地址
-
19、下列有关信息的说法,不正确的是( )A、信息可以被加工处理 B、计算机中的信息是以二进制的形式存储的 C、信息可以在不同形态间转化 D、电影技术、微电子技术和通信技术都是现代信息技术
-
20、一张骨牌由上下两行共四个格子构成,每个格子有一个1到6之间的数字。现在一共有5张骨牌,从左到右排成一排,定义每张骨牌的差值为:骨牌第一行的数字和减去第二行的数字和;5张骨牌的差值为:每张骨牌的差值和的绝对值。
如图a中,5张骨牌的差值为:|(3+3-4-4)+(6+3-2-5)+(2+3-4-5)+(1+5-3-3)+(1+1-1-1)|=4。
每张骨牌都可以顺时针旋转90度,效果如图b所示。现在最多可以选择其中一张骨牌进行旋转,使得旋转后的骨牌差值变小。求一种旋转方案,并输出骨牌差值的最小值。
图a
图b
编写VB程序,实现上述功能。运行程序,在文本框Text1中依次输入5张骨牌上的数字,单击“计算”按钮Command1,在文本框Text2、Text3、Text4中输出结果。程序运行界面如图b所示。
(1)、若图a中第1张骨牌的数字修改为,1、2、6、6,则骨牌差值的最小值为。(2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。Dim a(1 To 20) As Integer ‘依次存储5张骨牌上的数字
Dim d(1 To 5) As Integer ‘依次存储5张骨牌,上下两行的差值
Const n = 5
Private Sub Form_Load()
'从文本框Text1读取5张骨牌上的数字,依次存入数组a
'a(1)~a(4)依次存储第一张骨牌从左到右从上到下四个数字
'a(5)到a(20)依次类推
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, up As Integer, down As Integer, t As Integer, k As Integer
Dim id As Integer, times As Integer, x As Integer, ans As Integer
For i = 1 To n
up = a(4 * i - 3) + a(4 * i - 2)
down = a(4 * i - 1) + a(4 * i)
d(i) = up - down
t = t + d(i)
Next i
id = 0 : times = 0
ans =
If ans <> 0 Then
k = 1
Do While k <= n
For x = 1 To 3
temp =
If temp < ans Then
ans = temp
id = k
End If
If temp = 0 Then Exit Do
Next x
k = k + 1
Loop
End If
Text2.Text = CStr(id)
Text3.Text = CStr(times)
Text4.Text = CStr(ans)
End Sub
Function turn(ByVal k As Integer, ByVal x As Integer) As Integer
‘求将第k张骨牌,顺时针旋转x次后,上下两行的差值,代码略
End Function