2020-2021學年浙江省嘉興市高二（上）期末信息技術試卷
發布：2024/10/26 9:30:2
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求。）
-
1．下列有關信息的說法，正確的是（ ）
組卷：4引用：1難度：0.6 -
2．下列有關網頁和電子郵件的說法，正確的是（ ）
組卷：3引用：1難度：0.6 -
3．小明在創客嘉年華活動中看到以下項目
①識別人臉后自動用合適的稱謂向來賓打招呼的機器人
②通過溫度感應自動點亮的“月球燈”
③通過語音助手Siri控制家中各類電器
④利用虛擬現實技術提升文物修復的成功率
⑤說出垃圾名稱后能自動打開相應分類垃圾桶的蓋子
以上應用了人工智能技術的是（ ）組卷：7引用：1難度：0.6 -
4．用Access軟件創建“學生信息”數據表，其數據表視圖和設計視圖部分界面如圖所示。下列說法錯誤的是（ ）
組卷：2引用：2難度：0.7 -
5．下列有關多媒體技術的描述，正確的是（ ）
組卷：9引用：1難度：0.8
二、非選擇題（本大題共4小題，其中第13小題8分，第14小題8分，第15小題4分，第16小題6分，共26分。）
-
15．編寫VB程序實現以下功能：在文本框Textl中輸入一個十進制正整數，單擊“計算”按鈕Commandl后，將該正整數轉換為二進制數，最后在文本框Text2中輸出該二進制數中連續“0”或“1”的最長個數情況。
如：輸入十進制數35，將其轉換為二進制數為100011，其中最長連續數字是3個“0”。程序運行界面如圖所示。
（1）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
PrivateSubCommandl_Click （ ）
DimnAsInteger,IAsInteger,jAsInteger,mAsInteger
DimsAsString,chAsString,chlAsString,ch2AsString
n=Val（Textl.Text）
DoWhilen＜＞0
s=CStr（nMod2）+s'CStr將數字轉化為字符串，但不會有前導空格
①
Loop
ch1=Mid（s,1，1）：ch=chl
i=2：j=1：m=0
Fori=2ToLen（s）
ch2=Mid（s,i,1）
If②Then
Ifi-j＞mThen
m=i-j
ch=chl
EndIf
ch1=ch2
③
EndIf
Nexti
Text2.Text=Str（m）&″個″&ch
EndSub
（2）如果將程序中加框處的代碼去掉，在文本框Textl中輸入15，單擊Commandl后在標簽Label2中顯示的內容是。組卷：0引用：1難度：0.5 -
16．編寫VB程序，實現在文本中統計以某字母開頭的單詞總數，并依次輸出查找到的每個單詞。程序功能如下：文本框Text1中輸入文本（單詞間用空格、“，”、“.”分隔），文本框Text2中輸入開頭字母，單擊“查找”按鈕Commmandl后，標簽Label1中顯示符合條件的單詞總數，列表框Listl中依次輸出每個單詞，程序運行界面如圖所示。
（1）要使程序運行時，窗體Forml標題欄自動顯示“統計指定字母開頭的單詞”，可在（單選，填字母：A.Form_Load/B.Form_Click/C.Commandl_Click）事件過程中添加相關語句來實現。
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
PrivateSubCommand1_C1ick （ ）
DimiAsInteger,jAsInteger,nAsInteger,flagAsBoolean
DimstAsString,szmAsString,chAsString,wordAsString,tmpAsString
st=Textl-Text
szm=Text2.Text
flag=True：n=0
Fori=1ToLen（st）
①
Ifch=szmAndflag=TrueThen
n=n+1：word=ch
Forj=i+1ToLen（st）
tmp=Mid（st,j,1）
Iftmp＜＞″″Andtmp＜＞″.″Andtmp＜＞″，″Then
②
Else
Listl.AddItemStr（n）+″.″+word
i=j
ExitFor
EndIf
Nextj
ElseIfch=″″Orch=″，″Orch=″.″Then
③
Else
flag=False
EndIf
Nexti
Label1.Caption=″字母″+szm+″開頭的單詞總數：″+Str（n）
EndSub組卷：0引用：1難度：0.6