2019-2020学年浙江省宁波市北仑中学高二(下)期中信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息和信息技术的说法中,正确的是( )
组卷:2引用:1难度:0.6 -
2.下列选项中,体现了人工智能技术的有( )
①医生使用B超探测病人身体
②某设备通过摄像头抓取来识别学生的表情和动作并分析学习状态
③“AlphaGo”围棋程序与人类对弈
④在浏览器中输入“www”后自动跳出曾经浏览过的网址
⑤机器人导游回答游客的问题 并提供帮助组卷:5引用:1难度:0.6 -
3.小明请王老师帮忙修改他们小组的研究性学习报告(DOCX格式),部分界面如图所示:以下说法中正确的是( )
组卷:4引用:1难度:0.6 -
4.使用Access软件创建的“图书”数据表,其设计视图的部分界面如图所示。下列说法正确的是( )
组卷:14引用:12难度:0.9 -
5.用UltraEdit 软件来观察字符内码,结果如图所示,下列说法中正确的是( )
组卷:3引用:1难度:0.5
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.编写一个VB程序,实现产生10个不重复的奇数序列,筛选出其中的素数,将其按小到大的顺序排序。程序界面如图所示:
(1)代码“Private Sub commandl_click
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
(4)横线处temp>b(k)用b(c)>b(k)代替会不会影响正常结果?
Dim a(1 To 10)As Integer,b(0 To 10)As Integer
Private Sub Form_Load
‘随机产生10个2位奇数整数
‘代码略
End sub
Private Sub Command1_Click
Dim i As Integer,j As Integer,k As Integer,c As Integer
For j=1 To 10
i=2:m=Int(Sqr(a)
Do While
i=i+1
Loop
If①Then
c=c+1
b(c)=a(j)
End if
temp=b(c)
For k=c-1 To 1 Step-1
If temp>b(k) Then Exit For
b(k+1)=b(k)
Next k
②
Next j
For i=1 To c
List2.Additem Str(b(i))
Next i
End Sub组卷:1引用:2难度:0.3 -
16.同分同名次程序。小明设计了一个排序程序对随机产生的n个[60,99]之间的整 数进行降序排列,然后再进行同分同名次的处理。算法的VB程序段如下,运行界面如图所示。
Constn=10
Dim a(n) As Integer,mc(1 Ton) As Integer
Private Sub Command1_Click ( )
Dim cAs Integer,i AsInteger,t As Integer
Listl.Clear:List2.Clear
For i=1 Ton
a(i)=
Listl.AddItemStr(a(i)) Next i
′以下为排序处理
a(0)=0
i=1
Do While i<=n-1
IfThen′改错
i=i+1
Else
t=a(i):a(i)=a(i+1):a(i+1)=t c=c+1
i=i-1
End If
Loop
Textl.Text=Str(c)
′以下为同分同名次处理
mc(1)=1
For i=2To n
If a(i)<>a(i-1)Then
输出分数和名次,代码略!End Sub
(1)代码“Listl.Clear”中的 Clear是
(单选,填字母:A.对象名 B.属性 C.事件名 D.方法名)
(2)程序代码中,加框处语句有错,请改正
(3)请将划线①②处代码补充完整:①组卷:0引用:1难度:0.3