2016年浙江省金华十校高考信息技术模拟试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息的说法,正确的是( )
组卷:15引用:4难度:0.9 -
2.关于信息的表达与交流,下列说法正确的是( )
组卷:8引用:3难度:0.9 -
3.王老师将刊登在期刊上的一篇文章扫描后,通过OCR软件识别出文字,并用Word软件编辑处理.下列说法不正确的是( )
组卷:6引用:6难度:0.9 -
4.某商场的用户信息表如下( )
会员基本信息表编号 姓名 性别 出生年月 账户余额 贵宾等级 090101 王天明 男 1989-12-03 100.00 普通会员 090102 张利明 男 1987-01-03 3287.00 黄金会员 090103 孙云华 女 1978-08-01 8567.00 钻石会员 … … … … … … 组卷:4引用:4难度:0.9 -
5.某算法的部分流程如图所示,若流程执行时,输入x的值为13,那么输出的依次是( )
组卷:7引用:3难度:0.5
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.在数据库的两张数据表中有各有一批学生的考试成绩,小吴要将两张表中的数据读取并按成绩从高到低排列输出.成绩相同时,第一批学生优先输出.小吴编写了一个VB程序,程序运行时,将相关信息分别读入数组cj和xm的前后两段,单击按钮 Command1 后,在列表框List1中输出运行结果.实现上述功能的 VB 代码如下,但加框处代码有错,请改正:
Dim xm(1to 1000)as string'存储学生姓名
Dim cj(1to 1000)as integer'存储学生成绩
Dim rs1 as integer'第一批学生人数
Dim rs2 as integer'第二批学生人数
Private Sub Form_Load'该处具体代码省略
'第1步:从数据库读取第1批学生的人数rs1,按成绩从高到低的顺序将成绩存入cj(1)、'cj(2)…cj(rs1)中,姓名存入xm(1)、xm(2)…xm(rs1)中
'第2步:从数据库读取第2批学生的人数rs2,按成绩从高到低的顺序将成绩存入'cj(rs1+1)、cj(rs1+2)…cj(rs1+rs2)中,姓名存入xm(rs1+1)、xm(rs1+2)…xm(rs1+rs2)中
End Sub
Private Sub Command1_Click
i=1'i表示第一批中,尚未输出的学生中成绩最高学生的序号
j=rs1+1'j表示第二批中,尚未输出的学生中成绩最高学生的序号
‘以下程序开始按成绩高低逐个输出,每次输出前后两段中,尚未处理的学生中成绩最高的n=1
Do While i<=rs1And j<=rs1+rs2‘两段都有未输出的情况,输出两段中最大值
n=n+1
If cj(i)>=cj(j) Then
k=i:i=i+1
Else
k=j:j=j+1
End If
List1.AddItem (“第“+Str(n)+“名“+xm(k)+“成绩:“+Str(cj(k)))
Loop
Do While i<=rs1‘剩下第一段还有未输出的,逐个输出
n=n+1
List1.AddItem (“第“+Str(n)+“名“+xm(i)+“成绩:“+Str(cj(i)))
i=i+1
Loop
Do Whilej<=rs2
n=n+1
List1.AddItem (“第“+Str(n)+“名“+xm(j)+“成绩:“+Str(cj(j)))
j=j+1
Loop
End Sub.组卷:8引用:1难度:0.3 -
17. 某单位招考公务员,2010年和2011年各有4020名和2000名考生报名,下列VB程序用于统计两次考试都参加的考生信息.程序界面设计如图所示,2010年和2011年的考生信息分别显示在List1和List2中,点击“统计”按钮,在List3中显示两次考试都参加的考生信息和总人数.
(1)实现上述功能的 VB 程序如下,请在横线处填入合适代码.
Dim a (1To 4020 ) As String
Dim b (1To 2000 ) 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
‘将参加2010年下半年考试的考生的身份证号码按升序存放在a数组中
sql=“select*from kaoshengInfo where year=’2010’order by sfzh asc“
rs.Open sql,conn
i=0
Do While Not rs.EOF
i=i+1
a(i)=rs(“sfzh”)
List1.additem(a(i))
rs.MoveNext
Loop
‘将参加2011年下半年考试的考生的身份证号码按升序存放在b数组中
sql=“select*from kaoshengInfo where year=‘2011’order by sfzh asc“
rs.Open sql,conn
i=0
Do While Not rs.EOF
i=i+1
b(i)=rs(“sfzh”)
List2.additem(b(i))
rs.MoveNext
Loop
rs.Close
End Sub
Private Sub Command1_Click
Dim bot As Integer,top As Integer,m As Integer
Dim i As Integer,ans As integer
ans=0
For i=1 To 2000
bot=1
①
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
bot=m+1
End If
Loop
Next i
List3.AddItem“总计”+str(ans)+“人次”
End Sub
(2)分析上述代码,在数据库中用于存放考试信息的数据表名称是组卷:4引用:1难度:0.1