2016年浙江省溫州市普通高中選考科目信息技術試卷（3月份）

一、選擇題（本大題共9小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）

• 1．在春節期間，小李通過手機微信群給同學們發紅包，群中所有人看到后都能爭搶紅包，微信群中這一現象主要體現了信息的（　　）

  A．共享性

  B．真偽性

  C．可處理性

  D．載體依附性
  組卷：7引用：6難度：0.9

  解析

• 2．如圖所示為某動畫序列的4幅相鄰圖象，這些圖象之間存在一定的相關性，下列說法正確的是（　　）
  

  A．該相關性表現為視覺冗余

  B．該相關性表現為結構冗余

  C．由該序列組成的gif文件導入flash舞臺，能直接生成逐幀動畫

  D．由該序列組成的gif文件導入flash舞臺，能直接生成補間動畫
  組卷：9引用：7難度：0.9

  解析

• 3．王林平時關注手機電池的正確使用，有關鋰電池的文章截圖如圖所示：
  
  下列說法正確的是（　　）

  A．圖中只有1處批注，批注內容為“鋰電池”

  B．圖中共有2處修訂，修訂選項的標記是可以自定義的

  C．最后一句修訂之前的文字應為“不宜過充和過放，否則對鋰電池造成較大傷害”

  D．接受修訂之后圖中最后一句文字應為“不宜過充和過放，對鋰電池造成較大傷害”
  組卷：10引用：7難度：0.9

  解析

• 4．某學生的Win10自帶郵件客戶端軟件如圖所示，某次使用過程中能正常接收郵件但無法發送郵件，下列說法正確的是（　　）

  A．可能是SMTP協議設置錯誤

  B．可能是POP3協議設置錯誤

  C．可能是HTTP協議設置錯誤

  D．可能是TCP/IP協議設置錯誤
  組卷：5引用：6難度：0.9

  解析

• 5．小明通過ATM機進行存款等操作，下列說法正確的是（　　）

  A．ATM機的操作界面屬于數據庫管理系統

  B．登錄銀行卡賬戶的過程是對數據庫進行“查詢記錄”操作

  C．向賬戶進行存款的過程是對數據庫進行“修改記錄”操作

  D．修改短信通知的手機號碼，是對手機號碼相應的字段類型進行修改
  組卷：11引用：6難度：0.9

  解析

【加試題】

• 16．如果兩個質數的差為2，則這兩個質數稱為孿生質數對；編寫VB程序，實現如下功能：單擊“顯示孿生質數對”按鈕Command1，在列表框list1中顯示100以內的所有孿生質數對（運行效果如圖所示）。
  實現上述功能的VB代碼如下，但加框處代碼有錯，請改正。
  Dim a（1To 50）As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer
  k=0：i=3
  Do While i＜=100
  If Then‘（1）
  k=k+1
  a（k）=i
  End If
  i=i+2
  Loop
  For i=2To k
  If Then‘（2）
  List1．AddItem Str（a（i-1））+“和“+Str（a（i））
  End If
  Next i
  End Sub
  Function prime（x As Integer） As Boolean
  prime=False
  For i=2To Int（Sqr（x））
  If x Mod i=0Then
  prime=True
  Exit For
  End If
  Next i
  End Function。
  組卷：15引用：4難度：0.1

  解析

【加試題】

• 17．編寫VB程序，實現如下功能：單擊“排序數組a”按鈕Command1時，對已有數組a的數據進行升序排列，并顯示在文本框Label1中；單擊“顯示數組b”按鈕Command2時，將升序數組b的數據顯示在文本框Label2中；再單擊“合并a和b”按鈕Command3時，對數組a和數組b升序合并到字符串中，將合并后的數據在文本框Label3中顯示．（運行效果如第17題圖所示）．實現上述功能的VB代碼如下，請在橫線處填入合適代碼．
  
  Dim a（1To 6）As Integer
  Dim b（1To 6）As Integer
  Private Sub Command1_Click（　　）'對數組a中的數據進行排序
  Dim i As Integer,j As Integer,k as integer
  a（1）=53：a（2）=18：a（3）=62：a（4）=22：a（5）=6：a（6）=25
  s=““
  For i=1To 5
  k=i
  For j=i+1To 6
  If a（k）＞a（j） Then ①

   

  
  Next j
  If i＜＞k Then
  t=a（k）：a（k）=a（i）：a（i）=t
  End If
  Next i
  For i=1To 6
  s=s+Str（a（i））
  Next i
  Label1．Caption=s
  End Sub
  Private Sub Command2_Click （　　）
  b（1）=3：b（2）=8：b（3）=15：b（4）=27：b（5）=38：b（6）=49
  '此處部分代碼省略
  End Sub
  Private Sub Command3_Click （　　）
  '將數組a和b中的數據逐個比較后添加到新的字符串s中，并將s在label3中顯示
  i=1：j=1：s=““
  Do While i＜=6 ②

   

  j＜=6'如果兩數組都還有數據未合并
  If ③

   

  Then
  s=s+Str（a（i））：i=i+1
  Else
  s=s+Str（b（j））：j=j+1
  End If
  Loop
  Do While i＜=6'只有數組a還有數據未合并
  s=s+Str（a（i））：i=i+1
  Loop
  Do While j＜=6'只有數組b還有數據未合并
  s=s+Str（b（j））：j=j+1
  Loop
  Label3．Caption=s
  End Sub.
  組卷：3引用：1難度：0.3

  解析