2018年浙江省溫州市高考信息技術(shù)二模試卷
發(fā)布:2024/4/20 14:35:0
一、第一部分信息技術(shù)(共50分)選擇題(本大題共9小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、錯(cuò)選、多選均不得分.)
-
1.學(xué)校通過(guò)郵箱 wzzx@163.com 給某學(xué)生家長(zhǎng)的郵箱 4272242@qq.jye.ai 發(fā)送了一封電子郵件,在家長(zhǎng)未收取該郵件時(shí),則該電子郵件將( )
組卷:25引用:1難度:0.9 -
2.下列關(guān)于瀏覽器和網(wǎng)頁(yè)的說(shuō)法,正確的是( )
組卷:27引用:3難度:0.9 -
3.ABBYY FineReady 是一款字符識(shí)別軟件,打開軟件,常用界面如圖所示,下列說(shuō)法錯(cuò)誤的是( ?。?img alt src="http://img.jyeoo.net/quiz/images/201804/2/b3834a8f.png" style="vertical-align:middle" />
組卷:14引用:1難度:0.9 -
4.使用 Access 軟件打開數(shù)據(jù)庫(kù),數(shù)據(jù)表視圖如圖 a 所示,設(shè)計(jì)視圖如圖 b 所示,下列說(shuō)法正確的是( ?。?img alt src="http://img.jyeoo.net/quiz/images/201804/2/bd7f059b.png" style="vertical-align:middle" />
組卷:32引用:3難度:0.9 -
5.某流程圖如圖所示。執(zhí)行該算法,下面說(shuō)法錯(cuò)誤的是( ?。?br />
組卷:7引用:2難度:0.7
【加試題】
-
16.某排序算法思想如下:每一趟將一個(gè)待排序的記錄,按其關(guān)鍵字的大小插入到已經(jīng)排好序的一組記錄的適當(dāng)位置上,直到所有待排序記錄全部插入為止。例如(9,3,1,4)升序排序;第一步 3 插入到有序記錄(9),得到(3,9);第二步 1 插入到有序記錄(3,9),得到(1,3,9);第三步 4 插入到有序記錄(1,3,9),得到最終有序記錄為“1,3,4,9”。
為此,編寫了一個(gè) VB 程序,功能如下:運(yùn)行程序,窗體加載時(shí)隨機(jī)產(chǎn)生 10 個(gè)隨機(jī)整數(shù),并在列表框 List1 中依次顯示排序前數(shù)據(jù),單擊“排序”按鈕 Command1,在列表框 List2 中
顯示經(jīng)過(guò)上述排序算法后的數(shù)據(jù),運(yùn)行結(jié)果如圖 b 所示。實(shí)現(xiàn)上述功能的 VB 代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正。
Const n=10
Dim a(1To n) As Integer'生成 n 個(gè)隨機(jī)數(shù),存儲(chǔ)在 a 數(shù)組,代碼略
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,t As Integer
For i=2To n
t=a(i):j=i-1
Do While t<a(j)
a(j+1)=a(j) j=j-1
IfThen Exit Do
Loop
Next i
For i=1To n
List2.AddItem Str(a(i))
Next i
End Sub組卷:41引用:2難度:0.1
【加試題】
-
17.編寫一個(gè)技術(shù)成績(jī)查詢的 VB 程序。程序功能如下:在文本框 Text1 中輸入分?jǐn)?shù) key(0-50 的整數(shù)),單擊“查詢”按鈕 Command1,查詢出信息成績(jī)大于等于 key 的所有記錄,并以“信息”為主要關(guān)鍵字、“通用”為次要關(guān)鍵字均進(jìn)行降序排序,結(jié)果輸出在列表框 List2 中。運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的 VB 程序如下,請(qǐng)回答下列問(wèn)題:
(1)觀察圖,排序后第 5 位的學(xué)生姓名是
(2)請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim xm(1To 600)As String'存儲(chǔ)學(xué)生姓名
Dim xx(1To 600)As Integer'存儲(chǔ)信息成績(jī)
Dim ty(1To 600)As Integer'存儲(chǔ)通用成績(jī)
Dim n As Integer'存儲(chǔ)記錄總數(shù)
Private Sub Form_Load ( )
'本過(guò)程從數(shù)據(jù)庫(kù)中讀取學(xué)生數(shù)據(jù),存儲(chǔ)在相應(yīng)的變量中,并在 List1 中顯示'代碼略
End sub
Private Sub Command1_Click ( ?。?br />Dim key As Integer,mid As Integer
Dim i As Integer,L As Integer,R As Integer,k As Integer
Dim tmp1As String,tmp2As Integer
'以“信息”為主要關(guān)鍵字、“通用”為次要關(guān)鍵字排序
For i=1To n-1
k=i
For j=i+1To n
If xx(k)<xx(j) or①
k=j
End If
Next j
If k<>i Then
tmp1=xm(k):xm(k)=xm(i):xm(i)=tmp1
tmp2=xx(k):xx(k)=xx(i):xx(i)=tmp2
tmp2=ty(k):ty(k)=ty(i):ty(i)=tmp2
End If
Next i'查詢記錄
key=Val(Text1.Text) L=1:R=n
Do While L<=R
mid=(L+R)\2
If②
L=mid+1
Else
R=mid-1
End If
Loop
List2.Clear
'vbTab 相當(dāng)于是鍵盤上制表符 TAB 按鍵的功能
List2.AddItem“姓名“& vbTab &“信息“& vbTab &“通用“
For i=1to③
List2.AddItem xm(i) & vbTab & xx(i) & vbTab & ty(i)
Next i
End sub組卷:17引用:1難度:0.1