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è)描述正確的是( )
組卷:3引用:1難度:0.9 -
3.觀察圖,關(guān)于Word的修訂和批注,以下說(shuō)法不正確的是( ?。?br />
組卷:1引用:1難度:0.9 -
4.某同學(xué)使用OCR軟件進(jìn)行字符識(shí)別,部分界面如圖所示,則下列說(shuō)法錯(cuò)誤的是( ?。?br />
組卷: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( )
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
橫線處應(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
If
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)橫線處應(yīng)填入的代碼為①組卷:2引用:1難度:0.1