相关试卷
-
1、人工智能是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。下列应用中，没有应用人工智能技术的是 （ ）A、OCR光学字符识别 B、人脸识别 C、微信语音聊天 D、语音输入文本
-
2、下列关于互联网信息，相关说法不正确的是（ ）A、信息资源的评价方式中专家或核心刊物评价可信度最高 B、接入Internet的计算机必须安装 TCP/IP协议 C、自动网页搜索技术是搜索引擎核心技术之一 D、浏览器打开网页时，采用的是网络通信协议是HTML
-
3、下列关于信息技术相关的描述，正确的是（ ）A、信息技术就是用计算机处理信息的技术 B、随着时间流逝，很多信息消失了，说明信息在共享过程中信息会损耗 C、文字、图像、语音、视频和形体语言等是信息的表达技术 D、信息可脱离它所反应的事物被存储和保留
-
4、某密文是由一串数字加密得到，其解密规则是:①对连续重复的大写字母，仅保留1个;②在去重后的文本中，从首字符开始间隔5个字符取1个，依次连接取出的字符，即为明文｡
编写解密的VB程序，功能如下:在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中显示去重后的文本，并在标签Label1中显示明文｡程序运行界面如下图所示｡
(1)、实现上述功能的VB程序如下，请在划线处填入合适的代码｡Private Sub Command1_Click()
Dim s1 As String， s2 As String， c As String， mw As String
Dim i As Integer
s1 = Text1.Text
s2 = Mid(s1， 1， 1)
For i = 2 To
c = Mid(s1， i， 1)
If c >= "A" And c <="Z" Then
If Then s2 = s2 + c
Else
s2 = s2 + c
End If
Next i
mw = " "
i = 6
Do While i <= Len(s2)
mw = mw+Mid(s2， i， 1)
Loop
Text2.Text = s2
Label1.Caption = mw
End Sub
(2)、若密文为“XXXX923JBBBYYYY##43aG544Zo$$a0ZZZSSS@wwwIiwf3fYYYrinns”，则相对应的明文为。 -
5、编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1，在列表框List1中显示结果，运行效果如1图所示｡结果包含两列数据，第1列为两数之间的摄氏温度值(间隔1度、升序)，第2列为对应的华氏温度值｡
1图
(1)、要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口(2图)中将属性的属性值修改为“转换”｡
2图
(2)、为实现上述功能，请在方框处填入合适代码｡Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While ②
f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
Loop
End Sub
(3)、划线处填入合适的选项：A.i <= t2 B.f <= t2 C.t1 > t2 D. i < f
① ②
-
6、小闻创作名为“幸福一家”的多媒体作品｡她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画｡请回答下列问题：
图 a
(1)、使用Photoshop编辑图片时，如图a所示，将作品存储为BMP格式文件时，不想在图像中显示文字“一家人” ，下列操作可行的是(多选，填字母：A . 执行“拼合图像”命令 / B .删除“一家人” 图层 / C .隐藏“一家人”图层 / D .调整“人物”图层和“一家人”图层的顺序 / E . 将 “一家人”图层的不透明度调整为0%，再存储为BMP格式文件)｡(2)、使用Flash软件编辑“幸福一家.fla”｡“场景 1”场景的部分制作界面如图b所示，“文字 1”图层利用库中元件制作文字“过去的每一天里”淡入的动画，该动画类型是(单选，填字母：A .逐帧动画 / B .形状补间动画 / C .动画补间动画)｡
图 b
(3)、如图b所示，已知“控制”图层中添加了“Replay”按钮实例，测试影片时该按钮最后才出现，若要按钮在动画播放过程中一直可见，下列操作可行的是(多选，填字母：A .将“控制”图层的第30帧移至第1帧/ B .删除“控制”图层的第1帧至第29帧 / C .选择“控制”图层的第1帧并执行“清除帧” / D .选择“控制”图层的第1帧并执行“清除关键帧”/ E .将“控制”图层的第30帧执行“复制帧”，再选择第1帧执行“粘贴帧”)｡(4)、如图b所示，测试影片时，单击“Replay”按钮，动画跳转到Load场景的第1帧并暂停播放，则该按钮上的动作脚本是(5)、如图b所示，小易通过操作得到一个名为“幸福一家.swf”的文件，则该文件是通过 (填字母：A .文件另存为 / B .测 试影片 / C .测试场景)操作得到的｡ -
7、小徐对刚完成的校运动会情况做了张统计表，放置于Excel工作簿的“Sheet1”工作表中，如图a所示｡
图a
(1)、金牌比例(%)是利用公式计算后填充得到的，那么在F10单元格中应该输入的计算公式是｡(2)、对高一各班级以“金牌”为关键字进行排序操作，应选择的数据区域为｡(3)、选择B2:E8区域内容，在单元格C2中的“筛选”按钮上设置如图b所示的筛选方式，则保留的班级个数为｡
图b
(4)、为了更直观地反映高二年级金牌比例的对比，小张制作了如下图表(折线图)，该图表中“系列”显示的并不是“金牌比例”且图表类型选择有误，改正的方法是
-
8、辗转相除法，又叫欧几里得算法( Euclidean Algorithm)，是求最大公约数的一种方法｡ 它的具体做法是：用较小数除较大数，再用出现的余数(第一余数)去除除数，再用出现的余数(第二余数)去除第一余数，如此反复，直到最后余数是0为止｡那么最后的除数就是这两个数的最大公约数｡现有如程序实现求两数的最大公约数:
Dim R As Integer，xAsInteger，yAsInteger
Do While ①
r =x Mod y
x = y
y = r
Loop
②
则划线①②两处填入的代码为 ( )
A、 ①r <> 0 ②gys = Str( x) B、①x Mod y <> 0 ②gys = Str( x) C、①r <> 0 ②gys = Str( y) D、①x Mod y <> 0 ②gys = Str( y) -
9、有如下VB程序段:
Text1.Text = "0"
For i = 2 To 9
k = 0
For j = 1 To i -1
If a(j) < a(i) Then k = k +1
Next j
Text1.Text = Text1.Text + "，" + Str(k)
Next i
已知数组a的数据序列为2，10，3，4，5，7，0，9，12，则该程序段运行后，文本框Text1中显示的内容是 ( )
A、 1，1，2，3，4，0，6，8 B、0，1，1，2，3，4，0，6，8 C、1，7，2，3，4，5，0，6，8 D、2，9，3，4，5，7，1，8，10 -
10、有如下VB程序段：该程序段运行后，文本框Text1中显示的内容是 ( )
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)
A、174 B、36 C、180 D、42 -
11、以下程序执行后变量y的值为 ( )
t = "abcd123456"
x = Sqr(Len(t))
y = 0
If x >0 Then
y = 2
ElseIf x >1 Then
y = 3
ElseIf x >2 Then
y = 4
Else
y = 5
End If
A、2 B、 3 C、 4 D、 5 -
12、下列 VB 表达式的值最大的是 ( )A、Len(“36”) + 3 B、Sqr(36) + Int(3.6) C、Asc(“a”) - Asc(“A”) D、Val( Mid(“236”， 2， 2) )
-
13、某算法的部分流程图如图所示｡执行这部分流程后，“i<6?”执行的次数和变量s的值分别为( )
A、4 和 16 B、3 和 16 C、4 和 9 D、3 和 9 -
14、使用 GoldWave 软件打开某音频文件，选中其中一段音频后的部分界面如图所示｡下列说法正确的是 ( )
A、该声音文件为立体声，采样频率为352kbps B、当前状态下执行“删除”命令后，该音频右声道第20秒开始将出现静音 C、当前状态下执行“剪裁”命令后，该音频文件的存储容量将变为原来的三分之二 D、当前状态下设置淡入效果，将对右声道20秒开始的声音作淡入处理 -
15、某Access数据表的设计视图如图所示｡下列对该数据表的说法，正确的是 ( )
A、该数据表的名称是“平板电脑进货数据.accdb” B、该数据表共有6个字段，其中“是否折扣”字段可以输入文字“是”或“否” C、当前状态下，“型号”字段的数据类型无法更改为“自动编号” D、将“单价”字段的数据类型更改为“数字”，则该字段值会被清空 -
16、下列有关信息及信息技术的说法，其中正确的是 ( )A、信息必须依附于载体才能得以表示、存储和传播 B、信息在传播过程中，如果出现虚假的内容，则不再是信息 C、信息在传递和共享的过程中会产生损耗 D、信息技术就是现代通信技术
-
17、一个正整数x，如果它的平方数的最后几位数字和这个数相等，则该数为同构数。例如：5的平方数是25，且5出现在25的右侧，那么5就是一个同构数。设计程序，输出1000-9999间的同构数x，并统计个数。(1)、本题适用的算法是和此算法的基本结构是（ ）。A、查找算法，循环中嵌套分支 B、枚举算法，循环中嵌套分支 C、查找算法，循环中嵌套循环 D、枚举算法，循环中嵌套循环(2)、判断1000-9999范围内的整数x是同构数的条件是（ ）。A、x=x mod 1000 B、x=x^2 mod 1000 C、x=x mod 10000 D、x=x^2 mod 10000(3)、编写程序，实现算法功能。
-
18、编写程序，实现以下功能：计算s=1+2/5+3/10+……i/i^2+1 的值，n由键盘输入，计算结果s保留3位小数。
Private Sub Command1_Click()
Dim n as integer, i as integer,s as double
n=val(inputbox("请输入n的值"))
s=0:i=1
do while ①
②
i=i+1
Loop
s= ③
Print s
End Sub
(1)、实现该程序功能的主体算法结构是。(2)、现有如下VB程序，请完善划线处①、②内容，完成上述功能。① ②
(3)、划线处③能使变量s的值四舍五入精确到小数点后第3位小数，以下可以实现的语句是（ ）。A、Int(s * 100) / 100 B、Int(s * 1000) / 1000 C、Int(s * 100 + 0.5) / 100 D、Int((s * 1000 + 0.5)) / 1000 -
19、运行以下VB程序，输出结果是。
Private Sub Command1_Click()
Dim s As Integer, x As Integer
s = 0
x = 20
For x = 20 To 1 Step -3
s = s + x
Next x
Print x
End Sub
-
20、运行以下VB程序，结果是。
