資源簡介

浙江省湖州市2021-2022學年高三上學期信息技術12月選考模擬（二）
1．（2021·湖州模擬）下列有關信息和信息技術的說法，正確的是(　　)
A．現代信息技術包括微電子技術、光電子技術、廣播電視技術、通信技術
B．信息可以傳遞和共享，不會像物質、能源那樣產生消耗
C．信息不能從一種形態轉換為另一種形態
D．多媒體技術和網絡技術是信息社會中比較重要的信息表達方式
2．（2021·湖州模擬）以下有關網絡應用和協議的敘述，正確的是( )
A．POP3協議將電子郵箱（郵件服務器）的電子郵件讀到本地計算機上
B．瀏覽器通過文件傳輸協議發送和接收網頁信息
C．保存網頁時，保存類型選擇“網頁，全部”，能保存全部視頻和聲音文件
D．搜索引擎通過自動網頁搜索技術搜索并保存互聯網上的全部數據
3．（2021·湖州模擬）下列應用中，體現了人工智能技術的有(　　)
①在線中英文互譯 ②制訂旅游攻略時，安裝 App 搜索景點信息 ③支持人臉識別的家用智能鎖 ④用智能手機通過微信平臺發送語音信息 ⑤使用 OCR 軟件進行“傾斜校正”
A．①③⑤ B．②③④ C．①③④ D．①③
4．（2021·湖州模擬）下列有關數據庫和數據表的說法,正確的是(　　)
A．在同一個數據庫中，不可以創建兩個字段名相同的字段
B．Access數據表中同一列各數據的類型可以不相同
C．數據庫管理系統分大型和小型，小型數據庫管理系統有瑞典MySQLAB公司的MySQL、IBM的DB2、微軟的Access等
D．數據庫管理系統是為了建立、使用和維護數據庫而設計的數據庫管理系統軟件
5．（2021·湖州模擬）使用UltraEdit軟件查看字符“2021 冠軍之光 King!”的內碼，部分界面如下圖所示。
下列說法正確的是(　　)
A．字符“冠”的內碼用二進制表示為“10111001 11101010”
B．字母“J”的十六進制內碼為“6A”
C．共有 8 個字符使用 ASCII 編碼
D．這些字符共占用17 個字節的存儲空間
6．（2021·湖州模擬）一段時長為30秒、800×340像素、24位真彩色、NTSC制式的未經壓縮AVI格式無聲視頻，其文件存儲容量約為( )
A．700MB B．583MB C．234MB D．70MB
7．（2021·湖州模擬）某算法的部分流程圖如圖所示，執行該算法，輸出s,c的值是( )
A．6,15 B．9,15 C．6,10 D．9,10
8．（2021·湖州模擬）下列VB表達式的值等于2021的是( )
A．Mid("20210901", 1, 4)
B．Len("2020") + 1
C． Str(2020) + "1"
D．2021 Mod 100 + (2021 \ 100) * 100
9．（2021·湖州模擬）有如下 VB 程序段:
n = 10: m = 0
For i = 1 To Int(Sqr(n))
If Not d(i) Then
j = 3 * i
Do While j <= n
d(j) = True
j = j + i
Loop
End If
Next i
For i = 5 To n
If d(i) Then m = m + 1
Next i
數組元素d(1)到d(10)的初值均為False，執行該程序段后，變量m的值為( )
A．5 B．6 C．7 D．8
10．（2021·湖州模擬）有如下 VB 程序段:
i = 6: flag = True
Do While i >= 4 And flag = True
flag = False
k = i
For j = 1 To i - 1
If a(k) > a(j) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
flag = True
End If
i = i - 1
Loop
數組元素a(1)到a(6)的值依次為：“19,6,34,40,13,53”，執行該程序段后，數組元素a(1)到a(6)的值依次為(　　)
A．19,53,34,40,13,6 B．53,40,34,19,13,6
C．40,53,34,19,13,6 D．19,6,34,13,40,53
11．（2021·湖州模擬）某排序算法的 VB 程序段如下：
n = 8: f = 1: c = 0
For i = 1 To n \ 2 - 1
For j = 1 To n - 2 * i
If f * a(j) < f * a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
c = c + 1
End If
f = -f
Next j
Next i
數組元素a(1)到a(8)的初始值依次為：“16,31,42,38,35,29,27,15”,執行該程序段后，變量C的值為( )
A．6 B．7 C．8 D．9
12．（2021·湖州模擬）有如下VB程序段：
i = 1: j = 8: k = 4
Randomize
Key = (Int(Rnd * 4)+20)*4
Do While i <= j
m = (i + j) \ 2
If Key = a(m) Then
Exit Do
ElseIf Key < a(m) Then
j = m - 1: k = k / 2
Else
i = m + 1: k = k * 2
End If
Loop
數組元素a(1)到a(8)的值依次為“80,82,84,86,88,90,92,94”,執行該程序段后，變量k的值可能是( )
A．1,4,8 B． 2,4,8 C．4,16,32 D．1,4,16
13．（2021·湖州模擬）小李收集了杭州市區自來水銷售情況數據，為進一步對該表分析評價，使用Excel軟件進行了數據處理，如圖a所示，請回答下列問題：
圖 a
（1）區域E3:E9的數據是通過公式計算得到的：在E3單元格中輸入公式,再利用自動填充功能完成區域E4:E9的計算。若在C4單元格輸入“不詳”二字，則E4單元格將顯示　 　。（單選，填字母：A
.1.50/ B .#VALUE!/ C .#REF!/ D
.#NAME ）
（2）圖a中的數據顯示值和真實值相等，對圖a中的數據進行篩選操作。先按“供水價格”自動篩選最大的3項，再按“污水處理費標準”自動篩選最大的3項，則按此操作篩選出的數據內容（不包括標題行）有　 　行。
（3）根據圖a中的數據制作了圖表，如圖b所示，創建該圖表的數據區域是　 　。
（4）對圖a中的“經營性用水”數據進行排序，要求按“供水價格”為主關鍵字降序，按“污水處理費標準”為次關鍵字升序，排序應選擇的數據區域是　 　。
14．（2021·湖州模擬）小王創作主題為“網絡連接你我他”的多媒體作品。在作品創作過程中，他使用Photoshop軟件制作了一張“科技創新”圖片，并使用Flash軟件制作了一個“網絡世界”動畫。請回答下列問題：
圖 a
（1）如圖a所示，在當前狀態下，下列說法正確的是 （多選， 填字母）
A．選中“智慧”圖層后，可使用油漆桶工具將“智慧”圖層中字體顏色填充為藍色
B．可在“背景”圖層添加濾鏡效果
C．將“科技創新”圖層的圖層樣式拷貝到“網絡”圖層后，“網絡”圖層仍有“描邊”效果
D．可使用自由變換操作更改“科技創新”圖層中“科技”二字的大小
E．可交換“網絡”圖層與“科技創新”圖層的圖層次序
（2）圖b中，“文字”圖層第1幀到第25幀的動畫效果是由“信息社會”逐漸變為“網絡連接你我他”，則該動畫的補間類型是　 　（選填：形狀補間/動畫補間）。若要使背景圖層從第1幀到第50幀一直顯示同一內容，應該在“背景”圖層第25幀執行　 　操作。
圖 b
（3）如圖b所示，“音樂”圖層的聲音素材時長為3分鐘，且同步屬性為“事件”，要使本場景動畫播放到第25幀時停止聲音播放，可行的操作是　 　。
（4）如圖b所示，“PLAY”按鈕位于舞臺左下角。測試影片時，單擊“PLAY”按鈕即跳轉到“大數據”場景第10幀繼續播放并打開鏈接“http://www..cn”，則該按鈕的動作腳本為：on(press){　 　}
15．（2021·湖州模擬）小明為班會活動的“抽獎環節”設計了一張獲獎表。該“抽獎環節”功能如下：班級學生人數為n個，程序運行后，單擊“發放號碼牌”按鈕Command1，隨機生成n個不重復的[n+1, 2*n]內的整數，并在列表框list1中顯示，學生按學號次序依次領取號碼牌，例如：隨機生成的第一個整數為54，則學號為1號的學生領取的號碼牌為54。單擊“抽獎”按鈕Command2,在列表框list2中顯示獲獎表，獲獎序列要求：第1名獲獎的學生是號碼牌數字中偶數最大的，第2名獲獎的學生是號碼牌數字中奇數最小的，第3名獲獎的學生是號碼牌數字中偶數第二大的，第4名獲獎的學生是號碼牌數字中奇數第二小的……取過的數字不能再取，以此類推，直到結束。其程序界面如圖所示。
實現上述功能的VB程序代碼如下，請回答以下問題：
Const n = 50
Dim a(1 To n) As Integer
Dim f(n + 1 To 2 * n) As Boolean
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize
For i = n + 1 To 2 * n
f(i) = False
Next i
For j = 1 To n
a(j) = Int(Rnd * n) + n + 1
If f(a(j)) = True Then j = j - 1 Else ①
Next j
For i = 1 To n
List1.AddItem CStr(i) + "號-" + CStr(a(i)) 'cstr 把數值類型轉換為字符串類型，并去前導空格
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer
m1 = 0: m2 = n \ 2
For i = n + 1 To 2 * n
If ② Then
m1 = m1 + 1: a(m1) = i
Else
m2 = m2 + 1: a(m2) = i
End If
Next i
For j = 1 To n \ 2
List2.AddItem "第" + CStr(2 * j - 1) + "名" + Str( ③ ) List2.AddItem "第" + CStr(2 * j) + "名" + Str(a(n \ 2 + j))
Next j
End Sub
（1）若僅對如下號碼牌進行抽獎：1號-57，2號-76，3號-91，4號-83，5號-66，6號-82，則第3名獲獎的學生學號是　 　號。
（2） 請在劃線處填寫合適代碼，使程序正常運行。
①　 　②　 　③　 　
16．（2021·湖州模擬）用VB編寫字符串“密碼破譯”程序，其功能如下：在文本框Text1中輸入任意一串字符串,字符串長度為n*n（n為自然數），單擊“解密”按鈕Command1,在文本框Text2中輸出解鎖密碼。解鎖密碼破譯步驟如下：將字符依次存儲到數組a中，存儲方式從左下向右上，平行于矩陣的對角線依次進行存儲，以長度為36的字符串“Toleranceisthemental,YouSheng優勝一籌”為例，數組a元素對應的賦值情況如圖a所示；將對角線字符從右上向左下依次相連即為解鎖密碼。程序運行效果如圖b所示。
圖 a
圖 b
實現上述功能的 VB 程序如下，請回答下列問題：
（1）若輸入的字符串內容為“abcdefghijklmnopqrstuvwxy”，則破譯后的解鎖密碼為　 　。
（2）請在劃線處填寫合適代碼，使程序正常運行。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n * n) As Integer
Dim b(1 To n * n) As String
Dim i As Integer, j As Integer, k
As
Integer, s As String
Dim zf As Integer '變量zf存儲數組a元素的值
Dim xb As Integer '變量xb存儲數組a的下標
Dim p As Integer
For i = 1 To Len(Text1.Text)
b(i) = Mid(Text1.Text, i, 1)
Next i
k = 1
For i = 1 To n
k = k + (i - 1)
zf = k
　 　
a(xb) = zf
p = i + 1
For j = 2 To n
If j <= n - i + 1 Then
zf = zf + p
a(xb + j - 1) = zf
p = p + 1
Else
　 　
zf = zf + p
a(xb + j - 1) = zf
End If
Next j
Next i
For i = 1 To n
s = s +　 　
Next i
Text2.Text = s
End
Sub
答案解析部分
1．【答案】B
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．【答案】A
【知識點】網絡協議；網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索
3．【答案】D
【知識點】人工智能的應用
4．【答案】D
【知識點】數據庫的分類與應用；字段的數據類型
5．【答案】C
【知識點】進制及數制轉換；字符編碼
6．【答案】A
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】流程圖識讀
8．【答案】D
【知識點】運算符、基本運算與表達式；常用標準函數
9．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】A
【知識點】排序算法及程序實現
11．【答案】C
【知識點】排序算法及程序實現
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）B
（2）6
（3）A2:C4, A8:C9
（4）B5:E7
【知識點】表格數據的處理與計算
14．【答案】（1）A；B；E
（2）形狀補間；清除關鍵幀
（3）將聲音的同步屬性改為“數據流”，并在“音樂”圖層第25幀插入空白關鍵幀或在文字圖層第25幀添加動作腳本: stopallsounds();
（4）gotoandplay("大數據”,10) ;getURL("http:// www. . cn" );
【知識點】圖層及圖層的基本操作；動畫的類型；常用影片控制函數的應用；聲音同步屬性設置
15．【答案】（1）2
（2）f(a(j)) = True；iMod2=0；a(n\2-j+ 1)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
16．【答案】（1）onmlk
（2）xb=(i-1)*n+1；p=p- 1；b(a(i*n-i+1))
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省湖州市2021-2022學年高三上學期信息技術12月選考模擬（二）
1．（2021·湖州模擬）下列有關信息和信息技術的說法，正確的是(　　)
A．現代信息技術包括微電子技術、光電子技術、廣播電視技術、通信技術
B．信息可以傳遞和共享，不會像物質、能源那樣產生消耗
C．信息不能從一種形態轉換為另一種形態
D．多媒體技術和網絡技術是信息社會中比較重要的信息表達方式
【答案】B
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．（2021·湖州模擬）以下有關網絡應用和協議的敘述，正確的是( )
A．POP3協議將電子郵箱（郵件服務器）的電子郵件讀到本地計算機上
B．瀏覽器通過文件傳輸協議發送和接收網頁信息
C．保存網頁時，保存類型選擇“網頁，全部”，能保存全部視頻和聲音文件
D．搜索引擎通過自動網頁搜索技術搜索并保存互聯網上的全部數據
【答案】A
【知識點】網絡協議；網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索
3．（2021·湖州模擬）下列應用中，體現了人工智能技術的有(　　)
①在線中英文互譯 ②制訂旅游攻略時，安裝 App 搜索景點信息 ③支持人臉識別的家用智能鎖 ④用智能手機通過微信平臺發送語音信息 ⑤使用 OCR 軟件進行“傾斜校正”
A．①③⑤ B．②③④ C．①③④ D．①③
【答案】D
【知識點】人工智能的應用
4．（2021·湖州模擬）下列有關數據庫和數據表的說法,正確的是(　　)
A．在同一個數據庫中，不可以創建兩個字段名相同的字段
B．Access數據表中同一列各數據的類型可以不相同
C．數據庫管理系統分大型和小型，小型數據庫管理系統有瑞典MySQLAB公司的MySQL、IBM的DB2、微軟的Access等
D．數據庫管理系統是為了建立、使用和維護數據庫而設計的數據庫管理系統軟件
【答案】D
【知識點】數據庫的分類與應用；字段的數據類型
5．（2021·湖州模擬）使用UltraEdit軟件查看字符“2021 冠軍之光 King!”的內碼，部分界面如下圖所示。
下列說法正確的是(　　)
A．字符“冠”的內碼用二進制表示為“10111001 11101010”
B．字母“J”的十六進制內碼為“6A”
C．共有 8 個字符使用 ASCII 編碼
D．這些字符共占用17 個字節的存儲空間
【答案】C
【知識點】進制及數制轉換；字符編碼
6．（2021·湖州模擬）一段時長為30秒、800×340像素、24位真彩色、NTSC制式的未經壓縮AVI格式無聲視頻，其文件存儲容量約為( )
A．700MB B．583MB C．234MB D．70MB
【答案】A
【知識點】聲音、圖像、視頻編碼
7．（2021·湖州模擬）某算法的部分流程圖如圖所示，執行該算法，輸出s,c的值是( )
A．6,15 B．9,15 C．6,10 D．9,10
【答案】B
【知識點】流程圖識讀
8．（2021·湖州模擬）下列VB表達式的值等于2021的是( )
A．Mid("20210901", 1, 4)
B．Len("2020") + 1
C． Str(2020) + "1"
D．2021 Mod 100 + (2021 \ 100) * 100
【答案】D
【知識點】運算符、基本運算與表達式；常用標準函數
9．（2021·湖州模擬）有如下 VB 程序段:
n = 10: m = 0
For i = 1 To Int(Sqr(n))
If Not d(i) Then
j = 3 * i
Do While j <= n
d(j) = True
j = j + i
Loop
End If
Next i
For i = 5 To n
If d(i) Then m = m + 1
Next i
數組元素d(1)到d(10)的初值均為False，執行該程序段后，變量m的值為( )
A．5 B．6 C．7 D．8
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2021·湖州模擬）有如下 VB 程序段:
i = 6: flag = True
Do While i >= 4 And flag = True
flag = False
k = i
For j = 1 To i - 1
If a(k) > a(j) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
flag = True
End If
i = i - 1
Loop
數組元素a(1)到a(6)的值依次為：“19,6,34,40,13,53”，執行該程序段后，數組元素a(1)到a(6)的值依次為(　　)
A．19,53,34,40,13,6 B．53,40,34,19,13,6
C．40,53,34,19,13,6 D．19,6,34,13,40,53
【答案】A
【知識點】排序算法及程序實現
11．（2021·湖州模擬）某排序算法的 VB 程序段如下：
n = 8: f = 1: c = 0
For i = 1 To n \ 2 - 1
For j = 1 To n - 2 * i
If f * a(j) < f * a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
c = c + 1
End If
f = -f
Next j
Next i
數組元素a(1)到a(8)的初始值依次為：“16,31,42,38,35,29,27,15”,執行該程序段后，變量C的值為( )
A．6 B．7 C．8 D．9
【答案】C
【知識點】排序算法及程序實現
12．（2021·湖州模擬）有如下VB程序段：
i = 1: j = 8: k = 4
Randomize
Key = (Int(Rnd * 4)+20)*4
Do While i <= j
m = (i + j) \ 2
If Key = a(m) Then
Exit Do
ElseIf Key < a(m) Then
j = m - 1: k = k / 2
Else
i = m + 1: k = k * 2
End If
Loop
數組元素a(1)到a(8)的值依次為“80,82,84,86,88,90,92,94”,執行該程序段后，變量k的值可能是( )
A．1,4,8 B． 2,4,8 C．4,16,32 D．1,4,16
【答案】D
【知識點】查找算法及程序實現
13．（2021·湖州模擬）小李收集了杭州市區自來水銷售情況數據，為進一步對該表分析評價，使用Excel軟件進行了數據處理，如圖a所示，請回答下列問題：
圖 a
（1）區域E3:E9的數據是通過公式計算得到的：在E3單元格中輸入公式,再利用自動填充功能完成區域E4:E9的計算。若在C4單元格輸入“不詳”二字，則E4單元格將顯示　 　。（單選，填字母：A
.1.50/ B .#VALUE!/ C .#REF!/ D
.#NAME ）
（2）圖a中的數據顯示值和真實值相等，對圖a中的數據進行篩選操作。先按“供水價格”自動篩選最大的3項，再按“污水處理費標準”自動篩選最大的3項，則按此操作篩選出的數據內容（不包括標題行）有　 　行。
（3）根據圖a中的數據制作了圖表，如圖b所示，創建該圖表的數據區域是　 　。
（4）對圖a中的“經營性用水”數據進行排序，要求按“供水價格”為主關鍵字降序，按“污水處理費標準”為次關鍵字升序，排序應選擇的數據區域是　 　。
【答案】（1）B
（2）6
（3）A2:C4, A8:C9
（4）B5:E7
【知識點】表格數據的處理與計算
14．（2021·湖州模擬）小王創作主題為“網絡連接你我他”的多媒體作品。在作品創作過程中，他使用Photoshop軟件制作了一張“科技創新”圖片，并使用Flash軟件制作了一個“網絡世界”動畫。請回答下列問題：
圖 a
（1）如圖a所示，在當前狀態下，下列說法正確的是 （多選， 填字母）
A．選中“智慧”圖層后，可使用油漆桶工具將“智慧”圖層中字體顏色填充為藍色
B．可在“背景”圖層添加濾鏡效果
C．將“科技創新”圖層的圖層樣式拷貝到“網絡”圖層后，“網絡”圖層仍有“描邊”效果
D．可使用自由變換操作更改“科技創新”圖層中“科技”二字的大小
E．可交換“網絡”圖層與“科技創新”圖層的圖層次序
（2）圖b中，“文字”圖層第1幀到第25幀的動畫效果是由“信息社會”逐漸變為“網絡連接你我他”，則該動畫的補間類型是　 　（選填：形狀補間/動畫補間）。若要使背景圖層從第1幀到第50幀一直顯示同一內容，應該在“背景”圖層第25幀執行　 　操作。
圖 b
（3）如圖b所示，“音樂”圖層的聲音素材時長為3分鐘，且同步屬性為“事件”，要使本場景動畫播放到第25幀時停止聲音播放，可行的操作是　 　。
（4）如圖b所示，“PLAY”按鈕位于舞臺左下角。測試影片時，單擊“PLAY”按鈕即跳轉到“大數據”場景第10幀繼續播放并打開鏈接“http://www..cn”，則該按鈕的動作腳本為：on(press){　 　}
【答案】（1）A；B；E
（2）形狀補間；清除關鍵幀
（3）將聲音的同步屬性改為“數據流”，并在“音樂”圖層第25幀插入空白關鍵幀或在文字圖層第25幀添加動作腳本: stopallsounds();
（4）gotoandplay("大數據”,10) ;getURL("http:// www. . cn" );
【知識點】圖層及圖層的基本操作；動畫的類型；常用影片控制函數的應用；聲音同步屬性設置
15．（2021·湖州模擬）小明為班會活動的“抽獎環節”設計了一張獲獎表。該“抽獎環節”功能如下：班級學生人數為n個，程序運行后，單擊“發放號碼牌”按鈕Command1，隨機生成n個不重復的[n+1, 2*n]內的整數，并在列表框list1中顯示，學生按學號次序依次領取號碼牌，例如：隨機生成的第一個整數為54，則學號為1號的學生領取的號碼牌為54。單擊“抽獎”按鈕Command2,在列表框list2中顯示獲獎表，獲獎序列要求：第1名獲獎的學生是號碼牌數字中偶數最大的，第2名獲獎的學生是號碼牌數字中奇數最小的，第3名獲獎的學生是號碼牌數字中偶數第二大的，第4名獲獎的學生是號碼牌數字中奇數第二小的……取過的數字不能再取，以此類推，直到結束。其程序界面如圖所示。
實現上述功能的VB程序代碼如下，請回答以下問題：
Const n = 50
Dim a(1 To n) As Integer
Dim f(n + 1 To 2 * n) As Boolean
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize
For i = n + 1 To 2 * n
f(i) = False
Next i
For j = 1 To n
a(j) = Int(Rnd * n) + n + 1
If f(a(j)) = True Then j = j - 1 Else ①
Next j
For i = 1 To n
List1.AddItem CStr(i) + "號-" + CStr(a(i)) 'cstr 把數值類型轉換為字符串類型，并去前導空格
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer
m1 = 0: m2 = n \ 2
For i = n + 1 To 2 * n
If ② Then
m1 = m1 + 1: a(m1) = i
Else
m2 = m2 + 1: a(m2) = i
End If
Next i
For j = 1 To n \ 2
List2.AddItem "第" + CStr(2 * j - 1) + "名" + Str( ③ ) List2.AddItem "第" + CStr(2 * j) + "名" + Str(a(n \ 2 + j))
Next j
End Sub
（1）若僅對如下號碼牌進行抽獎：1號-57，2號-76，3號-91，4號-83，5號-66，6號-82，則第3名獲獎的學生學號是　 　號。
（2） 請在劃線處填寫合適代碼，使程序正常運行。
①　 　②　 　③　 　
【答案】（1）2
（2）f(a(j)) = True；iMod2=0；a(n\2-j+ 1)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
16．（2021·湖州模擬）用VB編寫字符串“密碼破譯”程序，其功能如下：在文本框Text1中輸入任意一串字符串,字符串長度為n*n（n為自然數），單擊“解密”按鈕Command1,在文本框Text2中輸出解鎖密碼。解鎖密碼破譯步驟如下：將字符依次存儲到數組a中，存儲方式從左下向右上，平行于矩陣的對角線依次進行存儲，以長度為36的字符串“Toleranceisthemental,YouSheng優勝一籌”為例，數組a元素對應的賦值情況如圖a所示；將對角線字符從右上向左下依次相連即為解鎖密碼。程序運行效果如圖b所示。
圖 a
圖 b
實現上述功能的 VB 程序如下，請回答下列問題：
（1）若輸入的字符串內容為“abcdefghijklmnopqrstuvwxy”，則破譯后的解鎖密碼為　 　。
（2）請在劃線處填寫合適代碼，使程序正常運行。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n * n) As Integer
Dim b(1 To n * n) As String
Dim i As Integer, j As Integer, k
As
Integer, s As String
Dim zf As Integer '變量zf存儲數組a元素的值
Dim xb As Integer '變量xb存儲數組a的下標
Dim p As Integer
For i = 1 To Len(Text1.Text)
b(i) = Mid(Text1.Text, i, 1)
Next i
k = 1
For i = 1 To n
k = k + (i - 1)
zf = k
　 　
a(xb) = zf
p = i + 1
For j = 2 To n
If j <= n - i + 1 Then
zf = zf + p
a(xb + j - 1) = zf
p = p + 1
Else
　 　
zf = zf + p
a(xb + j - 1) = zf
End If
Next j
Next i
For i = 1 To n
s = s +　 　
Next i
Text2.Text = s
End
Sub
【答案】（1）onmlk
（2）xb=(i-1)*n+1；p=p- 1；b(a(i*n-i+1))
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑