2015-2016学年浙江省湖州市安吉县上墅私立高级中学高二(下)期中信息技术试卷
发布:2025/1/2 5:30:4
一、选择题(本大题共9小题,每小题2分,共24分.每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
-
1.机器人AlphaGo在围棋对战中战胜了世界围棋冠军,AlphaGo集合了3000万种职业棋手的下法,数百万次深度学习,十分接近带着直觉和第六感的人类大脑.根据上述材料,下列说法不正确的是( )
组卷:3引用:2难度:0.9 -
2.下列关于网站和网页说法正确的是( )
组卷:5引用:2难度:0.9 -
3.小李使用Word审阅功能对某文档做了处理,部分截图如图1所示,修订选项对话框如图2所示,
若接受对文档的所有修订,则带框文字内容为( )组卷:12引用:5难度:0.7 -
4.小明制作了一个关于动漫的作品,部分信息存储在“动漫作品”数据表中,数据表结构及记录分别如图1和如图2所示,选择右键菜单中的“新记录”并输入相应数据,下列可能作为新记录的是( )
组卷:5引用:2难度:0.7 -
5.某算法如下:
①将0赋值给变量Num,将10赋值给变量Max,将9赋值给变量i
②若i除以3余2、除以5余3、除以7余2,则将变量Num的值增加1并输出i
③变量i的值增加1,若变量Num小于变量Max,则转②
④结束
对于上述算法,下列说法错误的是( )组卷:24引用:4难度:0.7
【加试题】
-
16.在冒泡排序时,当某一遍加工过程中没有数据交换,说明数据已经有序,无需进一步加工.为此小明对冒泡排序进行了优化,编写了一个VB程序,功能如下,运行程序时,在列表框List1中显示随机产生的n个整数,单击“排序”的按钮Command1,在列表框List2中显示降序排序后的结果,运行的效果如图所示.
实现上述功能的VB代码如下,但加框处代码有错,请改正.
Const n As Integer=10
Dim a(1To n) As Integer
Private Sub Form_Load ( )
Dim i As Integer
Randomize
For i=1To n
a(i)=Int(Rnd*100)
List1.AddItem Str(a(i))
Next
End Sub
Private Sub Command1_Click ( )
Dim tmp As Integer,i As Integer,j As Integer,k As Integer
For i=1To n-1
k=0
For j=n To i+1Step-1
If a(j)>a(j-1)Then
k=k+1
End If
Next j
IfThen i=n
Next i
For i=1To n
List2.AddItem Str(a(i))
Next i
End Sub
End Sub.组卷:3引用:2难度:0.1 -
17.用VB编写一个模拟在900个观众中产生10个中奖号码的程序,每位观众用三位数字进行编号,要求产生的10个号码不能重复,并且升序排列输出.
①检查产生号码是否重复:把产生的中奖号码放在数组a中,新生的号码与已经产生的号码进行一一对比,如果找到相等的数,则重新产生新号码.
②找到新产生号码存放的数组下标:从下标为1的数组元素开始,新号码(第i个号码)分别与他们进行一一比较,找到第一个比新号码大的数,该数所在的下标就是新号码应存放的下标.如果在已经产生的数中没有找到比新号码大的数,则新号码应存放在下标为i的数组元素中.下表以产生第5个号码为例,如果产生的号码是150,第一个比他大的数是a(2),下标为2的数组元素应存放新号码;如果产生的号码是300,则新号码应存放在下标为5的数组元素中.数组元素 a(1) a(2) a(3) a(4) 数组元素的值 120 188 211 278
④将新产生的号码放在相应的数组元素中.
程序运行的界面如图所示,实现上述功能的VB程序代码如下:
Dim a(10)As Single
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer
Dim temp As Single,k As Integer‘temp产生随机数,k随机数存放数组元素的下标
Randomize
a(1)=Int(Rnd ( )*900+100)
For i=2To 10
temp=Int(Rnd ( )*900+100)
If seach(temp,i-1)=True Then
i=i-1
Else
For j=-1To k Step-1
a(j+1)=a(j)
Next j
End If
Next i
List1.Clear
For i=1To 10
List1.AddItem Str(a(i))
Next i
End Sub
‘函数实现在数组a中,从下标为1的数组元素到下标为t数组元素,查找有无pp的数值
Function seach(pp As Single,t As Integer) As Boolean
Dim i As Integer
seach=False
For i=1To t
If
Next i
End Function
(1)程序中横线处①应填入
(2)加框处的程序段实现的功能是组卷:0引用:1难度:0.3