2018-2019學(xué)年浙江省金華市東陽中學(xué)高三（下）開學(xué)信息技術(shù)試卷（2月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求選項）
-
1．下列有關(guān)信息的說法正確的是（ ?。?/h2>
組卷：31引用：2難度：0.7 -
2．以下關(guān)于網(wǎng)絡(luò)協(xié)議和網(wǎng)頁保存類型的描述，正確的是（ ?。?/h2>
組卷：8引用：4難度：0.6 -
3．小明掃描課本得到“相信未來3．jpg”圖象，使用OCR軟件進行字符識別，部分界面如圖1所示；將識別結(jié)果用Word軟件進一步進行編輯，部分界面如圖2所示。
下列說法正確的是（ ?。?/h2>組卷：20引用：4難度：0.5 -
4．使用Access軟件進行學(xué)生信息管理。已有數(shù)據(jù)表視圖如圖a所示，部分數(shù)據(jù)存儲在Excel表中如圖b所示，下列說法正確的是（ ?。?br />
組卷：35引用：3難度：0.2 -
5．某算法的部分流程圖如圖所示，進入流程圖前b的初值為-1，流程執(zhí)行后，依次輸入-5，0，1，5，則輸出的值是（ ?。?/h2>組卷：3引用：1難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小明編寫了一個字符串加密程序，運行界面如圖所示。功能如下：在文本框Text1中輸入明文，在文本框Text2中輸入密鑰（密鑰值在1到25之間），單擊“加密”按鈕Command1后，在標(biāo)簽Label1中輸出密文。加密算法如下：
（1）若是字母，則將其變?yōu)榘醋帜疙樞蛲髷?shù)密鑰個數(shù)的字母，若字母超過“Z”或“z”，則將其順延到“A”或“a”后，大小寫保持不變；若為其他字符，則保持不變，例如：
（2）在步驟（1）的基礎(chǔ)上，奇數(shù)位置的字符保持不變，偶數(shù)位置的字符逆序排列。明文 Z h e n _ H a i 密鑰 3 密文 C k h q _ K d l
實現(xiàn)上述功能的VB程序如下，波浪線處有錯誤，請改正。密文 C l h K _ q d k
Private Sub Command1_Click （ ?。?br />Dim a（1 To 100）As String
Dim s As String,i As Integer
Dim j As Integer,n As Integer
Label4．Caption=““
s=Text1．Text
n=Val（Text2．Text）
i=1
Do While i＜=Len（s）
c=Mid（s,i,1）
If c＞=“A“And c＜=“Z“Then
a（i）=Chr（（Asc（c）-Asc（“A“）+n） Mod 26+Asc（“A“））
ElseIf c＞=“a“And c＜=“z“Then
a（i）=Chr（（Asc（c）-Asc（“a“）+n） Mod 26+Asc（“a“））
Else
a（i）=c
End If
i=i+1
Loop
‘①
For i=2 To Len（s）\2 Step 2
t=a（i）：a（i）=a（j）：a（j）=t
‘②
Next i
For i=1 To Len（s）
Label4．Caption=Label4．Caption+a（i）
Next i
End Sub組卷：6引用：1難度：0.4 -
17．某數(shù)據(jù)壓縮方法描述如下：
1）原始數(shù)據(jù)中，某數(shù)不為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用該數(shù)據(jù)表示：
2）原始數(shù)據(jù)中，某數(shù)為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用兩個數(shù)表示，均為0；
3）原始數(shù)據(jù)中，某數(shù)據(jù)相鄰有重復(fù)，壓縮數(shù)據(jù)用3個數(shù)表示：第1個為0，第2個為重復(fù)數(shù)的個數(shù)，第3個數(shù)為該數(shù)本身。
原始數(shù)據(jù)：25 0 78 78 78 78 78 78
壓縮數(shù)據(jù)：25 0 0 0 6 78
程序運行界面如圖所示：
根據(jù)上述算法，小明編寫如下VB程序。
（1）若文本框Text1中輸入數(shù)據(jù)為“0，25，0，78，78，0，0”（不含引號），點擊“壓縮”命令按鈕，在文本框Text2輸出數(shù)據(jù)里有個0。
（2）實現(xiàn)上述功能的VB程序如下。請在橫線處填入合適代碼。
Dim a（1 To 100）As Integer,b（1 To 100）As Integer,c（1 To 100）As Integer
Dim n As Integer,num As Integer
Private Sub Init1 （ ?。?br />Dim s1 As String,c1 As String
Dim i As Integer,t As Integer,len1 As Integer
n=0：t=0：s1=Text1．Text
len1=Len（s1）
For i=1 To len1
ch=Mid（s1，i,1）
If ch＜＞“，“Then
①
Else
n=n+1：a（n）=t：t=0
End If
Next i
n=n+1：a（n）=t
End Sub
Private Sub Command1_Click （ ?。?br />Call Init1
Dim pa As Integer,pb As Integer
Dim firstdata As Integer,count As Integer,i As Integer
pb=1
firstdata=a（1）
n=n+1
a（n）=a（n-1）+1
count=1
For i=2 To n
If a（i）=firstdata Then
count=count+1
Else
If count=1 Then
If firstdata＞0 Then
b（pb）=firstdata：pb=pb+1
Else
b（pb）=0：b（pb+1）=0：pb=pb+2
End If
Else
b（pb）=0
b（pb+1）=count
②
pb=pb+3
End If
count=1
firstdata=a（i）
End If
Next i
Text2．Text=Str（b（1））
For i=③
Text2．Text=Text2．Text+“，“+Str（b（i））
Next i
End Sub組卷：7引用：1難度：0.4