2019-2020學年浙江省麗水市高二（上）質檢信息技術試卷（1月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分．）
-
1．下列關于信息和信息技術的說法，正確的是（ ）
組卷：3引用：1難度：0.7 -
2．下列有關網頁和電子郵件的說法，正確的是（ ）
組卷：0引用：1難度：0.6 -
3．下列應用，沒有體現人工智能技術的是（ ）
組卷：4引用：1難度：0.6 -
4．使用Access軟件創建的“學生信息”數據表，其設計視圖的部分界面如圖所示。下列 說法正確的是（ ）組卷：0引用：1難度：0.7 -
5．使用UltraEdit軟件觀察字符的內碼，部分界面如圖所示。下列說法正確的是（ ）
組卷：1引用：1難度：0.6
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．編寫VB程序，實現在1到40中隨機抽取n個不重復的數字。在文本框Text1中輸入 需要抽取的個數n,單擊“抽取”按鈕Command1，在列表List1中輸出結果，程序設計界面如圖a所示。請回答下列問題：
（1）在設計程序界面時，應使用圖b所示“控件工具箱”中的（填寫相應編號）添 加列表框。
（2）實現上述功能的VB程序如下，請在橫線處填寫合適的代碼。
PrivateSubCommand1_Click （ ）
Dima（1To40）AsInteger DimiAs Integer List1．Clear
n=Val（Text1．Text） Randomize
Fori=1To n’隨機生成[1，40]之間的正整數 For j=1
Toi-1
Ifa（j）=a（i）Then i=
EndIf
Nextj
Nexti
Fori=1Ton
List1．AddItemStr（a（i））
Nexti
EndSub
（3）加框處代碼有誤，請改正。
（4）運行程序，在文本框Text1中輸入41，單擊“抽取”按鈕，程序錯誤提示為。
（填寫字母：A．溢出 B．下標越界 C．缺少對象）組卷：0引用：1難度：0.5 -
16．編寫VB程序，實現如下功能：在文本框Text1中輸入一串字符，單擊“統計”按鈕Command1，統計每個英文字母（不區分大小寫）出現的次數，找出出現次數最多的字 母，在標簽Label1中顯示結果。運行效果如圖所示。
（1）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
PrivateSubCommand1_Click （ ）
DimiAsInteger,n AsInteger,maxAsInteger
Dima（1To26）AsInteger'數組a存放26個大小寫字母出現的次數 DimstAsString,chAs String
st=Text1．Text
Fori=1ToLen（st）
Ifch＞=″A″Andch＜=″Z″Then n=Asc（ch）-Asc（″A″）+1 a（n）=a（n）+1
ElseIfch＞=″a″Andch＜=″z″Then n=
a（n）=a（n）+1
EndIf
Nexti
max=a（1）
Fori=1 To26
IfThen max=a（i）
EndIf Nexti st=″″
Fori=1 To26
Ifmax=a（i）Then
st=st+″″+Chr（Asc（″A″）+i-1）EndIf
Nexti
Label1．Caption=“出現次數最多的字母是：″&st&″″&″出現次數為：″&Str（max） EndSub
（2）在文本框Text1中輸入字符串“ABCEEEEffee333333”，運行程序時，標簽Label1 中輸出結果為：出現次數最多的字母是：出現次數為：。組卷：0引用：1難度：0.3