2018年浙江省寧波市高考信息選考試卷（3月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求，不選、多選、錯(cuò)選均不得分）
-
1．下列有關(guān)信息和信息技術(shù)的描述，正確的是（ ?。?/h2>
組卷：1引用：1難度：0.6 -
2．下列有關(guān)瀏覽器與網(wǎng)頁的說法，正確的是（ ）
組卷：4引用：3難度：0.6 -
3．用 Word 軟件編輯某文檔，部分界面如圖所示。
對(duì)于圖中信息，下列說法不正確的是（ ?。?/h2>組卷：6引用：2難度：0.3 -
4．使用UltraEdit軟件觀察“Word 軟件”這幾個(gè)字符的內(nèi)碼，部分界面如圖所示。下列說法正確的是（ ?。?br />
組卷：1引用：1難度：0.6 -
5．某算法的部分流程圖如圖所示，下列VB代碼與圖中流程一致的是（ ?。?/h2>組卷：0引用：1難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小李基于選擇排序算法編寫了一個(gè)VB程序，功能如下：在文本框Text1中顯示排序前的數(shù)據(jù)，單擊“排序”按鈕Command1，在文本框Text2中顯示剔除重復(fù)數(shù)據(jù)后的升序排序結(jié)果。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Const n=10
Dim a（1 To n） As Integer
Private Sub Command1_Click （ ?。?br />Dim i As Integer,j As Integer,t As Integer
Dim k As Integer,bottom As Integer
’獲取排序前數(shù)據(jù)，依次存儲(chǔ)在數(shù)組a中，并在文本框Text1中顯示。代碼略
bottom=n：i=1
Do While i＜=bottom-1
k=i：j=bottom
Do While j＞i
If a（j）＜a（k） Then
k=j
ElseIf a（j）=a（i） Then’若發(fā)現(xiàn)重復(fù)數(shù)據(jù)，進(jìn)行剔除處理
a（j）=a（bottom）
If k=bottom Then
’（1）
bottom=bottom-1
End If
j=j-1
Loop
If k＜＞i Then
t=a（k）：a（k）=a（i）：a（i）=t
’（2）
End If
i=i+1
Loop
Text2．Text=““
For i=1 To bottom
Text2．Text=Text2．Text+Str（a（i））
Next i
End Sub組卷：0引用：1難度：0.3 -
17．小林發(fā)給小周一串密文“VghpcyBpcyBhbiBleGFtcGxl”并告訴小周，這串密文由明文字符串（僅包含ASCII字符，且字節(jié)數(shù)為3的倍數(shù)）經(jīng)以下規(guī)則加密而成：
（1）將明文ASCII碼分成3個(gè)字節(jié)一組，順次連接后得到24位二進(jìn)制數(shù)；
（2）將得到的24位二進(jìn)制數(shù)字按每6位一組分成4組，每組6個(gè)位；
（3）在（2）中得到的6個(gè)位前補(bǔ)上兩個(gè)0，得到4個(gè)字節(jié)的二進(jìn)制數(shù)；
（4）將（3）中得到的四個(gè)二進(jìn)制數(shù)分別轉(zhuǎn)換為十進(jìn)制數(shù)；
（5）將每個(gè)十進(jìn)制數(shù)轉(zhuǎn)換為1個(gè)加密字符，對(duì)應(yīng)的“密碼表”按數(shù)值由0到63依次為“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”小周按照上述規(guī)則，設(shè)計(jì)了一個(gè)解密VB程序，功能如下：?jiǎn)螕簟敖饷堋卑粹oCommand1，程序依次將文本框Text1中每4個(gè)密文字符按加密規(guī)則轉(zhuǎn)換為3個(gè)明文字符，連接這些明文字符，最后在文本框Text2中輸出結(jié)果。程序運(yùn)行效果如圖所示。
實(shí)現(xiàn)解密功能的VB程序如下，請(qǐng)回答下列問題：
（1）若密文字符串的長(zhǎng)度是120，則解密后明文字符串的長(zhǎng)度是。
（2）請(qǐng)?jiān)跈M線處填入合適代碼。
Function Char2Int（c As String） As Integer
If c＞=“A“And c＜=“Z“Then’字母“A”的 ASCII碼是65
Char2Int=Asc（c）-65
Elself c＞=“a“And c＜=“z“Then’字母“a”的ASCII碼是 97
Char2Int=Asc（c）-71
ElseIf c＞=“0“And c＜=“9“Then’數(shù)字“0”的ASCII碼是48
ElseIf c=“+“Then
Char2Int=62
Else
Char2Int=63
End If
End Function
Private Sub Command1_Click （ ?。饷苓^程
Dim n As Integer,s As String,i As Integer,ss As String
Dim a（0 To 3）As Integer’依次存儲(chǔ)一組四個(gè)密文按密碼表換算出的數(shù)值
Dim b（0 To 2）As Integer’依次存儲(chǔ)一組三個(gè)明文字符的ASCII值
s=Text1．Text
n=Len（s）
ss=““
For i=1 To n Step 4
For j=i To i+3
a（）=Char2Int（Mid（s,j,1））
Next j
b（0）=a（0）*4+a（1）\16
b（2）=（a（2）Mod 4）*64+a（3）
For j=0 To 2
ss=ss+Chr（b（j））
Next j
Next i
Text2．Text=ss
End Sub組卷：1引用：1難度：0.3