2016-2017學(xué)年浙江省杭州地區(qū)(含周邊)重點中學(xué)高三(上)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.下列有關(guān)信息的說法,正確的是( ?。?/h2>
組卷:3引用:1難度:0.9 -
2.如圖所示,以下關(guān)于該網(wǎng)頁描述正確的是( ?。?br />
組卷:3引用:1難度:0.9 -
3.觀察圖,關(guān)于Word的修訂和批注,以下說法不正確的是( ?。?br />
組卷:1引用:1難度:0.9 -
4.某同學(xué)使用OCR軟件進行字符識別,部分界面如圖所示,則下列說法錯誤的是( )
組卷:3引用:1難度:0.5 -
5.某Access數(shù)據(jù)表如圖所示,以下說法中正確的是( ?。?br />
組卷:5引用:1難度:0.7
二、解答題(共5小題,滿分26分)
-
16.求兩個數(shù)的最大公約數(shù)可以用輾轉(zhuǎn)相除法,也可以用遞歸算法實現(xià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
橫線處應(yīng)填入的代碼為①組卷:1引用:1難度:0.3 -
17.2017年9月杭州各大樓盤的銷售價格數(shù)據(jù)信息已經(jīng)保存在數(shù)據(jù)庫文件database1.a(chǎn)ccdb的Building數(shù)據(jù)表中,用于顯示樓盤信息的VB程序運行時界面如圖所示.運行程序,單擊“顯示”按鈕,在列表框list1中顯示樓盤信息,單擊“降序排列”按鈕,在列表框list1中按樓盤均價從高到低顯示樓盤信息.按此要求編寫的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(“編號“)
price(i)=rs.Fields(“均價(元)“)
infor(i)=rs.Fields(“信息“)
nam(i)=rs.Fields(“樓盤名“)
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
請回答下列問題:
(1)程序加框處的代碼有錯,請改正:①
(2)橫線處應(yīng)填入的代碼為①組卷:2引用:1難度:0.1