2016年10月浙江省普通高校招生選考信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項中只有一個是符合題目要求的,不選、錯選、多選均不得分.)
-
1.下列軟件中,用于視頻文件編輯處理的是( ?。?/h2>
組卷:8引用:7難度:0.9 -
2.下列說法中不正確的是( ?。?/h2>
組卷:13難度:0.9 -
3.下列應用中,體現(xiàn)了人工智能技術的有( ?。?br />①網站自動統(tǒng)計歌曲下載次數
②在線中英文互譯
③Windows 自動運行屏幕保護程序
④用語音方式輸入文字
⑤使用OCR軟件從圖象中識別漢字。組卷:11引用:13難度:0.9 -
4.使用Access軟件創(chuàng)建的“圖書”數據表,其設計視圖的部分界面如圖所示。下列說法正確的是( ?。?img alt="菁優(yōu)網" src="https://img.jyeoo.net/quiz/images/201705/44/86d94501.png" style="vertical-align:middle" />
組卷:14引用:12難度:0.9 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量a,b的值分別是( ?。?br />
組卷:18引用:15難度:0.9
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.小吳為了研究冒泡排序過程中數據的“移動”情況,編寫了一個VB程序,功能如下:在列表框list1中顯示排序前數據(存儲在數組a中),在文本框text1中輸入初始位置(即下標值),單擊“排序”按鈕command1后,在標簽label1中顯示指定初始位置的數據在排序過程中的位置變化情況,排序后的數據顯示在列表框list2中。程序運行界面如圖所示。
實現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正。
Dim a(1To 8)As Integer
Dim n As Integer
Private Sub Form_Load ( )
a(1)=30:a(2)=47:a(3)=30:a(4)=72
a(5)=70:a(6)=23:a(7)=99:a(8)=24
n=8
For i=1To 8
List1.AddItem a(i)
Next i
End Sub
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,k As Integer
Dim posAs Integer
Dim s As String
s=Text1.Text
pos=Val(Text1.Text)
For i=1To n-1
For j=n To i+1Step-1
If a(j)<a(j-1)Then
a(j-1)=a(j)
a(j)=k
'如果pos位置的數據參與交換,則更新pos值,記錄pos變化位置
If pos=j Then
pos=j-1
s=s+“→“+Str(pos)
pos=j
s=s+“→“+Str(pos)
End If
End If
Next j
Next i
Label1.Caption=“位置變化情況:“+s
For i=1To n
List2.AddItem Str(a(i))
Next i
End Sub。組卷:2難度:0.5 -
17.小李與小王合作編寫一個成績統(tǒng)計的VB程序:小王編寫一個過程,該過程從數據庫讀取某一指定科目的相關數據,存儲在數組a中;小李編寫一個過程,該過程依據數組a中的相關數據統(tǒng)計各班平均分.小李與小王約定的數組a各元素含義如圖所示.
程序功能如下:在文本框text1中輸入科目名稱,單擊“讀取數據庫”按鈕command1,程序從數據庫讀取數據;單擊“開始統(tǒng)計”按鈕command2,程序進行統(tǒng)計處理,結果輸出在列表框list1中.程序運行界面如圖所示.數組元素 數組元素的含義 a(1) 存儲班級數n a(2) 從a(2)到a(n+1)依次存儲第1、2、…第n個班級人數 … a(n+1) a(n+2) 從a(n+2)依次存儲第1班每個學生的單科成績、第2班每個學生的單科成績、…第n班每個學生的單科成績 … …
(1)根據程序運行界面中的數據及數組a各元素的含義,數組元素a(5)的值為
(2)分析程序,可知數據庫的文件名為
(3)請在橫線處填入合適的代碼.
Dim a(1to 600)as integer‘數組大小滿足處理要求
Private sub command1_click ( ?。?br />‘本過程由小王完成,從數據庫讀取指定科目的各相關數據,存儲在數組a中
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
Conn ConncctionString=”provider=Microsoft.ACE.OLEDB.12.0;data source=”+”Score.jye.ai”
Conn.Open
Set rs.ActiveConnection=conn
‘本過程的其他語句略
End sub
Private sub command2_click ( ?。?br />‘依據數組a中的相關數據統(tǒng)計各班級平均分
Dim i As Integer,j As Integer,n As Integer
Dim p As Integer,sum As Integer,aver As Single
①
p=n+2
For i=1To n
sum=0
For j=1To a(i+1)
②
p=p+1
Next j
aver=sum/a(i+1)
list1.additemstr(i)+““+str(a(i+1))+““+str(aver)
next i
End sub.組卷:8引用:1難度:0.1