2017年浙江省信息技术考前押宝试卷(3)
发布:2024/4/20 14:35:0
一、选择题(共12小题,每小题2分,满分24分)
-
1.支付宝扫码付款是一种新型的付款方式,付款时只需要给收银员扫一下就可以完成支付,支付宝付款码的产生过程属于( )
组卷:7引用:3难度:0.9 -
2.如图为中国工商银行LOGO,此图片存在冗余可进行数据压缩,该图片的冗余主要表现为( )
组卷:4引用:1难度:0.9 -
3.某软件对用户输入的4位十进制数字密码加密存储,加密规则为每个数字加6后再转换为4位二进制数字,并取反,即0变1,1变0,当用户输入的密码为1925时,加密后存储的密码为( )
组卷:10引用:1难度:0.9 -
4.UltraEdit软件观察字符内码,结果如图所示,则图中内码表示的对象可能是( )
组卷:6引用:1难度:0.5 -
5.棱镜门事件的主角斯诺登说:“一旦连上网络,无论采用什么样的保护措施,你都不可能安全.”另外,今日维基解密披露的机密文件介绍了中情局全球秘密黑客计划的规划和方向:恶意代码库以及数十个可侵入包括苹果iPhone、谷歌安卓系统、微软视窗操作系统、三星电视等流行IT产品的武器化黑客工具…,比如,CIA“哭泣天使”程序让电视假关机,智能电视变窃听器,从这些事例中我们可以判断:( )
组卷:4引用:1难度:0.7
二、解答题(共5小题,满分26分)
-
16.【加试题】从键盘键入一组无序整数,比如依次输入78,18,-3,0,8,-6,9,2,当输入为空时,这组数据将在列表框List1中依次有序输出,完善下面的VB程序,在横线处填入合适的语句,完成程序设计.
List.Clear
Const n=100
Dim a(-1 To n) As Integer
Dim m As Integer,i As Integer
Dim j As Integer
Dim t As String,x As Integer
m=0
t=InputBox(“请输入X的值:“)
Do While t<>““And m<n
x=Val(t)
i=m
Do While x<a(i-1)And i>0
i=i-1
Loop
a(i)=x
t=InputBox(“请输入X的值:“)
Loop
For i=0 To m-1
List1.AddItem a(i)
Next i.组卷:6引用:1难度:0.3 -
17.【加试题】某单位招聘事业单位工作人员,2015年和2016年各有4000名和2600名考生报名,下列VB程序统计两次考试都参加的考生信息.程序界面如图所示,2015年和2016年的考生信息分别显示在List1和List2中,点击“统计”按钮,在List3中显示两次都参加的考生信息和总人数.
(1)实现上述功能的VB程序如下,请在横线处填入合适的代码.
Dim a(1 To 4000)As String
Dim b(1 To 2600)As String
Private Sub Form_Load( )
Dim conn As New ADODB.connection
Dim rs As New ADODB.Recordset
Dim constr As String
constr=“Provider=Microsoft.ace.OLEDB.12.0;“
constr=constr &“Data Source=“& App.Path+“\data\kaosheng.jye.ai“
conn.ConnectionString=constr
conn.open( )
Dim sql As String
Rem将参加2015年考试的考生身份证号码按升序存放在a数组中
sql=“select*from kaoshenginfo where year='2015'order by sfzh asc“
rs.jye.ai sql,conn
i=0
Do While Not rs.EOF
i=i+1
a(i)=rs(“sfzh“)
List1.AddItem (a(i))
rs.MoveNext
Loop
Rem将参加2016年考试的考生身份证号码按升序存放在b数组中
sql=“select*from kaoshenginfo where year='2016'order by sfzh asc“
rs.jye.ai sql,conn
i=0
Do While Not rs.EOF
i=i+1
b(i)=rs(“sfzh“)
List2.AddItem (b(i))
rs.MoveNext
Loop
End Sub
Private Sub Command1_Click( )
Dim bot As Integer,top As Integer,m As Integer
Dim i As Integer,ans As Integer'ans用于记录两次均参加考试的考生数
ans=0
For i=1 To 2600
bot=1
top=4000
Do While bot<=top
m=Fix((bot+top)/2)
If a(m)=b(i) Then
List3.AddItem a(m)
Exit Do
ElseIf
top=m-1
Else
End If
Loop
Next i
List3.AddItem“总计“+Str(ans)+“人次“
End Sub
(2)分析上述代码,在数据库中用于存放考生身份证号码的字段名称是组卷:7引用:1难度:0.1