2016-2017學(xué)年浙江省杭州地區(qū)（含周邊）重點(diǎn)中學(xué)高三（上）期中信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿(mǎn)分24分）
-
1．下列有關(guān)信息的說(shuō)法，正確的是（ ?。?/h2>
組卷：3引用：1難度：0.9 -
2．如圖所示，以下關(guān)于該網(wǎng)頁(yè)描述正確的是（ ?。?br />
組卷：3引用：1難度：0.9 -
3．觀(guān)察圖，關(guān)于Word的修訂和批注，以下說(shuō)法不正確的是（ ）
組卷：1引用：1難度：0.9 -
4．某同學(xué)使用OCR軟件進(jìn)行字符識(shí)別，部分界面如圖所示，則下列說(shuō)法錯(cuò)誤的是（ ）
組卷：3引用：1難度：0.5 -
5．某Access數(shù)據(jù)表如圖所示，以下說(shuō)法中正確的是（ ?。?br />
組卷：5引用：1難度：0.7
二、解答題（共5小題，滿(mǎn)分26分）
-
16．求兩個(gè)數(shù)的最大公約數(shù)可以用輾轉(zhuǎn)相除法，也可以用遞歸算法實(shí)現(xiàn)．程序運(yùn)行界面如圖．VB程序如下：
Private Sub Command1_Click（ ?。?br /> Dim m As Integer,n As Integer
Dim r As Integer
m=Val（Text1．Text）
n=Val（Text2．Text）
r=m Mod n
Do While r＞0
m=n
n=r
r=
Loop
Label3．Caption=“最大公約數(shù)為：“+Str（n）
End Sub
Function gys（x As Integer,y As Integer） As Integer
Dim z As Integer
z=x Mod y
If z=0 Then
gys=y
Else
gys=gys（y,z）
End If
End Function
Private Sub Command2_Click（ ?。?br /> Dim m As Integer,n As Integer
m=Val（Text1．Text）
n=Val（Text2．Text）
Label3．Caption=“最大公約數(shù)為：“+
End Sub
橫線(xiàn)處應(yīng)填入的代碼為①②．組卷：1引用：1難度：0.3 -
17．2017年9月杭州各大樓盤(pán)的銷(xiāo)售價(jià)格數(shù)據(jù)信息已經(jīng)保存在數(shù)據(jù)庫(kù)文件database1．a(chǎn)ccdb的Building數(shù)據(jù)表中，用于顯示樓盤(pán)信息的VB程序運(yùn)行時(shí)界面如圖所示．運(yùn)行程序，單擊“顯示”按鈕，在列表框list1中顯示樓盤(pán)信息，單擊“降序排列”按鈕，在列表框list1中按樓盤(pán)均價(jià)從高到低顯示樓盤(pán)信息．按此要求編寫(xiě)的VB程序如下：
Dim num（1 To 50）As String
Dim price（1 To 50）As Single
Dim infor（1 To 50）As String
Dim nam（1 To 50）As String
Dim i As Integer
Private Sub Form_Load（ ?。?br />Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“&App.Path &“\database1．a(chǎn)ccdb“
conn.Open
Set rs.ActiveConnection=
①
rs.Open“select*from Building“
i=0
Do While
②
i=i+1
num（i）=rs.Fields（“編號(hào)“）
price（i）=rs.Fields（“均價(jià)（元）“）
infor（i）=rs.Fields（“信息“）
nam（i）=rs.Fields（“樓盤(pán)名“）
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
Private Sub Command1_Click（ ?。?br /> Dim j As Integer
List1．Clear
For j=1 To i
List1．AddItem num（j） &““& Str（price（j）） &““& infor（j） &““& nam（j）
Next j
End Sub
Private Sub Command2_Click（ ?。?br /> Dim m As Integer
List1．Clear
For
k=m
For n=m+1 To i
IfThen k=n
Next n
If m＜＞k Then
t=price（m）：price（m）=price（k）：price（k）=t
End If
List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
Next m
List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
End Sub
請(qǐng)回答下列問(wèn)題：
（1）程序加框處的代碼有錯(cuò)，請(qǐng)改正：①②
（2）橫線(xiàn)處應(yīng)填入的代碼為①②．組卷：2引用：1難度：0.1