2019-2020學(xué)年浙江省嘉興一中高三（上）期中信息技術(shù)試卷
發(fā)布：2024/12/1 17:30:2
一、選擇題（共12小題，每小題2分，滿(mǎn)分24分）
-
1．下列有關(guān)信息的說(shuō)法，不正確的是（ ）
組卷：8引用：1難度：0.6 -
2．下列有關(guān)網(wǎng)絡(luò)資源的說(shuō)法，不正確的是（ ?。?/h2>
組卷：4引用：1難度：0.6 -
3．下列應(yīng)用中，體現(xiàn)了人工智能技術(shù)的是（ ?。?/h2>
組卷：2引用：1難度：0.6 -
4．關(guān)于Access數(shù)據(jù)庫(kù)，下列說(shuō)法正確的是（ ?。?br />
組卷：5引用：3難度：0.5 -
5．用UltraEdit軟件觀察“Windows10中文版”這幾個(gè)字符的內(nèi)碼如圖所示：下列描述中正確的是（ ?。?br />
組卷：11引用：1難度：0.4
二、解答題（共4小題，滿(mǎn)分26分）
-
15．數(shù)組a存儲(chǔ)降序排列的m個(gè)數(shù)據(jù)，數(shù)組b中存儲(chǔ)的是升序排列的n個(gè)數(shù)據(jù)，且兩個(gè)數(shù)組中存儲(chǔ)的數(shù)據(jù)為區(qū)間[1，20]范圍內(nèi)的不重復(fù)的隨機(jī)整數(shù)。現(xiàn)將兩個(gè)數(shù)組的數(shù)據(jù)合并到c數(shù)組中，使c數(shù)組的數(shù)據(jù)為左右交替上升，如表所示：
當(dāng)窗體 Form1加載時(shí)，自動(dòng)產(chǎn)生a、b數(shù)組的數(shù)據(jù)，并分別顯示在列表框List1與List2中，單擊合并按鈕Command1后，在c數(shù)組中保存按規(guī)則合并后的a、b數(shù)組的數(shù)據(jù)，并顯示在列表框List3中。程序截圖如下所示：
實(shí)現(xiàn)該功能的 VB 程序如下：
Const m=5
Const n=6
Dim a（1 To m） As Integer
Dim b（1 To n） As Integer
Dim c（1 To m+n） As Integer
‘窗體加載時(shí)，生成數(shù)組 a、b 中的數(shù)據(jù)，并按要求排序后顯示在列表框中，代碼略
Private Sub Command1_Click （ ）
Dim pa As Integer,pb As Integer,pc As Integer,s As Integer,flag As Boolean
pa=m：pb=1：pc=1
flag=True
Do While
If a（pa）＜b（pb） Then
s=a（pa）
pa=pa-1
Else
s=b（pb）
pb=pb+1
End If
c（pc）=s
If flag Then
pc=m+n-pc+1
Else
pc=
-pc
End If
Loop
‘處理 a、b 數(shù)組中剩余數(shù)據(jù)，并在列表框 List3 中輸出數(shù)組 c,代碼略
End Sub
（1）窗體加載的事件處理過(guò)程名為。（填字母：A．Form1_Click/B．Form_Click/C．Form1_Load/D．Form_load）
（2）加框處代碼有錯(cuò)，請(qǐng)改正。
（3）在橫線處填入合適的代碼。
組卷：0引用：1難度：0.5 -
16．小藍(lán)設(shè)計(jì)了一個(gè)數(shù)字字符串的簡(jiǎn)單加密解密小程序，該程序的加密規(guī)則是計(jì)算連續(xù)升序子串的長(zhǎng)度，將該長(zhǎng)度字符插入到相應(yīng)子串后面。例如：
輸入2350123456783，先將字符串拆成三段，分別是235，012345678，3要求每一段必須嚴(yán)格有序，如果無(wú)法實(shí)現(xiàn)連續(xù)升序，則單獨(dú)作為一個(gè)拆分。
在文本框Text1中輸入原文，單擊“加密”按鈕，可在文本框Text2中輸出密文。原字符串 235 012345678 3 連續(xù)升序字符數(shù) 3 9 1 密文 235 3 012345678 9 3 1
在文本框Text2中輸入密文，單擊“解密”按鈕，可在文本框Text3中輸出原文。
（1）程序運(yùn)行時(shí)，在文本框Text2中輸入“1233012345678910”，則在Text3中顯示的內(nèi)容為。
（2）實(shí)現(xiàn)上述功能的VB代碼段如下，請(qǐng)?jiān)跈M線處填上合適代碼。
Private Sub Command1_Click （ ?。?
加密過(guò)程
Dim a（1 To 100）As String
Dim s1，s2 As String：Dim tmp As Integer
tmp=1：s1=Text1．Text
For i=1 To Len（s1）
a（i）=Mid（s1，i,1）
Next i
s2=a（1）
For i=2 To Len（s1）
IfThen
s2=s2+a（i）：tmp=tmp+1
Else
s2=s2+LTrim（Str（tmp））'LTrim函數(shù)用以移除左邊的符號(hào)位空字符
s2=s2+a（i）
End If
Next i
s2=s2+LTrim（Str（tmp））：Text2．Text=s2
End Sub
Private Sub Command2_Click （ ?。?解密過(guò)程
Dim b（0 To 100）As String
Dim k As String,t As Integer,n As Integer
Dim s As String,s3 As String,j As Integer
s=Text2．Text：n=Len（s）
For i=1 To n
b（i）=Mid（s,i,1）
Next i
t=n-1：k=Val（b（n））
Do While t＞0
If k＜＞0 Then
For j=1 To k
t=t-1
Next j
k=Val（b（t））
t=t-1
Else
k=10
t=t-1
End If
Loop
Text3．Text=s3
End Sub組卷：0引用：1難度：0.5