相关试卷
-
1、信息系统管理员是最大的公共信息的采集者、处理者和拥有者。
-
2、网络技术的飞速发展推动人类社会生产力向前发展，并相应地促进生产关系发生转变，从而推动社会前进的角色。
-
3、信息社会本质上是“以信息活动为基础”的社会。
-
4、2003年12月再瑞士召开的第一次“信息社会世界峰会”正式确认“信息社会”的到来。
-
5、高中生学习信息技术的目的是（ ）。A、提高电脑水平 B、会考的需要 C、提高自身的信息素养 D、学会用电脑解决其他学科的问题
-
6、社会发展至今，人来赖以生存和发展的基础资源有（ ）。A、信息、知识经济 B、物质、能源、信息 C、通讯、材料、信息 D、工业、农业轻工业
-
7、虚拟空间中的大量数据库和服务器经由各种网络联结在一起，成为现实空间的 ( )。A、备份 B、缓存 C、映射 D、扩展
-
8、（ ）是信息社会的显著特征。A、数字化 B、信息化 C、网络化 D、社会化
-
9、（ ）的处理和服务是充分利用现代信息技术实现社会管理和公共服务的新型政府治理模式。A、数据资源 B、网络数据 C、硬件信息 D、在线公共信息
-
10、信息社会典型的社会特征是（ ）。A、网络化 B、信息化 C、智能化 D、数据化
-
11、从经济学的角度去测度信息社会，将知识产业分为多个方面，以下（ ）不属于知识产业。A、教育 B、大众传媒 C、数字化管理师 D、信息服务业
-
12、在信息社会背景下，开展调查的过程中，收集的数据一定要具有（ ）。A、完整性 B、可用性 C、真实性 D、多样性
-
13、世界信息社会日是（ ）。A、5月17日 B、6月1日 C、4月1日 D、3月8日
-
14、现在我们常常听人家说到IT行业各种各样的消息，那么这里提到的“IT”指的是（ ）。A、信息 B、信息技术 C、通信技术 D、感测技术
-
15、 在Text1中输入一个1-26之间的数字n，点击“产生”按钮，在Text2中产生n个不重复的大写字母，中间用逗号隔开（图a），点击一次“最小值”按钮，Text2中最小的字母会掉落到List1中，并将Text2中对应的字母和后面的逗号删除（图b），再点击一次“最小值”按钮，剩余字母中的最小值继续掉落（图c）。（ASC(“A”)=65，CHR(65)=“A”）
(1)、根据描述，如产生的字母为“H,K,C,B,N,”，第三次点击“最小值”按钮后Text2中显示内容为；(2)、请在划线处填入合适的代码。Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim zm As Integer, flag As Boolean, zf As string
Randomize ‘重置rnd函数，确保每次产生的随机数不一致
zf = ""
n = Val(Text1.Text)
For i = 1 To n
zm = Int(Rnd * 26 + 65)
For j = 1 To Len(zf) Step 2
If Asc(Mid(zf, j, 1)) = zm Then
flag = True
Exit For
End If
Next j
If flag = False Then zf = zf + Chr(zm) + "，"
Next i
Text2.Text = zf
End Sub
Private Sub Command2_Click()
Dim i As Integer, zf As string
zf=Text2.Text
k = 1
For i = 3 To Len(zf) - 1 Step 2
If Mid(zf, k, 1) > Mid(zf, i, 1) Then k = i
Next i
List1.AddItem Mid(zf, k, 1)
Text2.Text =
End Sub
-
16、某仓库对货物的编码规则为：货物类型（4-8位英文字母）货物编码（4-8位数字）货物校验码。货物编码的每一位数除以2产生的余数，倒序输出即是货物正确的校验码，现编写如下VB程序，如图在Text1中输入货物完整编码后，判定校验码是否符合标准，并在Label1中输出结果。
(1)、由程序可知，此程序中按钮的名称为。(2)、请在划线处填入合适的代码。Private Sub check_Click()
Dim s as string, ss as string, s1 as string, s2 as string
Dim i as integer, bz as integer
bz = 0
For i = 1 To Len(s)
ss = Mid(s, i, 1)
If ss = "-" Then
bz = bz + 1
ElseIf bz = 1 Then
s1 = CStr() + s1 ‘Cstr函数是在str的基础上去除前导空格
ElseIf bz = 2 Then
s2 = s2 + ss
End If
Next i
If Then
Label1.Caption = "符合标准"
Else
Label1.Caption = "不符合标准"
End If
End Sub
-
17、使用Access软件打开数据库，部分界面如下图所示。
(1)、当前状态下（可以/不可以）对数据表“经典灾难片”重命名为“电影”。(2)、当前数据表可以通过（选择上图的A或B）导出到EXCEL表格中，其中字段“ID”为7记录的“重放”字段值为。(3)、当前状态下，添加一个片名为“我和我的家乡”的电影相关信息。新记录是第条记录。(4)、当前数据表中，“片长”字段可能的数据类型为 。（多选，填字母）A、自动编号 B、文本 C、数字 D、备注 E、日期/时间 -
18、某地区进行了三个类别的教师招聘，并用EXCEL软件进行处理，如图a所示。
(1)、总分是将“笔试”成绩和“面试”成绩分别乘以对应的权重相加所得。通过E3单元格的公式，对E4:E32进行自动填充，E4单元格中显示的结果是。（单选，填字母：A .#DIV/0! / B .#REF / C .0.00 / D .76.55）若要通过该公式能正确自动填充到E4:E32，则E3单元格的公式应改为。(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是 ；
从1图b到图c可通过设置图d中（填字母A/B/C/D）得到。
(3)、为了获得小学音乐类别中总分最高的准考证号（若存在符合条件的多个准考证号，则全部选取）。下列方法可行的是 （多选，填字母）A、以“报考职位”为小学音乐进行筛选，再以“总分”为关键字降序排序，选取排在最前面的记录。 B、以“报考职位”为主要关键字，以“总分”为次要关键字，均按降序排序，选取排在最前面的记录。 C、以“报考职位”为小学音乐进行筛选，再以“总分”为最大的一项进行筛选，然后选取筛选后的记录。 D、以“总分”为关键字进行降序排序，再以“报考职位”为小学音乐进行筛选，选取排在最前面的记录。 -
19、有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
Dim s As String
Randomize
i = 1: s = "1"
Do While i <= 6
x = Int(Rnd * 9) + 1
If x Mod 2 = i Mod 2 Then
s = s + Str(x)
i = i + 1
End If
Loop
Label1.Caption = s
End Sub
运行程序后，标签Label1中可能出现的是（ ）
A、1 8 3 4 5 2 B、1 9 4 3 7 5 6 C、1 9 4 7 6 5 2 D、1 8 1 2 7 6 1 -
20、有如下VB程序段：
Private Sub Command1_Click()
Dim s As String, ch As String
Dim n As Integer, t As Integer, c As Integer
s = "Go-2020-12"
n = Len(s):t = 0
For i = 1 To n
ch = Mid(s,i,1)
If ch >= "0" And ch <= "9" Then
t = t + Val(ch)
Else
c = t: t = 0
End If
Next i
Label1.Caption = Str(c)
End Sub
执行完以上程序段后，标签Label1上显示的内容为（ ）
A、7 B、2 C、3 D、4