2017年浙江省高考信息技術(shù)模擬試卷(4)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共9小題,每小題2分,共24分.每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)
-
1.下列一般能作為OCR軟件識別對象的文件是( ?。?/h2>
組卷:9引用:1難度:0.9 -
2.小明用Fox Mail軟件幫助自己管理電子郵件,但是他發(fā)現(xiàn)能收到郵件卻發(fā)送不了,最有可能出問題的協(xié)議是( ?。?/h2>
組卷:7引用:2難度:0.9 -
3.某Flash作品的部分編輯界面如圖所示:
以下說法正確的是( ?。?/h2>組卷:8引用:2難度:0.9 -
4.下列關(guān)于Access數(shù)據(jù)庫說法正確的是( )
組卷:16引用:2難度:0.5 -
5.某Access數(shù)據(jù)表如圖所示:
以下說法不正確的是( ?。?/h2>組卷:8引用:2難度:0.9
【加試題】
-
16.用VB編寫的函數(shù)bubble_sort是一個用冒泡方法實現(xiàn)排序的函數(shù),其調(diào)用時需要三個參數(shù):布爾類型參數(shù)sx來確定是升序還是降序,sx為True時為升序,否則為降序;整數(shù)型數(shù)組a
比如有一個整數(shù)型數(shù)組a(1 to 10)需要降序排序,可以直接這樣調(diào)用:
a
該函數(shù)VB代碼如下:
Function bubble_sort(sx As Boolean,a
Dim i,j,t As Integer
For i=1 To n-1
For j=
If
If a(j)<a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
Else
If a(j)>a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
bubble_sort=a
End Function
請將代碼補充完整:
①
②組卷:23引用:2難度:0.3 -
17.丟失的成績.某校運動會上,高一男子100米決賽的成績已出,前8名的成績記錄單由于不小心丟失一張,只剩下7個成績,分別是(單位:秒)11.5,11.8,12.1,12.5,13.1,13.5,13.9.后來找到了,需將找到的成績插入相應(yīng)的位置,使數(shù)據(jù)序列仍保持有序,并求出該成績的名次.為實現(xiàn)這一目標(biāo),設(shè)計如下VB程序,界面如圖所示:先輸入7位選手成績,自動將成績從小到大排序后輸出到列表框List1中.輸入丟失成績后,點擊“插入”按鈕將該成績添加到適當(dāng)位置并輸出選手成績到List2中,并在Label4中顯示該成績的名次.
實現(xiàn)上述功能的VB程序如下,請完成以下問題:
Dim a(1To 8)As Single
Dim n As Integer,i As Integer,x As Single
Private Sub Form_Load ( ?。?br />Dim j As Integer,temp As Single
’輸入7位選手100米成績,代碼略
’將7位選手成績從小到大排序
For i=1To 6
For j=7To i+1Step-1
If a(j)<a(j-1)Then
temp=a(j)
a(j)=a(j-1)
a(j-1)=temp
End If
Next j
Next i
’將排序好的選手成績輸出到列表框List1
List1.Clear
For i=1To 7
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click ( ?。_定該遺漏選手的成績排名第幾位?
x=Val(Text1.Text)
i=1
Do While x>a(i)
Loop
Label4.Caption=“該選手位列第”+Str(i)+“名!”
’將該遺漏選手成績添加到適當(dāng)位置,使數(shù)組仍保持有序并輸出到列表框List2
For j=8To i+1Step-1
a(j)=a(j-1)
Next j
For i=1To 8
List2.AddItem a(i)
Next i
End Sub
(1)Form Load事件處理過程中代碼采用的算法是
(2)①處代碼應(yīng)為:
②處代碼應(yīng)為:組卷:12引用:1難度:0.1