資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省湖州市2021-2022學年高三上學期信息技術高考考前模擬（三）
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021·湖州模擬）下列有關信息和信息技術的說法，正確的是（　　）
A．信息技術和多媒體技術從古至今一直存在
B．物質、能源和信息是構成當今人類社會的三大要素
C．文字、語言、圖形、圖像、聲音和形體動作都是常見的信息表達技術
D．用支付寶支付時，在一定時間段內二維碼會自動更新，這體現了信息的實時性
2．（2021·湖州模擬）下列有關網頁和郵件的說法，不正確的是（　　）
A．自動網頁搜索技術和全文檢索技術是搜索引擎的兩大核心技術
B．將網頁保存為“網頁，僅HTML”類型，可以保存網頁中的圖片
C．SMTP協議是實現將電子郵件從發件人計算機發送到收件人電子信箱的協議
D．HTTP協議的作用是將瀏覽器發出的請求發送至Web服務器，并將服務器回應的網頁傳回至瀏覽器
3．（2021·湖州模擬）使用Access軟件創建數據表如下圖所示，下列說法正確的是（　　）
A．當前數據庫的文件名是“資產說明.accdb”
B．進入“資產說明”的設計視圖后，無法將“ID”字段設為主鍵
C．添加一條新記錄，則新記錄的“ID”字段值可能為“5”
D．在某條記錄的“購置日期”字段中輸入“2018-10-29”，不會自動轉為“2018/10/29”
4．（2021·湖州模擬）將下列數轉換成十進制數，其中是8的倍數的是（　　）
A．10111010B B．101110011B C．123H D．120H
5．（2021·湖州模擬）利用PhotoShop軟件制作“夏至.psd”作品，編輯界面如下圖所示：
下列描述正確的是（　　）
A．可以將“夏至”圖層的圖層樣式復制粘貼到“花”圖層
B．調整“夏至”和“圓”的圖層順序，不會影響作品的呈現效果
C．可以使用“自由變換”命令僅將“夏至”圖層中的“夏”字變大
D．設置背景圖層不透明度為0%，將當前文件保存為夏至.png格式，可以看見透明背景
6．（2021·湖州模擬）一幅未經壓縮的1024×1600像素的BMP圖像，將該圖像存儲為JPEG格式（其他參數不變），其存儲容量為100KB，圖像的壓縮比約為32：1，則該圖像的色彩位數為（
A．4位 B．8位 C．16位 D．24位
7．（2021·湖州模擬）已知ch是一小寫字母，VB表達式Int（Asc（ch）/10+0.5）+Int（Rnd*3-1）^2的最大值是（　　）
A．11 B．12 C．13 D．14
8．（2021·湖州模擬）某算法的流程圖如圖所示，若輸入k1=0，k2=0，n是1到31之間的整數，執行這部分流程之后，輸出k1和k2的值相等，則滿足條件的n的值的個數是（　　）
A．4 B．6 C．7 D．8
9．（2021·湖州模擬）有如下VB程序段：
s1 = "2019GaoKao"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
ch = Str((Val(ch)+1) Mod 10)
s2 = ch + s2
ElseIf ch >= "a" And ch <= "z" Then
ch = Chr(Asc(ch) - 32) s2 = s2 + ch
End If
Next i
該程序運行后，s2的值是（　　）
A．"A0A00213" B．"0213A0A0" C．"02130A0A" D．"0A0A0213"
10．（2021·湖州模擬）反轉字符串，如輸入字符串為“abcdefg”，則輸出字符串“gfedcba”，實現該功能的部分程序如下所示，劃線處的正確語句是（　　）
s = Text1.Text：n = Len(s)
'按s中字符順序從左到右依次存入到數組a中，代碼略
i = 1
Do While i <= n - 1
t = ①
For j = n - 1 To i Step -1
a(j + 1) = a(j)
Next j
②
i = i + 1
Loop
For i = 1 To Len(s)
Text2.Text = Text2.Text + ③
Next i
A．① a(n) ② a(j + 1) = t ③ a(i)
B．① a(n) ② a(j) = t ③ a(i)
C．① a(i) ② a(j + 1) = t ③ Str(a(i))
D．① a(i) ② a(j) = t ③ Str(a(i))
11．（2021·湖州模擬）有如下VB程序：
n = 7
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) Mod 10 > a(j - 1) Mod 10 Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
已知a(1)到a(7)各元素初值分別是31、22、73、54、85、26、37，運行上述程序后，a(1)到a(7)各元素的值分別是（　　）
A．85、73、54、31、22、37、26 B．37、26、22、31、54、73、85
C．37、85、73、31、22、54、26 D．26、54、22、31、73、85、37
12．（2021·湖州模擬）有如下VB程序
i=1：j=10：key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) >= key Then j = m - 1 Else i = m + 1 End If Loop (程序 a) i=1：j=10: key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) > key Then j = m - 1 Else i = m + 1 End If Loop (程序b)
以下說法正確的是（　　）
A．若要使用程序a或程序 b查找某個數據，數組a中的數據可以是降序排序
B．無論key的值是多少，執行程序a和程序b后一定有i = j + 1成立
C．無論key的值是多少，執行程序a和程序b后i的值一定相同
D．無論key的值是多少，執行程序a和程序b后j的值一定相同
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021·湖州模擬）小張收集了某些學生期中考試的部分數據，并使用Excel軟件進行數據處理，如圖a所示，請回答下列問題：
圖a
（1）區域F3:F11中的數據是通過公式計算得到的，F3中的數據已經正確計算，通過自動填充功能完成區域 F4:F11，則 F6 中的計算結果是 　 　（單選，填字母：A
. */B . 214/C . #VALUE!/D . #REF!）
（2）根據圖a制作了如圖b所示的圖表，創建該圖表的數據區域是　 　。
圖b
（3）圖a和圖b，下列說法正確的是 。
A．正確完成第（1）小題的計算后，不小心刪除C列，則原F3中的總分變成252
B．若要得到1班中總分最高的記錄，可以按照“班級”等于1班，總分等于最大一項進行篩選
C．在第6行和第7行之間插入一行數據，圖b不變
D．正確完成第（1）小題的計算后，選中A2:F11，按照“總分”為主要關鍵字降序排序，排序后圖b變化
14．（2021·湖州模擬）小張使用Flash軟件制作了一主題是“建黨100周年”的多媒體作品，部分界面如圖a所示，請回答下列問題：
圖a
（1）關于多媒體作品設計，下列說法正確的是　 　。（多選，填字母：A . Flash 是以時間序列為基礎的多媒體制作工具/B .在創作需求分析階段應該分析作品效益/C .結構設計階段需要描述整個作品的組成部分、工作流程和主要界面/D .將所需要的的原始素材列成表格、確定獲取原始素材的方式并分類登記，屬于腳本編寫/E .文字腳本是制作多媒體作品的直接依據。）
（2）“人物”圖層第13幀到第48幀實現了人物由小變大且由透明到完全顯示的動畫效果，則該動畫的類型是　 　 （填字母：A .逐幀動畫/B .動畫補間/C .形狀補間）。
（3）“按鈕”元件的編輯界面如圖b所示，當鼠標移動到人物上時，
　 　（填字母：A .會/B .不會）出現小手形狀。
圖b
（4）“暫停”按鈕在本場景一開始就播放，在不改變其他動畫的前提下，實現該按鈕在本場景最后一幀才出現，下列操作可行的是 （多選，填字母）
A．在“按鈕”圖層第1幀移動到第60幀
B．在“按鈕”圖層第1幀執行“插入空白關鍵幀”操作
C．在“按鈕”圖層第1幀執行“刪除幀”操作
D．將“按鈕”圖層第1幀舞臺上的對象刪除
E．在“按鈕”圖層第1幀到59幀執行“清除幀”
（5）要在動畫播放4s后，聲音停止播放，則需要在　 　圖層相關幀上添加動作命令　 　。
15．（2021·湖州模擬）在一個整數序列中找第k小的字母，若有相同的字母，則位置靠前的字母名次靠前，如有字母序列為“A，B，A，D，C”則第1小的字母為A在第1個位置，第2小的字母為A在第3個位置，笫3小的字母是B，在第2個位置，第4小的字母是C，在笫5個位置，笫5小的字母是D，在第4個位置。編寫一個VB程序實現如下功能，程序啟動時隨機產生n個A-G之間的隨機大寫字母，在文本框Text2中輸入整數k(k<=n)，單擊“查找第k小的字母”按鈕Commandl后，在文本框Text3上顯示笫k小的字母位置。程序運行界面如下圖所示。
（1）若要清空文本框 Text1 中的內容，能實現該功能的語句是　 　 （單選，填字母：A .Text1.Caption=""/B . Text1.Text=""/C . Text1.Clear）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const
n = 20
Dim
i As Integer
Dim
a(1 To n) As String
Private
Sub Form_Load()
Randomize
For i = 1 To n
a(i) =　 　
Text1.Text = Text1.Text + " "
+ a(i)
Next i
End
Sub
Private
Sub Command1_Click()
Dim k As Integer, count As Integer
Dim b(0 To 7) As Integer
k = Val(Text2.Text)
For i = 1 To n
Next i
i = 1
Do While i < 7 And b(i) < k
　 　
i = i + 1
Loop
Key = i
count = 0
For i = 1 To n
If a(i) = Chr(Key + 64) Then count = count + 1
If count =　 　 Then Exit For
Next i
Text3.Text = "第" + Str(k) + "小的字母是：" + Chr(Key + 64) + "；位置是：" + Str(i) End Sub
（3）程序中加框處有錯，請改正。
16．（2021·湖州模擬）某數據加密算法如下所示：在文本框Text1中隨機生成8位小寫字母，首先將每一個字母轉換成8位二進制數，如“a”轉換成8位二進制數為“01100001”，然后將8位二進制數循環左移兩位，如“01100001”左移兩位的結果是“10000101”，然后將左移后的結果依次顯示在列表框List1中，最后將所有的二進制數轉換成十六進制顯示在文本框Text2中，文本框Text2中顯示的結果即是加密后的結果，程序運行的部分界面如圖所示：
（1）明文“z”對應的密文是　 　 。
（2）實現上述功能的VB程序如下所示，請在劃線處填入合適的代碼。
Dim s As String, ch As String
Dim
i As Integer, data As Integer
Const
n = 8
Private
Sub Form_Load()
For i = 1 To n
'隨機生成n位小寫字母顯示在文本框Text1中
Next i
End
Sub
Private
Sub Command1_Click()
Dim count As Integer, j As Integer, m As
Integer
Dim a(1 To 64) As Integer
Dim b(1 To 64) As Integer
Const sj = "0123456789ABCDEF"
s = Text1.Text: count = 0
For i = 1 To Len(s)
data = Asc(Mid(s, i, 1))
Do While count <> n
　 　
data = data \ 2
count = count + 1
Loop
count = 0
Next i
tmp = 0
For m = 1 To n * n
i = (m - 1) \ n + 1: j = (m - 1) Mod n
+ 1
b((i - 1) * n + j) = 　 　
s1 = s1 + Str(b((i - 1) * n + j))
If j Mod n = 0 Then List1.AddItem s1:
s1 = ""
tmp =　 　
If j = 4 Or j = 8 Then
s2 = s2 + Mid(sj, tmp + 1, 1):
tmp = 0
End If
Next m
Text2.Text = s2
End
Sub
答案解析部分
1．【答案】B
【知識點】信息及其特征；信息技術的發展歷史；信息表達方式與表達技術；信息社會的定義及內涵
2．【答案】B
【知識點】網絡協議；網絡資源的類型、下載與保存；網絡資源的檢索
3．【答案】C
【知識點】數據表、字段、記錄的編輯；數據表視圖與設計視圖
4．【答案】D
【知識點】進制及數制轉換
5．【答案】A
【知識點】圖層及圖層的基本操作
6．【答案】C
【知識點】流程圖識讀
7．【答案】C
【知識點】運算符、基本運算與表達式；常用標準函數
8．【答案】A
【知識點】流程圖識讀
【解析】
9．【答案】B
【知識點】常用標準函數
10．【答案】A
【知識點】循環結構語句及程序實現
11．【答案】C
【知識點】排序算法及程序實現
12．【答案】B
【知識點】查找算法及程序實現
13．【答案】（1）C
（2）A2:A5, A9:A11, C2:D5, C9:D11
（3）C；D
【知識點】表格數據的處理與計算
14．【答案】（1）ACD
（2）B
（3）B
（4）D；E
（5）“人物”；stopAllSounds();
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．【答案】（1）B
（2）Chr(Int(Rnd * 7 + 65))；b(i + 1)=b(i + 1) + b(i)；k- b(Key - 1)
（3）b(Asc(a(i)) - 64) = b(Asc(a(i)) -64) + 1
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
16．【答案】（1）E9
（2）a((i-1)*n+n-count)=dataMod2；a((i-1) *n+(j+1) Modn+ 1)；tmp *2+ b((i-1)*n+j)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省湖州市2021-2022學年高三上學期信息技術高考考前模擬（三）
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021·湖州模擬）下列有關信息和信息技術的說法，正確的是（　　）
A．信息技術和多媒體技術從古至今一直存在
B．物質、能源和信息是構成當今人類社會的三大要素
C．文字、語言、圖形、圖像、聲音和形體動作都是常見的信息表達技術
D．用支付寶支付時，在一定時間段內二維碼會自動更新，這體現了信息的實時性
【答案】B
【知識點】信息及其特征；信息技術的發展歷史；信息表達方式與表達技術；信息社會的定義及內涵
2．（2021·湖州模擬）下列有關網頁和郵件的說法，不正確的是（　　）
A．自動網頁搜索技術和全文檢索技術是搜索引擎的兩大核心技術
B．將網頁保存為“網頁，僅HTML”類型，可以保存網頁中的圖片
C．SMTP協議是實現將電子郵件從發件人計算機發送到收件人電子信箱的協議
D．HTTP協議的作用是將瀏覽器發出的請求發送至Web服務器，并將服務器回應的網頁傳回至瀏覽器
【答案】B
【知識點】網絡協議；網絡資源的類型、下載與保存；網絡資源的檢索
3．（2021·湖州模擬）使用Access軟件創建數據表如下圖所示，下列說法正確的是（　　）
A．當前數據庫的文件名是“資產說明.accdb”
B．進入“資產說明”的設計視圖后，無法將“ID”字段設為主鍵
C．添加一條新記錄，則新記錄的“ID”字段值可能為“5”
D．在某條記錄的“購置日期”字段中輸入“2018-10-29”，不會自動轉為“2018/10/29”
【答案】C
【知識點】數據表、字段、記錄的編輯；數據表視圖與設計視圖
4．（2021·湖州模擬）將下列數轉換成十進制數，其中是8的倍數的是（　　）
A．10111010B B．101110011B C．123H D．120H
【答案】D
【知識點】進制及數制轉換
5．（2021·湖州模擬）利用PhotoShop軟件制作“夏至.psd”作品，編輯界面如下圖所示：
下列描述正確的是（　　）
A．可以將“夏至”圖層的圖層樣式復制粘貼到“花”圖層
B．調整“夏至”和“圓”的圖層順序，不會影響作品的呈現效果
C．可以使用“自由變換”命令僅將“夏至”圖層中的“夏”字變大
D．設置背景圖層不透明度為0%，將當前文件保存為夏至.png格式，可以看見透明背景
【答案】A
【知識點】圖層及圖層的基本操作
6．（2021·湖州模擬）一幅未經壓縮的1024×1600像素的BMP圖像，將該圖像存儲為JPEG格式（其他參數不變），其存儲容量為100KB，圖像的壓縮比約為32：1，則該圖像的色彩位數為（
A．4位 B．8位 C．16位 D．24位
【答案】C
【知識點】流程圖識讀
7．（2021·湖州模擬）已知ch是一小寫字母，VB表達式Int（Asc（ch）/10+0.5）+Int（Rnd*3-1）^2的最大值是（　　）
A．11 B．12 C．13 D．14
【答案】C
【知識點】運算符、基本運算與表達式；常用標準函數
8．（2021·湖州模擬）某算法的流程圖如圖所示，若輸入k1=0，k2=0，n是1到31之間的整數，執行這部分流程之后，輸出k1和k2的值相等，則滿足條件的n的值的個數是（　　）
A．4 B．6 C．7 D．8
【答案】A
【知識點】流程圖識讀
【解析】
9．（2021·湖州模擬）有如下VB程序段：
s1 = "2019GaoKao"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
ch = Str((Val(ch)+1) Mod 10)
s2 = ch + s2
ElseIf ch >= "a" And ch <= "z" Then
ch = Chr(Asc(ch) - 32) s2 = s2 + ch
End If
Next i
該程序運行后，s2的值是（　　）
A．"A0A00213" B．"0213A0A0" C．"02130A0A" D．"0A0A0213"
【答案】B
【知識點】常用標準函數
10．（2021·湖州模擬）反轉字符串，如輸入字符串為“abcdefg”，則輸出字符串“gfedcba”，實現該功能的部分程序如下所示，劃線處的正確語句是（　　）
s = Text1.Text：n = Len(s)
'按s中字符順序從左到右依次存入到數組a中，代碼略
i = 1
Do While i <= n - 1
t = ①
For j = n - 1 To i Step -1
a(j + 1) = a(j)
Next j
②
i = i + 1
Loop
For i = 1 To Len(s)
Text2.Text = Text2.Text + ③
Next i
A．① a(n) ② a(j + 1) = t ③ a(i)
B．① a(n) ② a(j) = t ③ a(i)
C．① a(i) ② a(j + 1) = t ③ Str(a(i))
D．① a(i) ② a(j) = t ③ Str(a(i))
【答案】A
【知識點】循環結構語句及程序實現
11．（2021·湖州模擬）有如下VB程序：
n = 7
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) Mod 10 > a(j - 1) Mod 10 Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
已知a(1)到a(7)各元素初值分別是31、22、73、54、85、26、37，運行上述程序后，a(1)到a(7)各元素的值分別是（　　）
A．85、73、54、31、22、37、26 B．37、26、22、31、54、73、85
C．37、85、73、31、22、54、26 D．26、54、22、31、73、85、37
【答案】C
【知識點】排序算法及程序實現
12．（2021·湖州模擬）有如下VB程序
i=1：j=10：key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) >= key Then j = m - 1 Else i = m + 1 End If Loop (程序 a) i=1：j=10: key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) > key Then j = m - 1 Else i = m + 1 End If Loop (程序b)
以下說法正確的是（　　）
A．若要使用程序a或程序 b查找某個數據，數組a中的數據可以是降序排序
B．無論key的值是多少，執行程序a和程序b后一定有i = j + 1成立
C．無論key的值是多少，執行程序a和程序b后i的值一定相同
D．無論key的值是多少，執行程序a和程序b后j的值一定相同
【答案】B
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021·湖州模擬）小張收集了某些學生期中考試的部分數據，并使用Excel軟件進行數據處理，如圖a所示，請回答下列問題：
圖a
（1）區域F3:F11中的數據是通過公式計算得到的，F3中的數據已經正確計算，通過自動填充功能完成區域 F4:F11，則 F6 中的計算結果是 　 　（單選，填字母：A
. */B . 214/C . #VALUE!/D . #REF!）
（2）根據圖a制作了如圖b所示的圖表，創建該圖表的數據區域是　 　。
圖b
（3）圖a和圖b，下列說法正確的是 。
A．正確完成第（1）小題的計算后，不小心刪除C列，則原F3中的總分變成252
B．若要得到1班中總分最高的記錄，可以按照“班級”等于1班，總分等于最大一項進行篩選
C．在第6行和第7行之間插入一行數據，圖b不變
D．正確完成第（1）小題的計算后，選中A2:F11，按照“總分”為主要關鍵字降序排序，排序后圖b變化
【答案】（1）C
（2）A2:A5, A9:A11, C2:D5, C9:D11
（3）C；D
【知識點】表格數據的處理與計算
14．（2021·湖州模擬）小張使用Flash軟件制作了一主題是“建黨100周年”的多媒體作品，部分界面如圖a所示，請回答下列問題：
圖a
（1）關于多媒體作品設計，下列說法正確的是　 　。（多選，填字母：A . Flash 是以時間序列為基礎的多媒體制作工具/B .在創作需求分析階段應該分析作品效益/C .結構設計階段需要描述整個作品的組成部分、工作流程和主要界面/D .將所需要的的原始素材列成表格、確定獲取原始素材的方式并分類登記，屬于腳本編寫/E .文字腳本是制作多媒體作品的直接依據。）
（2）“人物”圖層第13幀到第48幀實現了人物由小變大且由透明到完全顯示的動畫效果，則該動畫的類型是　 　 （填字母：A .逐幀動畫/B .動畫補間/C .形狀補間）。
（3）“按鈕”元件的編輯界面如圖b所示，當鼠標移動到人物上時，
　 　（填字母：A .會/B .不會）出現小手形狀。
圖b
（4）“暫停”按鈕在本場景一開始就播放，在不改變其他動畫的前提下，實現該按鈕在本場景最后一幀才出現，下列操作可行的是 （多選，填字母）
A．在“按鈕”圖層第1幀移動到第60幀
B．在“按鈕”圖層第1幀執行“插入空白關鍵幀”操作
C．在“按鈕”圖層第1幀執行“刪除幀”操作
D．將“按鈕”圖層第1幀舞臺上的對象刪除
E．在“按鈕”圖層第1幀到59幀執行“清除幀”
（5）要在動畫播放4s后，聲音停止播放，則需要在　 　圖層相關幀上添加動作命令　 　。
【答案】（1）ACD
（2）B
（3）B
（4）D；E
（5）“人物”；stopAllSounds();
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．（2021·湖州模擬）在一個整數序列中找第k小的字母，若有相同的字母，則位置靠前的字母名次靠前，如有字母序列為“A，B，A，D，C”則第1小的字母為A在第1個位置，第2小的字母為A在第3個位置，笫3小的字母是B，在第2個位置，第4小的字母是C，在笫5個位置，笫5小的字母是D，在第4個位置。編寫一個VB程序實現如下功能，程序啟動時隨機產生n個A-G之間的隨機大寫字母，在文本框Text2中輸入整數k(k<=n)，單擊“查找第k小的字母”按鈕Commandl后，在文本框Text3上顯示笫k小的字母位置。程序運行界面如下圖所示。
（1）若要清空文本框 Text1 中的內容，能實現該功能的語句是　 　 （單選，填字母：A .Text1.Caption=""/B . Text1.Text=""/C . Text1.Clear）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const
n = 20
Dim
i As Integer
Dim
a(1 To n) As String
Private
Sub Form_Load()
Randomize
For i = 1 To n
a(i) =　 　
Text1.Text = Text1.Text + " "
+ a(i)
Next i
End
Sub
Private
Sub Command1_Click()
Dim k As Integer, count As Integer
Dim b(0 To 7) As Integer
k = Val(Text2.Text)
For i = 1 To n
Next i
i = 1
Do While i < 7 And b(i) < k
　 　
i = i + 1
Loop
Key = i
count = 0
For i = 1 To n
If a(i) = Chr(Key + 64) Then count = count + 1
If count =　 　 Then Exit For
Next i
Text3.Text = "第" + Str(k) + "小的字母是：" + Chr(Key + 64) + "；位置是：" + Str(i) End Sub
（3）程序中加框處有錯，請改正。
【答案】（1）B
（2）Chr(Int(Rnd * 7 + 65))；b(i + 1)=b(i + 1) + b(i)；k- b(Key - 1)
（3）b(Asc(a(i)) - 64) = b(Asc(a(i)) -64) + 1
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
16．（2021·湖州模擬）某數據加密算法如下所示：在文本框Text1中隨機生成8位小寫字母，首先將每一個字母轉換成8位二進制數，如“a”轉換成8位二進制數為“01100001”，然后將8位二進制數循環左移兩位，如“01100001”左移兩位的結果是“10000101”，然后將左移后的結果依次顯示在列表框List1中，最后將所有的二進制數轉換成十六進制顯示在文本框Text2中，文本框Text2中顯示的結果即是加密后的結果，程序運行的部分界面如圖所示：
（1）明文“z”對應的密文是　 　 。
（2）實現上述功能的VB程序如下所示，請在劃線處填入合適的代碼。
Dim s As String, ch As String
Dim
i As Integer, data As Integer
Const
n = 8
Private
Sub Form_Load()
For i = 1 To n
'隨機生成n位小寫字母顯示在文本框Text1中
Next i
End
Sub
Private
Sub Command1_Click()
Dim count As Integer, j As Integer, m As
Integer
Dim a(1 To 64) As Integer
Dim b(1 To 64) As Integer
Const sj = "0123456789ABCDEF"
s = Text1.Text: count = 0
For i = 1 To Len(s)
data = Asc(Mid(s, i, 1))
Do While count <> n
　 　
data = data \ 2
count = count + 1
Loop
count = 0
Next i
tmp = 0
For m = 1 To n * n
i = (m - 1) \ n + 1: j = (m - 1) Mod n
+ 1
b((i - 1) * n + j) = 　 　
s1 = s1 + Str(b((i - 1) * n + j))
If j Mod n = 0 Then List1.AddItem s1:
s1 = ""
tmp =　 　
If j = 4 Or j = 8 Then
s2 = s2 + Mid(sj, tmp + 1, 1):
tmp = 0
End If
Next m
Text2.Text = s2
End
Sub
【答案】（1）E9
（2）a((i-1)*n+n-count)=dataMod2；a((i-1) *n+(j+1) Modn+ 1)；tmp *2+ b((i-1)*n+j)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑