2018年浙江省寧波市高考信息選考試卷(3月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求,不選、多選、錯選均不得分)
-
1.下列有關(guān)信息和信息技術(shù)的描述,正確的是( )
組卷:1引用:1難度:0.6 -
2.下列有關(guān)瀏覽器與網(wǎng)頁的說法,正確的是( ?。?/h2>
組卷:3引用:3難度:0.6 -
3.用 Word 軟件編輯某文檔,部分界面如圖所示。
對于圖中信息,下列說法不正確的是( ?。?/h2>組卷:6引用:2難度:0.3 -
4.使用UltraEdit軟件觀察“Word 軟件”這幾個字符的內(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.小李基于選擇排序算法編寫了一個VB程序,功能如下:在文本框Text1中顯示排序前的數(shù)據(jù),單擊“排序”按鈕Command1,在文本框Text2中顯示剔除重復(fù)數(shù)據(jù)后的升序排序結(jié)果。程序運行界面如圖所示。
實現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正。
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ù),依次存儲在數(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ù),進行剔除處理
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個字節(jié)一組,順次連接后得到24位二進制數(shù);
(2)將得到的24位二進制數(shù)字按每6位一組分成4組,每組6個位;
(3)在(2)中得到的6個位前補上兩個0,得到4個字節(jié)的二進制數(shù);
(4)將(3)中得到的四個二進制數(shù)分別轉(zhuǎn)換為十進制數(shù);
(5)將每個十進制數(shù)轉(zhuǎn)換為1個加密字符,對應(yīng)的“密碼表”按數(shù)值由0到63依次為“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”小周按照上述規(guī)則,設(shè)計了一個解密VB程序,功能如下:單擊“解密”按鈕Command1,程序依次將文本框Text1中每4個密文字符按加密規(guī)則轉(zhuǎn)換為3個明文字符,連接這些明文字符,最后在文本框Text2中輸出結(jié)果。程序運行效果如圖所示。
實現(xiàn)解密功能的VB程序如下,請回答下列問題:
(1)若密文字符串的長度是120,則解密后明文字符串的長度是
(2)請在橫線處填入合適代碼。
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’依次存儲一組四個密文按密碼表換算出的數(shù)值
Dim b(0 To 2)As Integer’依次存儲一組三個明文字符的ASCII值
s=Text1.Text
n=Len(s)
ss=““
For i=1 To n Step 4
For j=i To i+3
a(
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