2016-2017學(xué)年浙江教育綠色評(píng)價(jià)聯(lián)盟聯(lián)考高三（上）月考信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．下列關(guān)于信息安全的敘述，正確的是（ ?。?/h2>
組卷：3引用：1難度：0.9 -
2．汽車自動(dòng)駕駛技術(shù)根據(jù)激光測(cè)距器、超聲波探測(cè)的數(shù)據(jù)來(lái)分析周圍的交通狀況，并通過(guò)一個(gè)詳盡的地圖進(jìn)行導(dǎo)航．這主要應(yīng)用了信息技術(shù)中的（ ?。?/h2>
組卷：3引用：1難度：0.9 -
3．某Word文檔中各出現(xiàn)了8處“alias”和“Alias”單詞，使用“查找和替換”功能進(jìn)行操作，部分界面如下圖所示
單擊“全部替換”按鈕后，下列描述正確的是（ ?。?/h2>組卷：10引用：2難度：0.7 -
4．某學(xué)校學(xué)生校園卡的信息表如表所示．若用Access數(shù)據(jù)表來(lái)存儲(chǔ)上述表的信息，下列部分字段設(shè)計(jì)最合理的是（ ）
編號(hào) 姓名 性別 余額 入學(xué)時(shí)間 是否住校 S001 張霞軍 男 ￥128.9 2015-09-01 是 Y102 徐秀晴 女 ￥88.0 2015-09-01 否 … … … … … … 組卷：2引用：1難度：0.5 -
5．如圖所示的算法流程圖，執(zhí)行情況如下：
（1）若輸入a、b的值分別為2、7，輸出結(jié)果為2
（2）若輸入a、b的值分別為10、3，輸出結(jié)果為3
下列流程圖填入虛線框中，符合條件的是（ ?。?/h2>組卷：3引用：1難度：0.7
二、解答題（共5小題，滿分26分）
-
16．用VB程序編寫計(jì)算兩個(gè)字符環(huán)上最長(zhǎng)連續(xù)公共字符串長(zhǎng)度的程序．例如，字符串“ABCEFAGADEGKABUVKLM”的首尾連在一起，構(gòu)成一個(gè)環(huán)；字符串“MADJKLUVKL”的首尾連在一起，構(gòu)成另一個(gè)環(huán)；“UVKLMA”是這兩個(gè)環(huán)的一個(gè)連續(xù)公共字符串．
功能如下：在文本框Text1中輸入字符串1，在文本框Text2中輸入字符串2，單擊“判斷”按鈕Command1后，
在文本框Text1中顯示公共字符串，程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請(qǐng)改正．
Function maxnum（a As Integer,b As Integer）As Integer
If a＜b Then maxnum=a Else maxnum=b
End Function
Private Sub Command1_Click （ ?。?br /> Dim sl As String,s2 As String,res As String'存儲(chǔ)2個(gè)字符環(huán)
Dim i As Integer,j As Integer,m As Integer
Dim num As Integer,pd As Boolean,n As Integer
Dim max As Integer'存儲(chǔ)字符環(huán)中最長(zhǎng)的連續(xù)公共字符串長(zhǎng)度
Dim resmax As string'存儲(chǔ)字符環(huán)中最長(zhǎng)的連續(xù)公共字符串
s1=Text1．Text：s2=Text2．Text
max=0：res=''''
For i=1 To Len（s1）
For j=1 To Len（s2）
If Mid（s1，i,1）=Mid（s2，j,1）Then
res=Mid（s1，i,1）
num=l：m=i：n=j
pd=True
EndIf
Do While pd=True
m=m+1：n=n+1
If m＞Len（s1）Then m=m-Len（s1）
If n＞Len（s2）Then n=n-Len（s2）
If
Then'（1）
pd=flash
Else
num=num+1
res=res+Mid（s2，n,1）
EndIf
If num＞=maxnum （Len（s1），Len（s2）） Then pd=False
Loop
If num＞max Then
'（2）
resmax=res
res=''''
EndIf
Next j
Next i
Text3．Text=resmax
End Sub.組卷：2引用：1難度：0.1 -
17．小王編寫統(tǒng)計(jì)工廠工人生產(chǎn)某種零件數(shù)量人數(shù)的VB程序．運(yùn)行程序后，從數(shù)據(jù)庫(kù)中獲取每個(gè)工人生產(chǎn)零件的數(shù)量數(shù)據(jù)，并存儲(chǔ)在數(shù)組xs中；在文本框Text1中輸入零件數(shù)（整數(shù)），單擊“統(tǒng)計(jì)”按鈕command1，程序?qū)⒁来魏Y選出數(shù)組xs中零件數(shù)大于等于輸入零件數(shù)的數(shù)據(jù)，并存儲(chǔ)在數(shù)組bf中．最后統(tǒng)計(jì)數(shù)組bf中生產(chǎn)零件數(shù)相同的人數(shù)，存儲(chǔ)在數(shù)組jg后，并將統(tǒng)計(jì)結(jié)果輸出在列表框list1中，數(shù)組jg各元素含義如表所示，程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)以上功能的VB程序如下，請(qǐng)回答下列問(wèn)題：數(shù)組元素
數(shù)組元素的含義
jg（1）存儲(chǔ)查找第1個(gè)大于n的零件數(shù)
jg（2）存儲(chǔ)第1個(gè)大于n的零件數(shù)共有幾個(gè)工人人數(shù) … … jg（2*i-1） 存儲(chǔ)查找到第i個(gè)大于n的零件數(shù) jg（2*i）
存儲(chǔ)第i個(gè)大于n的零件數(shù)共有幾個(gè)工人人數(shù) … …
（1）根據(jù)程序運(yùn)行界面數(shù)據(jù)，及數(shù)組jg各元素的含義進(jìn)行分析，數(shù)組元素jg（8）的值是（填寫數(shù)值）．
（2）分析程序，當(dāng)前程序中處理的數(shù)據(jù)獲取的數(shù)據(jù)表名是（填數(shù)據(jù)表名）．
（3）請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim xs（1 To 1000）As Integer,jg（1 To 1000）As Integer'數(shù)組大小滿足處理要求
Dim n As Integer'存儲(chǔ)數(shù)據(jù)庫(kù)總的記錄數(shù)
Private Sub Form_Load（ ?。?br /> Dim conn As New adodb.Conncction,rs As New adodb.Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；
Data Source=“+App.Path+“\date.jye.ai“
conn.Open
strSQL=“SELECT*From tab“
Set rs.ActiveConnection=conn
'本過(guò)程的其他語(yǔ)句略
'本過(guò)程求出n的值
End Sub
Private Sub Command1_Click（ ?。?br /> Dim bf（1 To 1000）As Integer'數(shù)組bf存儲(chǔ)大于等于輸入零件數(shù)的數(shù)據(jù)
Dim maxn As Integer,d As Integer,k As Integer,da As Integer
Dim i As Integer,j As Integer,flag As Integer
da=Val（Text1．Text）：maxn=0
For j=1 To n
If xs（j）＞=da Then maxn=maxn+1：bf（maxn）=xs（j）
Next j
k=1
For i=1 To maxn
flag=0
For j=1 To i-1
If bf（i）=bf（j） Then flag=1
Next j
If flag=0 Then
d=1
For j=i+1 To maxn
If bf（i）=bf（j） Then
Next j
jg（2*k）=d
k=k+1
EndIf
Next i
k=k-1：List1．Clear
For j=1 To 2*k Step 2
List1．AddItem Str（jg（j））+““+Str（jg（j+1））
Next j
End Sub.組卷：2引用：1難度：0.1