資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省百校2021屆高三上學期信息技術12月聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021高三上·浙江月考）下列有關信息與信息處理的說法，錯誤的是(　　)
A．搜索引擎運用了全文檢索技術
B．古人“事大，大結其繩，事小，小結其繩，結之多少，隨物眾寡”，屬于信息編碼
C．鯤鵬云手機擺脫了對芯片的依賴，不再需要CPU支持
D．計算機感知現實世界需要用到傳感器技術
2．（2021高三上·浙江月考）下列應用中，沒有體現人工智能技術的是(　　)
A．停車管理系統通過識別車牌進行計費
B．“識花”軟件通過識別花草圖像顯示花草名稱
C．自動翻譯機將普通話翻譯成英語
D．佩戴智能導游進人預設無線發射點后自動播放講解
3．（2021高三上·浙江月考）用Access軟件設計某圖書管理信息系統的數據庫，其中“圖書登記表”中需要存儲如圖所示的數據。
序號 圖書編號 書名 作者 入庫日期 借閱狀態
27 BK001 113 安娜·卡列尼娜 列夫·托爾斯泰 2014-07-31 是
28 BK003839 城南舊事 林海英 2016-08-01 否
29 BK002028 時間簡史 霍金 2020-08-02 是
… … … … … …
下列關于該圖書管理信息系統的描述，正確的是（　　）
A．“圖書登記表”中存在如圖數據，不可以將“序號”字段改為“自動編號”
B．“圖書登記表”的字段順序與圖中數據的列順序需要一致
C．“圖書登記表”中借閱狀態數據的字段類型不可以設置為“數字”類型
D．同一數據表中各記錄的字段數可以不同
4．要表示100種不同的信息，需要的二進制位數至少為(　　)
A．5 B．6 C．7 D．8
5．（2021高三上·浙江月考）用Photoshop軟件制作“足球”宣傳海報，如圖所示，下列說法正確的是（　　）
A．可以對“F OT BALL"圖層使用“自由變換”命令調節文字大小
B．調換“球員”圖層與“F OT BALL"圖層順序作品顯示效果不變
C．可直接用“油漆桶”工具改變“F OT BALL"圖層的字體顏色
D．對“F OT BALL"圖層執行修改字號命令無法單獨將“O”字母變大
6．（2021高三上·浙江月考）尺寸為1280×720像素、顏色位深度為24位的圖像，要求其上傳大小不超過450KB。根據一要求，壓縮為JPG格式其壓縮比至少為（　　）
A．3：1 B．4：1 C．5：1 D．6：1
7．（2021高三上·浙江月考）符合產生隨機整數n，其范圍為(100≤n≤200)的VB表達式是（　　）
A．int(Rnd * 100)+ 100 B．int(Rnd * 100)+101
C．int(Rnd* 101)+100 D．int(Rnd* 101)+101
8．（2020高二上·寧波期中）某算法的部分流程圖如圖所示，執行這部分流程，若輸入a值為2020，則輸出i的值為（　　）
A．7 B．8 C．9 D．11
9．（2021高三上·浙江月考）有如下VB程序段：
s= "abcde"
m=0
L=Len(s) ：n=L
Do While n>0
m=(m+3) Mod n+1
s=Mid(s，1，m-1)+ Mid(s，m+1，L) +Mid(s，m，1)
n= n-1
Loop
執行該程序段后，變量s的值是（　　）
A．edcba B．debca C．dbeca D．Edbac
10．（2021高三上·浙江月考）有如下VB程序段：
s=0：t=0
For i=1 To 5
If a(i)-a(i+1)t=a(i)-a(i+l)
s=s+1
End If
Next i
數組元素a(1)到a(6)的值依次為“4，5，3，2，7，5”，執行該程序段后，變量s的值為（　　）
A．1 B．2 C．3 D．4
11．（2021高三上·浙江月考）統計字符串s中的升序段個數(例如47923123 ，則滿足條件的升序段是479，23，123)。編寫的部分VB程序段如下：
s= "47923123"
f=True ： n=Len(s) ： m=0
For i=2 To n
If Mid(s， i， 1)> >Mid(s， i - 1， 1) Then
Else
End If
Next i
Print "升序段個數有"十Str(m)
上述程序段中方框處可選語句為：
①f= True
②f= False
③If f Then m=m+1
則(1)(2)(3)處語句依次為（　　）
A．①②③ B．②③① C．③②① D．②③①
12．（2021高三上·浙江月考）某對分查找算法的VB程序段如下：
Key= Val(Text1.Text)
i=1： j=10： n=0
Do While i<=j
m=(i+j)\2
n=n+1
If a(m) ： > Key Then
j=m-1
Else
i=m+ 1
End If
Loop
Text2.Text=str(n)
數組元素a(1)到a(10)的值依次為“2，3，5，8，9，10，13，17，19，25”。在文本框Text1中輸入待查找的整數，執行該程序段，則文本框Text2中顯示3，待查找數不可能是（　　）
A．2 B．4 C．9 D．i9
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小張收集了2020美國大選8個搖擺州民調數據，并用EXCEL軟件進行處理，如圖所示。
（1）支持率大于50的總統候選人獲得該州的選票，如拜登獲得了佛羅里達州(FL)、亞利桑那州(AZ)、北卡羅來納州(NC)．俄亥俄州(OH)的選票，并將預計得票顯示在G3、G4中。G3單元格是使用SUMIF函數計算得到的，其公式是　 　。
(提示：SUMIF(條件區域，求和條件，實際求和區域)，第二個求和條件參數作用在第一個條件區域里。SUMIF(A2：A13，“>50"，B2：B13)表示A2：A13區域大于50的對應實際求和區域B2：B13數據求和)
（2）H4單元格是通過H3自動填充得到的，現在出現了“#DIV/0！”錯誤，請分析原因，并修改H3公式：　 　。
（3）根據圖a數據，制作圖b所示圖表(2020美國大選搖擺州民調情況)，則該圖表的數據源是　 　。
14．（2021高三上·浙江月考）使用Flash軟件制作“流感常識宣傳”動畫：
（1）創作多媒體作品需要進行需求分析和規劃設計。下列屬于應用需求分析的是　 　(多選，填字母：A .了解用戶的計算機應用水平/B .考慮作品創作及運行需要的硬件設施/C .分析該作品的受歡迎程度及教育意義/D .設計作品的主要界面/E．確定作品的發布方式)。
（2）測試該場景時，“按鈕”圖層內容直到45幀才出現，要使按鈕從第1幀就出現并延續到第45幀，下列操作可行的是 。(多選題，填字母)
A．選中“按鈕”圖層第1幀執行“清除關鍵幀”操作
B．選中“按鈕”圖層第45幀執行“清除關鍵幀”操作
C．刪除“按鈕”圖層第1至44幀
D．選中“按鈕”圖層第45幀執行“復制幀”操作，在第1幀執行“粘貼幀”操作
E．選中“按鈕”圖層第45幀，并移動到第1幀
（3）“教師”圖層中的“人物”實例實現了由透明逐漸顯示的動畫效果，該圖層第一幀“人物”實例的Alpha屬性值為　 　。
（4）刪除“音效”圖層，第40幀到第45幀，對動畫整體音效　 　(有/無)影響。
（5）單擊“play”按鈕，跳轉到“第一幕”場景第1幀并開始播放，該按鈕上的動作腳本命令是　 　。
15．（2021高三上·浙江月考）某網站注冊密碼需要符合以下兩點條件：①密碼不少于4位字符組成；②必須同時包含4種字符，大寫字母“A-Z”，小寫字母“a-z”，數字“0-9”，特殊符號“！ @# $%~&．*”，為了方便批量注冊，小迪同學編寫了自動生成密碼的VB程序，程序運行界面如圖所示，當在文本框Text1中輸人需生成密碼長度，點擊“生成密碼”按鈕(Command1)，在文本框Text2中輸出符合要求的密碼串。
（1）下列對象不具有Caption屬性的是　 　(單選，填字母：A.Command1/B.Form1/C.Text1/D.Label1)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Private Sub Command1_ Click(　　)
Dim a(0 To 4) As Integer， b(1 To 4) As Integer
Dim key As String， s As String， n As Integer， k As Integer， i As Integer， j As Integer， sum As Integer
key="ABCDEFGHJKIMNC)PQRSTUVWXYZabdefghijklmnopqrstuvwxyz0123456789！ @# $ %&．*"
Randomize
n= Val(Text1.Text)
a(0)=0：a(1)=26 ：a(2)=52 ：a(3)=62：a(4)=70 '記錄每種符號的結束位置
s= ""
For i=1 To 4
b(i) =0 'b數組記錄某類符號是否使用
Next i
sum=4 '當前未使用字符類型，初始為4種
Do While Len(s)+sum< n
k=　 　 '隨機選擇一個密碼序號
s=s+ Mid(key， k， 1)
i= 1
Do While
i=i+ 1
Loop
b(i)= 1
sum=4-b(1)-b(2)-b(3)-b(4)
Loop
'生成剩余未出現元素密碼，保證4種符號均有出現
For i=1 To sum
j=Int(Rnd*4)十1
Do While (　 　 )
j=j Mod 4+1
Loop
b(j)=1
k=Int(Rnd * (a(j)-a(j- 1)))+a(j-1)+1
s=s+Mid(key， k， 1)
Next i
Text2.Text=s
End Sub
（3）程序代碼中的加框處代碼有誤，請改正。
（4）如果文本框Text1中輸入值2，文本框Text2中輸出字符長度為　 　(單選，填字母：A . 2/ B . 4 /C .運行錯誤/D .沒有輸出)
16．（2021高三上·浙江月考）現需要對某企業大型招聘活動面試成績進行排名，面試數據包含專業編號(整數，順序編號)、專業名稱、姓名(字母編寫)和面試分。整理面試數據的要求是：先按專業編號從小到大排列；然后，同專業的面試者按面試成績從大到小排列(同分同名次)。按上述要求，編寫一個VB程序，功能如下：在列表List1中顯示整理前的數據，單擊“整理”按鈕Command1，整理結果顯示在列表框List2中，程序運行界面如圖所示。
（1）n個元素兩兩比較大小，需要比較的次數是　 　
（2）請在劃線處填入合適的代碼。
Const n=200 '報名人數
Const nz=10 '專業數
Dim zybh(1 To n) As Integer， zyname(1 To n) As String， sname(1 To n) As String， zymark(1 To n) As Integer
Dim b(1 To nz) As Integer '存儲每個專業的人數
Dim c(1 To nz) As Integer
Dim d(1 To n) As Integer
Dim q(1 To n) As Integer
Private Sub Form_ Load()
'本過程讀取專業編號、專業名稱、姓名和面試分的數據分別存儲在數組zybh，zyname，sname， zymark中，并在List1中顯示，代碼略
End Sub
Private Sub Command1_ Click(　　)
Dim i As Integer， j As Integer， k As Integer， t As Integer， pos As Integer
For i=1 To nz
b(i)=0
Next i
For i=1 To n
d(i)=0 ： q(i)=0
Next i
For i=1 To n
k= zybh(i)
b(k)=b(k) + 1
Next i
k=1
For i=1 To nz
c(i)=k
　 　
Next i
For i=1 To n-1
For j=i+1 To n
If zybh(i)= zybh(j) And zymark(i) < <> zymark(j) Then
If 　 　 Then
d(j)=d(j)+1
Else
d(i)=d(i)+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While 　 　
j=j+1
Loop
q(c(zybh(i))+d(i)+j)=i
Next i
For i=1 To n
List2.AddItem "" & zybh(q(i)) & " " & zyname(q()) & " " & sname(q(i))& "" & zymark(q(i) & "" & d(q(i)) + 1
Next i
End Sub
答案解析部分
1．【答案】C
【知識點】信息技術的概念與關鍵技術；網絡資源的檢索；計算機、移動終端的工作原理
2．【答案】D
【知識點】人工智能的應用
3．【答案】A
【知識點】數據表、字段、記錄的編輯
4．【答案】C
【知識點】字符編碼
5．【答案】A
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】D
【知識點】聲音、圖像、視頻編碼
7．【答案】C
【知識點】運算符、基本運算與表達式；常用標準函數
8．【答案】A
【知識點】流程圖識讀
9．【答案】B
【知識點】循環結構語句及程序實現
10．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）= SUMIF(C3 ： C10，">50"，B3 ： B10)或=SUMIF(D3 ： D10，"<50"，B3 ： B10)
（2）自動填充后H4公式為=G4/G6，G6內容為空發生除0錯誤，需要將H3公式修改為=G3/G$ 6或=G3/$G$ 6
（3）A2：A10，C2：D10
【知識點】表格數據的處理與計算
14．【答案】（1）AC
（2）A；D；E
（3）0%或0
（4）無
（5）on( release) {gotoAndPlay(“第一幕”，1)；}或on( press) {gotoAndPlay(“第一幕” ，1)；}或等價表述
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用
15．【答案】（1）C
（2）Int(Rnd * 70) + 1；b(j)<> 0
（3）k>a(i)
（4）B
【知識點】常見數據類型、數組；循環結構語句及程序實現；常用標準函數
16．【答案】（1）n(n-1)/2
（2）k=k+b(i)；zymark(i)> zymark(j)；q(c(zybh(i)) + d(i) + j) <> 0
【知識點】排序算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省百校2021屆高三上學期信息技術12月聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021高三上·浙江月考）下列有關信息與信息處理的說法，錯誤的是(　　)
A．搜索引擎運用了全文檢索技術
B．古人“事大，大結其繩，事小，小結其繩，結之多少，隨物眾寡”，屬于信息編碼
C．鯤鵬云手機擺脫了對芯片的依賴，不再需要CPU支持
D．計算機感知現實世界需要用到傳感器技術
【答案】C
【知識點】信息技術的概念與關鍵技術；網絡資源的檢索；計算機、移動終端的工作原理
2．（2021高三上·浙江月考）下列應用中，沒有體現人工智能技術的是(　　)
A．停車管理系統通過識別車牌進行計費
B．“識花”軟件通過識別花草圖像顯示花草名稱
C．自動翻譯機將普通話翻譯成英語
D．佩戴智能導游進人預設無線發射點后自動播放講解
【答案】D
【知識點】人工智能的應用
3．（2021高三上·浙江月考）用Access軟件設計某圖書管理信息系統的數據庫，其中“圖書登記表”中需要存儲如圖所示的數據。
序號 圖書編號 書名 作者 入庫日期 借閱狀態
27 BK001 113 安娜·卡列尼娜 列夫·托爾斯泰 2014-07-31 是
28 BK003839 城南舊事 林海英 2016-08-01 否
29 BK002028 時間簡史 霍金 2020-08-02 是
… … … … … …
下列關于該圖書管理信息系統的描述，正確的是（　　）
A．“圖書登記表”中存在如圖數據，不可以將“序號”字段改為“自動編號”
B．“圖書登記表”的字段順序與圖中數據的列順序需要一致
C．“圖書登記表”中借閱狀態數據的字段類型不可以設置為“數字”類型
D．同一數據表中各記錄的字段數可以不同
【答案】A
【知識點】數據表、字段、記錄的編輯
4．要表示100種不同的信息，需要的二進制位數至少為(　　)
A．5 B．6 C．7 D．8
【答案】C
【知識點】字符編碼
5．（2021高三上·浙江月考）用Photoshop軟件制作“足球”宣傳海報，如圖所示，下列說法正確的是（　　）
A．可以對“F OT BALL"圖層使用“自由變換”命令調節文字大小
B．調換“球員”圖層與“F OT BALL"圖層順序作品顯示效果不變
C．可直接用“油漆桶”工具改變“F OT BALL"圖層的字體顏色
D．對“F OT BALL"圖層執行修改字號命令無法單獨將“O”字母變大
【答案】A
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2021高三上·浙江月考）尺寸為1280×720像素、顏色位深度為24位的圖像，要求其上傳大小不超過450KB。根據一要求，壓縮為JPG格式其壓縮比至少為（　　）
A．3：1 B．4：1 C．5：1 D．6：1
【答案】D
【知識點】聲音、圖像、視頻編碼
7．（2021高三上·浙江月考）符合產生隨機整數n，其范圍為(100≤n≤200)的VB表達式是（　　）
A．int(Rnd * 100)+ 100 B．int(Rnd * 100)+101
C．int(Rnd* 101)+100 D．int(Rnd* 101)+101
【答案】C
【知識點】運算符、基本運算與表達式；常用標準函數
8．（2020高二上·寧波期中）某算法的部分流程圖如圖所示，執行這部分流程，若輸入a值為2020，則輸出i的值為（　　）
A．7 B．8 C．9 D．11
【答案】A
【知識點】流程圖識讀
9．（2021高三上·浙江月考）有如下VB程序段：
s= "abcde"
m=0
L=Len(s) ：n=L
Do While n>0
m=(m+3) Mod n+1
s=Mid(s，1，m-1)+ Mid(s，m+1，L) +Mid(s，m，1)
n= n-1
Loop
執行該程序段后，變量s的值是（　　）
A．edcba B．debca C．dbeca D．Edbac
【答案】B
【知識點】循環結構語句及程序實現
10．（2021高三上·浙江月考）有如下VB程序段：
s=0：t=0
For i=1 To 5
If a(i)-a(i+1)t=a(i)-a(i+l)
s=s+1
End If
Next i
數組元素a(1)到a(6)的值依次為“4，5，3，2，7，5”，執行該程序段后，變量s的值為（　　）
A．1 B．2 C．3 D．4
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2021高三上·浙江月考）統計字符串s中的升序段個數(例如47923123 ，則滿足條件的升序段是479，23，123)。編寫的部分VB程序段如下：
s= "47923123"
f=True ： n=Len(s) ： m=0
For i=2 To n
If Mid(s， i， 1)> >Mid(s， i - 1， 1) Then
Else
End If
Next i
Print "升序段個數有"十Str(m)
上述程序段中方框處可選語句為：
①f= True
②f= False
③If f Then m=m+1
則(1)(2)(3)處語句依次為（　　）
A．①②③ B．②③① C．③②① D．②③①
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．（2021高三上·浙江月考）某對分查找算法的VB程序段如下：
Key= Val(Text1.Text)
i=1： j=10： n=0
Do While i<=j
m=(i+j)\2
n=n+1
If a(m) ： > Key Then
j=m-1
Else
i=m+ 1
End If
Loop
Text2.Text=str(n)
數組元素a(1)到a(10)的值依次為“2，3，5，8，9，10，13，17，19，25”。在文本框Text1中輸入待查找的整數，執行該程序段，則文本框Text2中顯示3，待查找數不可能是（　　）
A．2 B．4 C．9 D．i9
【答案】D
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小張收集了2020美國大選8個搖擺州民調數據，并用EXCEL軟件進行處理，如圖所示。
（1）支持率大于50的總統候選人獲得該州的選票，如拜登獲得了佛羅里達州(FL)、亞利桑那州(AZ)、北卡羅來納州(NC)．俄亥俄州(OH)的選票，并將預計得票顯示在G3、G4中。G3單元格是使用SUMIF函數計算得到的，其公式是　 　。
(提示：SUMIF(條件區域，求和條件，實際求和區域)，第二個求和條件參數作用在第一個條件區域里。SUMIF(A2：A13，“>50"，B2：B13)表示A2：A13區域大于50的對應實際求和區域B2：B13數據求和)
（2）H4單元格是通過H3自動填充得到的，現在出現了“#DIV/0！”錯誤，請分析原因，并修改H3公式：　 　。
（3）根據圖a數據，制作圖b所示圖表(2020美國大選搖擺州民調情況)，則該圖表的數據源是　 　。
【答案】（1）= SUMIF(C3 ： C10，">50"，B3 ： B10)或=SUMIF(D3 ： D10，"<50"，B3 ： B10)
（2）自動填充后H4公式為=G4/G6，G6內容為空發生除0錯誤，需要將H3公式修改為=G3/G$ 6或=G3/$G$ 6
（3）A2：A10，C2：D10
【知識點】表格數據的處理與計算
14．（2021高三上·浙江月考）使用Flash軟件制作“流感常識宣傳”動畫：
（1）創作多媒體作品需要進行需求分析和規劃設計。下列屬于應用需求分析的是　 　(多選，填字母：A .了解用戶的計算機應用水平/B .考慮作品創作及運行需要的硬件設施/C .分析該作品的受歡迎程度及教育意義/D .設計作品的主要界面/E．確定作品的發布方式)。
（2）測試該場景時，“按鈕”圖層內容直到45幀才出現，要使按鈕從第1幀就出現并延續到第45幀，下列操作可行的是 。(多選題，填字母)
A．選中“按鈕”圖層第1幀執行“清除關鍵幀”操作
B．選中“按鈕”圖層第45幀執行“清除關鍵幀”操作
C．刪除“按鈕”圖層第1至44幀
D．選中“按鈕”圖層第45幀執行“復制幀”操作，在第1幀執行“粘貼幀”操作
E．選中“按鈕”圖層第45幀，并移動到第1幀
（3）“教師”圖層中的“人物”實例實現了由透明逐漸顯示的動畫效果，該圖層第一幀“人物”實例的Alpha屬性值為　 　。
（4）刪除“音效”圖層，第40幀到第45幀，對動畫整體音效　 　(有/無)影響。
（5）單擊“play”按鈕，跳轉到“第一幕”場景第1幀并開始播放，該按鈕上的動作腳本命令是　 　。
【答案】（1）AC
（2）A；D；E
（3）0%或0
（4）無
（5）on( release) {gotoAndPlay(“第一幕”，1)；}或on( press) {gotoAndPlay(“第一幕” ，1)；}或等價表述
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用
15．（2021高三上·浙江月考）某網站注冊密碼需要符合以下兩點條件：①密碼不少于4位字符組成；②必須同時包含4種字符，大寫字母“A-Z”，小寫字母“a-z”，數字“0-9”，特殊符號“！ @# $%~&．*”，為了方便批量注冊，小迪同學編寫了自動生成密碼的VB程序，程序運行界面如圖所示，當在文本框Text1中輸人需生成密碼長度，點擊“生成密碼”按鈕(Command1)，在文本框Text2中輸出符合要求的密碼串。
（1）下列對象不具有Caption屬性的是　 　(單選，填字母：A.Command1/B.Form1/C.Text1/D.Label1)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Private Sub Command1_ Click(　　)
Dim a(0 To 4) As Integer， b(1 To 4) As Integer
Dim key As String， s As String， n As Integer， k As Integer， i As Integer， j As Integer， sum As Integer
key="ABCDEFGHJKIMNC)PQRSTUVWXYZabdefghijklmnopqrstuvwxyz0123456789！ @# $ %&．*"
Randomize
n= Val(Text1.Text)
a(0)=0：a(1)=26 ：a(2)=52 ：a(3)=62：a(4)=70 '記錄每種符號的結束位置
s= ""
For i=1 To 4
b(i) =0 'b數組記錄某類符號是否使用
Next i
sum=4 '當前未使用字符類型，初始為4種
Do While Len(s)+sum< n
k=　 　 '隨機選擇一個密碼序號
s=s+ Mid(key， k， 1)
i= 1
Do While
i=i+ 1
Loop
b(i)= 1
sum=4-b(1)-b(2)-b(3)-b(4)
Loop
'生成剩余未出現元素密碼，保證4種符號均有出現
For i=1 To sum
j=Int(Rnd*4)十1
Do While (　 　 )
j=j Mod 4+1
Loop
b(j)=1
k=Int(Rnd * (a(j)-a(j- 1)))+a(j-1)+1
s=s+Mid(key， k， 1)
Next i
Text2.Text=s
End Sub
（3）程序代碼中的加框處代碼有誤，請改正。
（4）如果文本框Text1中輸入值2，文本框Text2中輸出字符長度為　 　(單選，填字母：A . 2/ B . 4 /C .運行錯誤/D .沒有輸出)
【答案】（1）C
（2）Int(Rnd * 70) + 1；b(j)<> 0
（3）k>a(i)
（4）B
【知識點】常見數據類型、數組；循環結構語句及程序實現；常用標準函數
16．（2021高三上·浙江月考）現需要對某企業大型招聘活動面試成績進行排名，面試數據包含專業編號(整數，順序編號)、專業名稱、姓名(字母編寫)和面試分。整理面試數據的要求是：先按專業編號從小到大排列；然后，同專業的面試者按面試成績從大到小排列(同分同名次)。按上述要求，編寫一個VB程序，功能如下：在列表List1中顯示整理前的數據，單擊“整理”按鈕Command1，整理結果顯示在列表框List2中，程序運行界面如圖所示。
（1）n個元素兩兩比較大小，需要比較的次數是　 　
（2）請在劃線處填入合適的代碼。
Const n=200 '報名人數
Const nz=10 '專業數
Dim zybh(1 To n) As Integer， zyname(1 To n) As String， sname(1 To n) As String， zymark(1 To n) As Integer
Dim b(1 To nz) As Integer '存儲每個專業的人數
Dim c(1 To nz) As Integer
Dim d(1 To n) As Integer
Dim q(1 To n) As Integer
Private Sub Form_ Load()
'本過程讀取專業編號、專業名稱、姓名和面試分的數據分別存儲在數組zybh，zyname，sname， zymark中，并在List1中顯示，代碼略
End Sub
Private Sub Command1_ Click(　　)
Dim i As Integer， j As Integer， k As Integer， t As Integer， pos As Integer
For i=1 To nz
b(i)=0
Next i
For i=1 To n
d(i)=0 ： q(i)=0
Next i
For i=1 To n
k= zybh(i)
b(k)=b(k) + 1
Next i
k=1
For i=1 To nz
c(i)=k
　 　
Next i
For i=1 To n-1
For j=i+1 To n
If zybh(i)= zybh(j) And zymark(i) < <> zymark(j) Then
If 　 　 Then
d(j)=d(j)+1
Else
d(i)=d(i)+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While 　 　
j=j+1
Loop
q(c(zybh(i))+d(i)+j)=i
Next i
For i=1 To n
List2.AddItem "" & zybh(q(i)) & " " & zyname(q()) & " " & sname(q(i))& "" & zymark(q(i) & "" & d(q(i)) + 1
Next i
End Sub
【答案】（1）n(n-1)/2
（2）k=k+b(i)；zymark(i)> zymark(j)；q(c(zybh(i)) + d(i) + j) <> 0
【知識點】排序算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑