2020-2021學(xué)年浙江省湖州市三賢聯(lián)盟高二（上）期中信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題部分（本大題共12小題，每小題2分，共24分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分。）
-
1．下列有關(guān)信息說法正確的是（ ?。?/h2>
組卷：2引用：1難度：0.6 -
2．下列說法錯(cuò)誤的是（ ?。?/h2>
組卷：0引用：1難度：0.7 -
3．關(guān)于瀏覽器和網(wǎng)頁的說法，正確的是（ ?。?/h2>
組卷：5引用：3難度：0.6 -
4．以下行為中采用人工智能技術(shù)的有（ ）
①煙霧報(bào)警器自動(dòng)報(bào)警
②通過外接手寫板，在電腦中輸入文字
③在word中輸入“強(qiáng)建”，自動(dòng)更改為“強(qiáng)健”
④小區(qū)門口自動(dòng)識(shí)別車牌號(hào)進(jìn)行播報(bào)
⑤購物者攜帶釘有“磁性防盜扣”的商品經(jīng)過防盜門時(shí)，會(huì)自動(dòng)報(bào)警
⑥老師用釘釘群直播上課組卷：1引用：1難度：0.7 -
5．使用Word軟件編輯某文檔時(shí)，部分界面如圖所示：
下列說法正確的是（ ?。?/h2>組卷：2引用：1難度：0.6
二、非選擇題部分（本大題共4題，其中第13題6分，第14題6分，第15題7分，第16題7分，共26分）
-
15．某倉庫對(duì)貨物的編碼規(guī)則為：貨物類型（4-8位英文字母）貨物編碼（4-8位數(shù)字）貨物校驗(yàn)碼。貨物編碼的每一位數(shù)除以2產(chǎn)生的余數(shù)，倒序輸出即是貨物正確的校驗(yàn)碼，現(xiàn)編寫如下VB程序，如圖在Text1中輸入貨物完整編碼后，判定校驗(yàn)碼是否符合標(biāo)準(zhǔn)，并在Label1中輸出結(jié)果。
（1）由程序可知，此程序中按鈕的名稱為
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub check_Click
Dim s as string,ss as string,s1 as string,s2 as string
Dim i as integer,bz as integer
bz=0
For i=1 To Len（s）
ss=Mid（s,i,1）
If ss=“-“Then
bz=bz+1
ElseIf bz=1 Then
s1=CStr+s1
'Cstr函數(shù)是在str的基礎(chǔ)上去除前導(dǎo)空格
ElseIf bz=2 Then
s2=s2+ss
End If
Next i
IfThen
Label1.Caption=“符合標(biāo)準(zhǔn)“
Else
Label1.Caption=“不符合標(biāo)準(zhǔn)“
End If
End Sub組卷：0引用：1難度：0.4 -
16．在Text1中輸入一個(gè)1-26之間的數(shù)字n,點(diǎn)擊“產(chǎn)生”按鈕，在Text2中產(chǎn)生n個(gè)不重復(fù)的大寫字母，中間用逗號(hào)隔開（圖a），點(diǎn)擊一次“最小值”按鈕，Text2中最小的字母會(huì)掉落到List1中，并將Text2中對(duì)應(yīng)的字母和后面的逗號(hào)刪除（圖b），再點(diǎn)擊一次“最小值”按鈕，剩余字母中的最小值繼續(xù)掉落（圖c）。（ASC（“A”）=65，CHR（65）=“A”）
（1）根據(jù)描述，如產(chǎn)生的字母為“H，K，C，B，N，”，第三次點(diǎn)擊“最小值”按鈕后Text2中顯示內(nèi)容為
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click
Dim i As Integer,j As Integer,n As Integer
Dim zm As Integer,flag As Boolean,zf As string
Randomize'重置rnd函數(shù)，確保每次產(chǎn)生的隨機(jī)數(shù)不一致
zf=““
n=Val（Text1.Text）
For i=1 To n
zm=Int（Rnd*26+65）
For j=1 To Len（zf） Step 2
If Asc（Mid（zf,j,1））=zm Then
flag=True
Exit For
End If
Next j
If flag=False Then zf=zf+Chr（zm）+“，“
Next i
Text2.Text=zf
End Sub
Private Sub Command2_Click
Dim i As Integer,zf As string
zf=Text2.Text
k=1
For i=3 To Len（zf）-1 Step 2
If Mid（zf,k,1）＞Mid（zf,i,1）Then k=i
Next i
List1.AddItem Mid（zf,k,1）
Text2.Text=
End Sub組卷：0引用：1難度：0.3