2016-2017学年浙江省温州中学高二（上）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个是符合题目要求的．）
-
1．微信新骗局：骗子取一个类似“交通违章查询”这样的公众账号，一旦用户信以为真，向该公众号发送截图，会收到提示“需要提交你刚刚收到的手机验证码”，若将验证码发过去，用户微信钱包的钱就会被立即转走．这说明信息具有（ ）
组卷：8引用：3难度：0.9 -
2．二进制数1000B是十六进制数2H的（ ）倍．
组卷：4引用：1难度：0.9 -
3．下列软件中不属于文字处理软件的是（ ）
组卷：5引用：6难度：0.7 -
4．防止黑客入侵的方法，最有效的是（ ）
组卷：4引用：5难度：0.9 -
5．下列哪一个表达式能产生一个属于区间[100，999]内的整数（ ）
组卷：7引用：1难度：0.7
二、非选择题（本大题共5小题，其中第13小题4分，第14小题8分，第15小题5分，第16小题4分，第17小题5分，共26分）
-
16．（1）某省实施《中华人民共和国道路交通安全法》办法中规定，机动车驾驶人驾驶机动车超过规定时速但未超过百分之五十的，处予二百元罚款．超过百分之五十（未造成交通事故）的，处五百元罚款，每多超过五公里，加处二百元罚款，不足五公里的忽略不计，但最高罚款不得超过二千元．用于计算罚款额的Visual Basic程序如下：
Private Sub Command1_Click （ ）
Dim v0As Integer,v As Integer,x As Integer
v0=Val（Text1．Text）'v0 存储规定速度
v=Val（Text2．Text）'v存储实际速度
If v＞v0And v＜=1.5*v0Then
x=200
ElseIf v＞1.5*v0Then
x=500+Int（（v-1.5*v0）/5）*200
Else
x=0
End If
If x＞2000Then x=2000
Label1．Caption=Str（x）
End Sub
运行该程序时，在Text1文本框中输入50，在Text2文本框中输入60，点击Command1时，在Label1的Caption上显示的罚款金为．
（2）如下一段Visual Basic程序：
Private Sub Command1_Click（ ）
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val（Text1．text）
sum=0
For i=1To n
x=Int（Sqr（i））
If x*x=i Then sum=sum+x
Next i
Label1．Caption=Str（sum）
End Sub
在Text1框中输入10时，点击Command1时，Label1上显示的是．组卷：6引用：1难度：0.3 -
17．在一次学校的运动会上，高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张，只剩下7 个成绩，并已按成绩排序，分别是（单位：秒）14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了，请将找到的成绩插入相应的位置，使数据序列仍保持有序，并求出该成绩的名次．根据已有程序段，请补齐流程图中的空格．
程序如下：
Dim a（1To 8）As Integer
Dim n,i,j,x As Integer
Private Sub Command1_Click（ ）
x=Val（Text2．Text）
If x＞a（n） Then
i=n+1
else
i=1
Do While x＞a（i）
i=i+1
Loop
End If
Text3．text=str（i）‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer
输出
If KeyAscii=13Then
n=n+1
a（n）=Val（Text1．Text）
List1．AddItem Str（a（n））
Text1．Text=““：Text1．SetFocus‘准备在text1 接受下一个数据
End If
End Sub.组卷：6引用：1难度：0.1
