2018年浙江省普通高校招生選考信息方向性技術試卷（4月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．關于信息及信息安全，下列說法或做法不正確的是（ ?。?/h2>
組卷：64引用：2難度：0.9 -
2．小王通過 IE 瀏覽器登錄學校內部閱卷系統(tǒng)，地址欄信息為“htt”。下列說法正確的是（ ?。?/h2>
組卷：9引用：2難度：0.9 -
3．小華掃描報紙得到“勸學.bmp”圖象，使用 OCR 軟件進行字符識別，部分界面如圖1所示，然后使用 Word 軟件編輯識別后的文檔，部分界面如圖2所示。下列說法正確的是（ ?。?br />
組卷：0引用：2難度：0.4 -
4．使用 Access 軟件打開數(shù)據(jù)庫，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：26引用：2難度：0.5 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程，變量 x,y的值分別是（ ?。?br />
組卷：1引用：3難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．編寫一個 VB 程序，實現(xiàn)程序功能如下：隨機產生 10 個 1～20 之間的整數(shù)存 數(shù)組 a,在列表框 List1 中顯示，單擊“排序”按鈕 Command1 后，在列表框 List2 中顯示升序 排序后的結果，運行界面如圖所示。具體算法描述如下：引入數(shù)組 index,index（i）存儲 i 位 置應放置的數(shù)組元素的下標。排序完畢，a（index（i））成為升序序列，即 a（index（1））≤a（index（2））
≤a（index（3））≤……≤a（index（n））。在數(shù)組 a 的所有元素中找出最小元素，將其所在位置存放 在數(shù)組元素 index（1）中，然后在余下的元素中找出最小元素，將其所在位置存放在數(shù)組元素 index（2）中，以此類推，直到完成所有元素排序。如 n=5 時，數(shù)組 a 排序后各變量值如表所示。
實現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯，請改正。i 1 2 3 4 5 a（i） 17 19 9 13 6 index（i） 5 3 4 1 2 a（index（i）） 6 9 13 17 19
Const n=10，maxn=20
Dim a（1To n） As Integer,index（1To n） As Integer,flag（1To n） As Boolean
Private Sub Form_Load （ ?。?br/>Dim i As Integer Randomize
For i=1To n flag（i）=False
a（i）=Int（Rnd （ ）*maxn）+1
List1．AddItem Str（a（i）） Next i
End Sub
Private Sub Command1_Click （ ?。?br/>Dim i As Integer,j As Integer,k As Integer
For i=1To n
For j=1To n
If flag（j）=False Then k=j：Exit For
Next j
For m=k+1To n
If
Then k=m‘（1）
Next m index（i）=k flag（k）=True
Next i
For i=1To n
List2．AddItem
‘（2）
Next i
End Sub組卷：7引用：1難度：0.3 -
17．小王編寫一個 VB 程序模擬數(shù)據(jù)篩選，功能如下：程序運行時從數(shù)據(jù)庫中讀取 成績數(shù)據(jù)，按升序排序后在列表框 List1 中顯示，在文本框 Text1 中輸入成績 1，在文本框Text2 中輸入成績 2，單擊“篩選”按鈕 Command1，篩選出大于等于成績 1 且小于等于成績2 的記錄，并顯示在列表框 List2 中，程序運行界面如圖所示。
（1）運行上述程序，若在文本框 Text1 中輸入 75，Text2 中輸入 85，單擊“篩選”按鈕，則 篩選到的記錄有條（填數(shù)字）。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適代碼。
Const n=20
Dim score（1To n） As Single
Function adj（s As String,n As Integer）
‘此函數(shù)功能：在字符串 s 前添加若干個 空格，使其長度變?yōu)?nbsp;n.代碼略
End Function
Function search_left（key As Integer）
‘此函數(shù)功能：返回大于等于 key 的數(shù) 組元素的起始位置。代碼略。
End Function
Function search_right（key As Integer）
Dim i As Integer,j As Integer,m As Integer i=1：j=n
Do While i＜=j
If key＞=score（m） Then i=m+1Else j=m-1
Loop
End Function
Private Sub Form_Load （ ?。?br />‘從數(shù)據(jù)庫中讀取成績存數(shù)組 score,記錄數(shù)存 n,并對此數(shù)組 score 升序排序，代碼略
End Sub
Private Sub Command1_Click （ ?。?br />Dim num1As Integer,num2As Integer,first As Integer,last As Integer
List2．Clear
num1=Val（Text1．Text）：num2=Val（Text2．Text）
first=search_left（num1）：last=search_right（num2）
If total＜=0Then
List2．AddItem“無篩選到的記錄！“Else
List2．AddItem“篩選到“+Str（total）+“條記錄！“List2．AddItem“依次是：“
For i=first To last
List2．AddItem adj（Str（i），3）+adj（Str（score（i）），6）Next i
End If
End Sub組卷：9引用：1難度：0.2