2020年1月浙江省普通高校招生選考信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.下列關于信息處理的描述,錯誤的是( ?。?/h2>
組卷:21引用:7難度:0.7 -
2.下列應用中,目前運用人工智能技術不能實現的是( ?。?/h2>
組卷:28引用:6難度:0.5 -
3.用Access軟件設計某學生管理信息系統(tǒng)的數據庫,其中“學生表”中需要存儲如圖所示的數據,學號的前4位是入學年份。下列關于該學生管理信息系統(tǒng)的描述,錯誤的是( ?。?
學號 姓名 性別 出生年份 戶籍所在地 注冊日期 是否住校 201802001 張立 男 2003 杭州市江干區(qū) 2018/8/31 是 201901001 李紅 女 2004 杭州市西湖區(qū) 2019/9/1 否 … … … … … … … 組卷:24引用:3難度:0.6 -
4.下列關于計算機信息編碼的描述,正確的是( ?。?/h2>
組卷:44引用:6難度:0.7 -
5.用Photoshop軟件制作“馬到成功”作品,在“文字”圖層輸入文字“馬到成功”,進行相關編輯后的文字效果如圖所示。下列描述正確的是( ?。?br />
組卷:18引用:3難度:0.3
二、解答題(共4小題,滿分26分)
-
15.甲乙雙方進行一場球類比賽,一局計分的規(guī)則是:贏1球得1分,用“1”表示;輸一分球失1分,用“0”表示.當任一方得分大于等于6分,且領先對方2分及以上,領先方贏一局.如甲選手一局比賽數據為“101110101”,表示甲選手得6分失3分,局比分6:3.
小王用一個字符串記錄了甲選手多局比賽數據,其中有一處錯誤,位于連續(xù)多個“0”的最后一個.為了找出錯誤,小王的處理方法如圖a所示,對示例中的疑似錯誤位置6和20分別修改數據,并統(tǒng)計每局比分.他編寫了VB程序,功能如下:在窗體Form1的文本框Text1中輸入記錄數據,單擊“分析”按鈕Command1,在列表框List1中輸出修改位置以及修改后每局的比分.程序運行界面如圖b所示.
(1)下列對象中有Text屬性的是
(2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼.
(3)程序中加框處代碼有錯,請改正.組卷:7引用:1難度:0.4 -
16.某省舉辦大型活動,面向省內城市招募有志愿者服務工作經歷的志愿者,每個志愿者的報名數據包含城市序號、姓名(字母縮寫)和參加志愿者服務的次數?,F需要整理報名數據,要求是:先按城市序號從小到大排列;然后,同一城市的志愿者按參加志愿服務的次數從多到少排列。
按上述要求,編寫一個VB程序,功能如下:在列表框List1中顯示整理前的數據,單擊“整理”按鈕Command1,整理結果顯示在列表框List2中,程序運行界面如圖所示。
(1)將數組元素q(1)到q(200)分為10段,如果每段恰好包含20個元素,采用選擇排序算法分別對每段中的元素進行排序,整個排序過程中,數組元素之間的比較次數是
(2)請在橫線處填入合適的代碼。
Const n=200'報名總人數
Const nc=10'城市數
Dim city(1 To n)As Integer,pname(1 To n)As String,times(1 To n)As Integer
Dim b(1 To nc)As Integer'存儲每個城市的報名人數
Dim c(1 To nc)As Integer
Dim q(1 To n)as Integer
Private Sub Form_Load( ?。?br />'本過程讀取城市序號、姓名和參加次數的數據分別存儲在數組city、pname和times中,
'并在List1中顯示,代碼略
End Sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
For i=1 To nc
b(i)=0
Next i
For i=1 Ton
b(k)=b(k)+1
Next i
k=1
For i=1 To nc
c(i)=k
k=k+b(i)
Next i
For i=1 To n
k=city(i)
c(k)=c(k)+1
Next i
pos=1
For i=1 To nc'對各城市報名數據按參加志愿服務的次數進行排序
For j=pos To pos+b(i)-2
k=fp(j,pos+b(i)-1)
t=q(k):q(k)=q(j):q(j)=t
Next j
pos=pos+b(i)
Next i
For i=1 To n
List2.AddItem““&city(q(i))&““&pname(q(i))&““×(q(i))
Next i
End Sub
Function fp(head As Integer,tail As Integer)As Integer
Dim i As Integer,k As Integer
k=head
For i=
If times(q(i))>times(q(k))Then k=i
Next i
fp=k
End Function組卷:7引用:1難度:0.3