2016-2017学年浙江省台州中学高三(上)第四次统练信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
-
1.电视台每晚播放的新闻,有很多人同时在观看,而新闻节目主持人却不会因为播放这些信息而失去它们.这主要体现了( )
组卷:16引用:2难度:0.9 -
2.电子邮件从发送方传送到接收方的基本流程如图所示.邮件从“发送方邮件服务器”传送到“接收方邮件服务器”(即图中所示的步骤④)的过程中使用的协议是( )
组卷:9引用:2难度:0.9 -
3.下列操作中没有用到光学字符识别(OCR)技术的是( )
组卷:10引用:2难度:0.9 -
4.下列关于数据库的表述中正确的是( )
组卷:5引用:1难度:0.7 -
5.“水仙花数”就是一个 n(n≥3)位的自然数,它的每个位上的数字的 n 次幂之和等于它本身.如 153=13+53+33.在编写 VB 程序验证某个三位数 x 是否是“水仙花数”的过程中要提取出这个数的个位、十位、百位分别存储在变量 a、b、c 中,以下语句能够用来提取十位上的数的是( )
组卷:8引用:1难度:0.7
二、非选择题(本大题共5小题,其中第13小题5分,第14小题4分,第15小题8分,第16小题4分,第17小题5分,共26分)
-
16.设有n盏灯,放在一排.从1到n依次顺序编号.有n个人也从1到n依次编号.第1个人(1号)将灯全部关闭,第2个人(2号)将2的倍数的灯打开,第3个人(3号)将编号为3的倍数的灯做相反处理(该灯如果已打开,则将它关闭;如为关闭则将它打开),以后的人和3号一样,将编号为自己号数倍数的灯做相反处理.问当n个人操作后,哪几盏灯是亮的(亮灯为0,关闭为1).程序代码如下:
Private Sub Command1_Click( )
Const n=20
Dim i As Integer,j As Integer
Dim a(1 To n) As Integer
For j=1 To n
a(j)=0
Next j
For i=1 To n
For j=1 To n
If ①then
②
End If
Next j
Next i
For j=1 To n
If a(j)=0 Then list1.AddItem Str(j)
Next j
End Sub
为了实现程序该功能,在横线处填写正确代码.
①组卷:4引用:2难度:0.1 -
17.某班级学生为毕业晚会的一个节目设计一个仿“V”字造型,先筛选出班级里所有男生,然后将参演的n名男生按照身高,摆出中间低两边高(先右后左)的造型,如图1所示.王林同学用VB编写模拟“节目造型”程序,功能如下:从数据库中导出所有学生编号、性别和身高数据;单击“筛选排序”按钮Command2,根据身高仿“V”字和造型进行有序排列,并将结果显示在文本框Text2中.程序运行界面如图2所示.举例说明如下:
Const n=7原1-7号男生身高 171 172 180 174 176 179 178 筛选排序后序列 171 172 174 176 178 179 180 “造型设计”后序列 180 178 174 171 172 176 179
Dim h2(1 To n) As Integer
Dim height1(1 To n) As Integer
Dim height2(1 To n) As Integer
Dim i As Integer,j As Integer,temp As Integer
Dim sex(1 To n) As Boolean'男生sex=true
Private Sub Form_Loa d( )
'n名学生的身高和性别由数据库导出,分别存储在数组height1 和sex中,代码略!
End Sub
Private Sub Command1_Click( )
For i=1 To n-1
For j=n To i+1 Step-1
If
temp=height1(j):height1(j)=height1(j-1):height1(j-1)=temp
End If
Next j
Next i
For i=1 To n
Text1.Text=Text1.Text+““+Str(height1(i))
Next i
End Sub
Private Sub Command2_Click( )
Dim left,right As Integer,i As Integer,mid As Integer
mid=Int((1+n)/2)
left=0:right=0
For i=2 To n Step 2
right=right+1
height2(mid+right)=height1(i)
left=left+1
Next i
For i=1 To n
Text2.Text=Text2.Text+““+Str(height2(i))
Next i
End Sub.组卷:2引用:1难度:0.1