2020-2021學年浙江省湖州市三賢聯盟高二（上）期中信息技術試卷

一、選擇題部分（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分。）

• 1．下列有關信息說法正確的是（　　）

  A．文字、語言、聲音、書籍等都是常見的信息表達方式

  B．信息是指對消息接收者來說預先不知道的事情，因此具有不確定性

  C．只有數字化后的信息才能被計算機處理

  D．“以訛傳訛”這個成語說明了信息在傳遞過程中會產生損失
  組卷：2引用：1難度：0.6

  解析

• 2．下列說法錯誤的是（　　）

  A．傳感器技術已經在智能手機中廣泛使用

  B．云技術的發展為信息脫離載體傳輸提供了可能性

  C．電影技術屬于近代信息技術

  D．使用加密技術可以提高信息的安全性
  組卷：0引用：1難度：0.7

  解析

• 3．關于瀏覽器和網頁的說法，正確的是（　　）

  A．利用收藏夾可將網頁保存到本地磁盤

  B．文字、表格和超鏈接是網頁內容的三種基本元素

  C．POP3協議的功能是把電子郵件從發件人電子信箱發送到收件人的電子郵件服務器中

  D．網頁文件是由HTML語言描述的文本文件，可以用記事本編輯
  組卷：5引用：3難度：0.6

  解析

• 4．以下行為中采用人工智能技術的有（　　）
  ①煙霧報警器自動報警
  ②通過外接手寫板，在電腦中輸入文字
  ③在word中輸入“強建”，自動更改為“強健”
  ④小區門口自動識別車牌號進行播報
  ⑤購物者攜帶釘有“磁性防盜扣”的商品經過防盜門時，會自動報警
  ⑥老師用釘釘群直播上課

  A．①⑤④

  B．②③④

  C．④⑥

  D．②④
  組卷：1引用：1難度：0.7

  解析

• 5．使用Word軟件編輯某文檔時，部分界面如圖所示：
  
  下列說法正確的是（　　）

  A．圖中圖文混排方式一定是四周型

  B．用戶A1和B2分別對文檔進行了批注

  C．文檔中有兩處批注、兩處修訂

  D．若刪除文中的批注，則批注對象也會被刪除
  組卷：2引用：1難度：0.6

  解析

二、非選擇題部分（本大題共4題，其中第13題6分，第14題6分，第15題7分，第16題7分，共26分）

• 15．某倉庫對貨物的編碼規則為：貨物類型（4-8位英文字母）貨物編碼（4-8位數字）貨物校驗碼。貨物編碼的每一位數除以2產生的余數，倒序輸出即是貨物正確的校驗碼，現編寫如下VB程序，如圖在Text1中輸入貨物完整編碼后，判定校驗碼是否符合標準，并在Label1中輸出結果。
  （1）由程序可知，此程序中按鈕的名稱為

   

  
  （2）請在橫線處填入合適的代碼。
    
  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函數是在str的基礎上去除前導空格
  ElseIf bz=2 Then
  s2=s2+ss
  End If
  Next i
  If

   

   Then
  Label1.Caption=“符合標準“
  Else
  Label1.Caption=“不符合標準“
  End If
  End Sub
  組卷：0引用：1難度：0.4

  解析

• 16．在Text1中輸入一個1-26之間的數字n,點擊“產生”按鈕，在Text2中產生n個不重復的大寫字母，中間用逗號隔開（圖a），點擊一次“最小值”按鈕，Text2中最小的字母會掉落到List1中，并將Text2中對應的字母和后面的逗號刪除（圖b），再點擊一次“最小值”按鈕，剩余字母中的最小值繼續掉落（圖c）。（ASC（“A”）=65，CHR（65）=“A”）
  
  （1）根據描述，如產生的字母為“H，K，C，B，N，”，第三次點擊“最小值”按鈕后Text2中顯示內容為

   

  
  （2）請在橫線處填入合適的代碼。
  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函數，確保每次產生的隨機數不一致
  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

  解析