2016年浙江省金華十校高考信息技術(shù)模擬試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列有關(guān)信息的說法,正確的是( ?。?/h2>
組卷:15引用:4難度:0.9 -
2.關(guān)于信息的表達與交流,下列說法正確的是( ?。?/h2>
組卷:8引用:3難度:0.9 -
3.王老師將刊登在期刊上的一篇文章掃描后,通過OCR軟件識別出文字,并用Word軟件編輯處理.下列說法不正確的是( ?。?/h2>
組卷:6引用:5難度: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.某算法的部分流程如圖所示,若流程執(zhí)行時,輸入x的值為13,那么輸出的依次是( ?。?br />
組卷:6引用:3難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.在數(shù)據(jù)庫的兩張數(shù)據(jù)表中有各有一批學(xué)生的考試成績,小吳要將兩張表中的數(shù)據(jù)讀取并按成績從高到低排列輸出.成績相同時,第一批學(xué)生優(yōu)先輸出.小吳編寫了一個VB程序,程序運行時,將相關(guān)信息分別讀入數(shù)組cj和xm的前后兩段,單擊按鈕 Command1 后,在列表框List1中輸出運行結(jié)果.實現(xiàn)上述功能的 VB 代碼如下,但加框處代碼有錯,請改正:
Dim xm(1to 1000)as string'存儲學(xué)生姓名
Dim cj(1to 1000)as integer'存儲學(xué)生成績
Dim rs1 as integer'第一批學(xué)生人數(shù)
Dim rs2 as integer'第二批學(xué)生人數(shù)
Private Sub Form_Load'該處具體代碼省略
'第1步:從數(shù)據(jù)庫讀取第1批學(xué)生的人數(shù)rs1,按成績從高到低的順序?qū)⒊煽兇嫒隿j(1)、'cj(2)…cj(rs1)中,姓名存入xm(1)、xm(2)…xm(rs1)中
'第2步:從數(shù)據(jù)庫讀取第2批學(xué)生的人數(shù)rs2,按成績從高到低的順序?qū)⒊煽兇嫒?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表示第一批中,尚未輸出的學(xué)生中成績最高學(xué)生的序號
j=rs1+1'j表示第二批中,尚未輸出的學(xué)生中成績最高學(xué)生的序號
‘以下程序開始按成績高低逐個輸出,每次輸出前后兩段中,尚未處理的學(xué)生中成績最高的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. 某單位招考公務(wù)員,2010年和2011年各有4020名和2000名考生報名,下列VB程序用于統(tǒng)計兩次考試都參加的考生信息.程序界面設(shè)計如圖所示,2010年和2011年的考生信息分別顯示在List1和List2中,點擊“統(tǒng)計”按鈕,在List3中顯示兩次考試都參加的考生信息和總?cè)藬?shù).
(1)實現(xiàn)上述功能的 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數(shù)組中
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.a(chǎn)dditem(a(i))
rs.MoveNext
Loop
‘將參加2011年下半年考試的考生的身份證號碼按升序存放在b數(shù)組中
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.a(chǎn)dditem(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)分析上述代碼,在數(shù)據(jù)庫中用于存放考試信息的數(shù)據(jù)表名稱是組卷:4引用:1難度:0.1