2017-2018學年浙江省溫州新力量聯(lián)盟高二（上）期末信息技術試卷（選考）

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

• 1．下列關于信息的描述不正確的是（　　）

  A．信息可以被重復使用不會產生耗損

  B．無線電技術使信息可以不依附載體存在

  C．信息應盡可能經過甄別后再使用

  D．相同內容的信息可以有多種不同的表達方式
  組卷：38引用：1難度：0.9

  解析

• 2．網頁中包含的文本、圖象、超鏈接和表格等基本元素及構件是由（　?。┻M行描述的。

  A．HTTP

  B．SMTP

  C．HTML

  D．WEB
  組卷：3引用：1難度：0.9

  解析

• 3．以下選項中，運用了人工智能的是（　?。?/h2>

  A．用手機將練習冊上有疑問的試題拍攝后通過微信發(fā)給老師，并就試題內容向老師請教

  B．在手機上設定鬧鐘叫醒自己

  C．利用微信語音聊天功能與朋友相互問候

  D．將微信上他人發(fā)來的語音轉換成文字
  組卷：13引用：1難度：0.9

  解析

• 4．小明為如圖所示的數(shù)據(jù)表提出了修改建議。以下建議中，當前狀態(tài)下操作能實現(xiàn)的是（　?。?br />

  A．孫雯的入學時間格式有誤，建議輸入“2015/8/32”

  B．建議將序號字段的數(shù)據(jù)類型設置為“自動編號”，可以節(jié)省輸入序號的時間

  C．建議將聯(lián)系電話字段的數(shù)據(jù)類型設置為“文本”

  D．建議將性別字段的類型改為“文本”，表中已有數(shù)據(jù)的性別將以“男”或“女”顯示
  組卷：23引用：1難度：0.7

  解析

• 5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，下列說法正確的是（　?。?img alt="菁優(yōu)網" src="https://img.jyeoo.net/quiz/images/201803/34/9bfa661a.png" style="vertical-align:middle" />

  A．輸出的 a,b 值分別為 5，11

  B．輸出的 a,b 值分別為 5，14

  C．條件 b＜10 被判斷了 6 次

  D．語句 b←3*a-1 被執(zhí)行了 4 次
  組卷：1引用：1難度：0.7

  解析

二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）

• 16．小劉為班級的抽獎活動編寫了一個 VB 程序。單擊“抽取”按鈕 command1 時，在列表框 List1 中顯示按用戶抽取人數(shù)在學號起訖范圍內（最大學號不超過 100）隨機抽取到不重復的學號。程序運行界面如圖所示。 
  
  實現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯，請改正。 Dim xh（1To 100）As Integer
  Dim yx As Integer
  Private Sub Command1_Click

   

   Dim n1，n2，n,x As Integer List1．Clear
  Randomize
  n1=Val（Text1．Text） n2=Val（Text2．Text） n=Val（Text3．Text） If n＜=n2-n1Then
  yx=1
  Do While yx＜=n
  x='①
  If yx=1Then
  xh（yx）=x
  yx=2
  Else
  If qc（x）=True Then
  xh（yx）=x
  yx=yx+1
  End If
  End If
  Loop
  For i=1To n
  List1．AddItem Str（xh（i））
  Next i Else
  MsgBox“你輸入的抽取人數(shù)不能實現(xiàn)，請重新輸入。“End If
  End Sub
  Public Function qc（t As Integer） As Boolean For j=1To yx
  If xh（j）=t Then
  qc=False
  Exit For
  End If Next j
  If  Then qc=True'②End Function
  （1）加框處①有錯，應改為

   

  。
  （2）加框處②有錯，應改為

   

  。
  組卷：6引用：1難度：0.3

  解析

• 17．在一個長度為 n 的數(shù)字序列中，如果相鄰元素差的絕對值經過升序排序后正好是 1 到 n-1，則認定該序列存在著“有趣的跳躍”。例如：數(shù)字序列 1、4、2、3 的相鄰數(shù)字差的絕對值分別為 3、2、1，排序后是 1、2、3，則說明該序列存在著“有趣的跳躍”。
  小明編寫了 VB 程序用于數(shù)字序列的檢測，程序運行界面如圖所示。在文本框 Text1 中逐個輸入數(shù)字，依 次存儲到數(shù)組 a 中，并在列表框 List1 中顯示。單擊“判斷”按鈕 Command1，將原始數(shù)字序列相鄰數(shù)字差 的絕對值依次存儲到數(shù)組 b 中，并對數(shù)組 b 進行升序排序后在列表框 List2 中顯示；若輸入的數(shù)字序列存在“有趣的跳躍”，則在文本框 Text2 中輸出“yes”，否則輸出“no”。
  （1）若輸入序列 3、13、24、35、47、30，單擊“判斷”按鈕后，文本框 Text2 中將顯示

   

  。
  （2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適代碼。Dim n As Integer'存儲序列的元素個數(shù)
  Dim a（1To 100）As Integer'存儲原始數(shù)字序列
  Dim b（1To 100）As Integer'存儲相鄰數(shù)字的差值絕對值 Private Sub Form_Load （　?。?br />n=0End Sub
  Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii=13Then
  n=n+1
  ①
  List1．AddItem str（a（n）） Text1．Text=““
  End If End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,k As Integer,m As Integer Dim flag As Boolean
  m=n-1
  For i=1To m
  b（i）=②
  Next i
  For i=2To m k=b（i）
  For j=i-1To 1Step-1
  If k＞b（j） Then Exit For b（j+1）=b（j）
  Next j
  ③=k
  Next i flag=True
  For i=1To m List2．AddItem str（b（i））
  If b（i）＜＞i  Then flag=False Next i
  If flag=True Then Text2．Text=“yes“Else Text2．Text=“no“End Sub
  組卷：8引用：1難度：0.1

  解析