2017年浙江省杭州市蕭山區高考信息技術模擬試卷（2）
發布：2024/12/18 20:30:3
一、選擇題（本大題共9小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．電視臺每晚播放的新聞，有很多人同時在觀看，而新聞節目主持人卻不會因為播放這些信息而失去它們．這主要體現了（ ?。?/h2>
組卷：16引用：2難度：0.9 -
2．下列多媒體格式中，不屬于多媒體數據壓縮標準的是（ ?。?/h2>
組卷：24引用：5難度：0.9 -
3．下列操作中沒有用到光學字符識別（OCR）技術的是（ ?。?/h2>
組卷：10引用：2難度：0.9 -
4．關于Access 數據表的操作，下列說法正確的是（ ）
組卷：12引用：4難度：0.9 -
5．某算法的部分流程圖如圖所示，執行這部分流程后，變量x和Flag的值分別是（ ?。?/h2>組卷：9難度：0.7
【加試題】
-
16．某校質量檢測共n名學生參加，李老師編寫了一個試場號座位號編排軟件，輸入選考科目就能根據該選考科目選考學生的名單編排試場．具體編排規則如下：讀取數據庫中學生的學號、姓名以及選考組合，和隨機產生一個3位數，根據這個3位數和選考科目，排定該選考科目的試場，其中a（i）用于存放第i位學生的學號，b（i） 用于存放第i位學生的 姓名，c（i） 用于存放第i位學生的選考組合，d（i）用于存放第i位學生的3位隨機數．
程序界面如圖所示，在文本框Text1中輸入選考科目，單擊“開始編排”按鈕（Command1），根據產生的隨機數和選考科目，進行試場編排，每30個人一個試場．試場顯示格式一律為：試場號-座位號．
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim n As Integer'考生數
Dim a（1000）As String,b（1000）As String,c（1000）As String
Dim d（1000）As Integer,e（1000）As String
Private Sub Form_Load （ ）
'讀取數據庫中學生的信息，分別將學號，姓名，選考組合和隨機數存入a（i）、b（i）、c（i） d（i）中
End Sub
Private Sub Command1_Click （ ?。?br /> Dim km As String
km=Mid（Text1．Text,1，1）
xk=0'選考實際人數
For i=1 To n
If km=Mid（c（i），1，1）or km=Mid（c（i），2，1）or km=Mid（c（i），3，1）Then
xk=xk+1
a（xk）=a（i）
b（xk）=b（i）
c（xk）=c（i）
d（xk）=d（i）
End If
Next i
For i=1 To xk-1
k=i
For j=i+1 To xk
If
Then k=j
Next j
If k＜＞i Then
t=a（k）：a（k）=a（i）：a（i）=t
t=b（k）：b（k）=b（i）：b（i）=t
t=c（k）：c（k）=c（i）：c（i）=t
t=d（k）：d（k）=d（i）：d（i）=t
End If
Next i
For i=1 To xk
e（i）=
List1．AddItem a（i）+““+b（i）+““+c（i）+““+Str（d（i））+““+e（i）
Next i
End Sub.組卷：9引用：1難度：0.1 -
17．某校質量檢測共n名學生參加，李老師編寫了一個試場號座位號查詢軟件，輸入學號就能查詢該生的姓名和試場號座位號．數組a、b分別保存了本次考試所有學生的學號和姓名信息．第i個學生的學號保存在a（i）中，對應的姓名保存在b（i）中．程序界面如圖所示，在文本框Text1中輸入學號，單擊“開始查詢”按鈕（Command1），電腦就開始查找該學號的信息，如果找到對應的信息，就顯示所屬學生的姓名和選考組合，并顯示在Text2和Text3中，Text4語數外的試場信息，Label（1），Label（2），Label（3）分別顯示選考科目，相對應的Text5（1），Text5（2），Text5（3）分別顯示對應的試場信息；如果沒有找到，則顯示“找不到”．
相應程序如下，在程序①和②橫線處填入適當的語句和代碼，把程序補充完整．
（1）程序段Function部分主要采用了算法（填：順序查找/對分查找）；
（2）在程序畫線①處應填入；
在程序畫線②處應填入．
Dim n As Integer'考生數
Dim a（1000）As String,b（1000）As String
Dim xk（1 To 3）As String
Private Sub Command1_Click （ ?。?br /> Dim x As string
s1=“政治歷史地理物理化學生物技術“
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“& App.Path &“\students.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“學生信息“
n=0
m=0
Do While Not rs.EOF'到記錄集最后一條記錄后退出循環
n=n+1'計數
a（n）=rs.Fields（“學號“）
b（n）=rs.Fields（“姓名“）
rs.MoveNext'移動到下一條記錄
Loop
rs.MoveFirst
x=Text1．Text
pos=①
If pos＞0 Then
rs.Move pos
zh=rs.Fields（“選考組合“）
Text2．Text=b（pos）
Text3．Text=zh
Text4．Text=rs.Fields（“語數外“）
For i=1 To 3
xk（i）=Mid（zh,i,1）
For j=1 To 13 Step 2
If ②Then
Label（i）．Caption=Mid（s1，j,2）
Text5（i）．Text=rs.Fields（xk（i））
End If
Next j
Next i
Else
Text2．Text=“找不到“
End If
End Sub
Function Search（Key As String） As Integer
Dim i As Integer,j As Integer
i=1
j=n
Do While i＜=j
m=Fix（（i+j）/2）
If Key=Val（a（m）） Then
Search=m
Exit Function
ElseIf a（m）＞Key Then
j=m-1
Else
i=m+1
End If
Loop
Search=0
End Function.組卷：12引用：1難度：0.1