2018-2019學(xué)年浙江省重點(diǎn)中學(xué)高三(上)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、錯(cuò)選、多選均不得分。)
-
1.下列關(guān)于信息的說法,不正確的是( ?。?/h2>
組卷:19引用:1難度:0.6 -
2.下列關(guān)于網(wǎng)頁與電子郵件的說法,正確的是( ?。?/h2>
組卷:5引用:1難度:0.5 -
3.關(guān)于微信小程序“智能掃描助手”的相關(guān)操作如下:
①使用微信“掃一掃”功能,打開“智能掃描助手”
②使用手機(jī)拍照功能獲取圖象
③使用識(shí)別功能識(shí)別圖象中的文字
④使用語音輸入法糾正錯(cuò)誤的識(shí)別結(jié)果
⑤將識(shí)別結(jié)果翻譯成英文
⑥復(fù)制識(shí)別結(jié)果后發(fā)送給好友
其中體現(xiàn)人工智能技術(shù)的是( ?。?/h2>組卷:12引用:1難度:0.6 -
4.關(guān)于Access數(shù)據(jù)庫和數(shù)據(jù)表,下列說法正確的是( ?。?/h2>
組卷:15引用:2難度:0.4 -
5.某算法的部分流程圖如圖所示,若輸入m的值是5,執(zhí)行這部分流程后,變量s和i的值是( )
組卷:8引用:3難度:0.4
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.循環(huán)排序。任意生成10個(gè)[1,100]之間的整數(shù),編程實(shí)現(xiàn)將這10個(gè)數(shù)進(jìn)行循環(huán)升序排序,即首尾相連后是一個(gè)升序序列。要求最小值位置不變,然后依次進(jìn)行排列。程序運(yùn)行界面如圖所示:
實(shí)現(xiàn)上述功能的VB程序如下,加框處的代碼有誤,請(qǐng)改正。
Dim a(1 To 10)As Integer,b(1 To 10)As Boolean
Private Sub Command1_Click ( ?。?br />Dim min As Integer,pmin As Integer
min=a(1):pmin=1
For i=2 To 10
If a(i)<=min Then min=a(i):pmin=i
Next i
b (pmin)=True
pmin=
If pmin=0 Then pmin=10
For i=1 To 8
k=pmin
For j=1 To 10
If Then k=j
Next j
If k<>pmin Then
temp=a(k):a(k)=a(pmin):a(pmin)=temp
End lf
b(pmin)=True
pmin=pmin-1
If pmin=0 Then pmin=10
Next i
將排序后的結(jié)果輸出在列表框List2中,代碼略。
End Sub
Private Sub Form Load ( ?。?br />隨機(jī)生成10個(gè)[1,100]之間的整數(shù),存儲(chǔ)在數(shù)組a中,并初始化數(shù)組b為 False,按順序輸出在列表框List1中,代碼略。
End sub組卷:3引用:1難度:0.4 -
17.成績(jī)賦分。浙江省的選考成績(jī)采用等級(jí)賦分制,共分為21檔。賦分方法是先將該科目的成績(jī)從高到低排序,再依次根據(jù)不同檔次的人數(shù)進(jìn)行賦分。當(dāng)成績(jī)相同但人數(shù)超出該等級(jí)人數(shù)時(shí),則減少下一檔的人數(shù)。當(dāng)原始成績(jī)?yōu)?分,則賦分成績(jī)也為0分。某學(xué)校某門科目的選考人數(shù)為200人,部分成績(jī)?nèi)鐖Da所示,其相應(yīng)等級(jí)的人數(shù)如圖b所示。請(qǐng)回答下列問題:
(1)根據(jù)題意,觀察賦分表,考號(hào)670500554的學(xué)生的賦分成績(jī)是
(2)實(shí)現(xiàn)上述功能的程序如下,請(qǐng)?jiān)跈M線處填上合適的代碼。
Dima(1To21)As Integer′該檔次賦分分值
Dimb(1To21)As Integer′該檔次人數(shù)
Dim kh(1To200)As String′學(xué)生考號(hào)
Dim cj1(1To200)As Integer'學(xué)生的原始成績(jī)
Dim cj2(1To200)As Integer'學(xué)生賦分后的成績(jī)
Private Sub Form_Load( ?。?br />'從數(shù)據(jù)庫中讀取數(shù)據(jù),將21個(gè)等級(jí)的分值和人數(shù)存儲(chǔ)在數(shù)組a和數(shù)組b中,將學(xué)生的考號(hào)和原始成績(jī)存儲(chǔ)在數(shù)組kh和數(shù)組cj1中。最終根據(jù)原始成績(jī)從高到低排序后將kh和cj1輸出在列表框 ListI中,代碼略。
End sub
Private Sub Commandl_Click( ?。?br />Dim k As Integer
Dim flag As boolean'是否還可以對(duì)該檔次進(jìn)行賦分
k=1:t=1:cj2(1)=a(1):flag=True
For i=2 To 200
′根據(jù)學(xué)生的原始成績(jī)按檔次進(jìn)行賦分
If cjl(i)=oThen
cj2(i)=0
Elsele①
t=t+1:cj2 (i)=a(k)
Else
flag=False
End If
If Not flag then'當(dāng)前檔次的分值已經(jīng)賦分完畢
Do While t>b(k)
②
Loop
t=t+l:cj2(i)=a(k):③
End If
Next i
List2.AddItem″學(xué)生考號(hào)″+″″+″學(xué)生成績(jī)″
For i=1 To 200
List2.AddItem kh (i)+″″+Str(cj2(i))
Next i
End sub組卷:5引用:1難度:0.1