2015-2016學(xué)年浙江省杭州二中高二（下）期中信息技術(shù)試卷

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

• 1．在春節(jié)期間，小李通過手機微信群給同學(xué)們發(fā)紅包，群中所有人看到后都能爭搶紅包，微信群中這一現(xiàn)象主要體現(xiàn)了信息的（　?。?/h2>

  A．共享性

  B．真?zhèn)涡?/label>

  C．可處理性

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

  解析

• 2．如圖所示為某動畫序列的4幅相鄰圖象，這些圖象之間存在一定的相關(guān)性，下列說法正確的是（　?。?br />

  A．該相關(guān)性表現(xiàn)為視覺冗余

  B．該相關(guān)性表現(xiàn)為結(jié)構(gòu)冗余

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

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

  解析

• 3．王林平時關(guān)注手機電池的正確使用，有關(guān)鋰電池的文章截圖如圖所示：
  
  下列說法正確的是（　?。?/h2>

  A．圖中只有1處批注，批注內(nèi)容為“鋰電池”

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

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

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

  解析

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

  A．可能是SMTP協(xié)議設(shè)置錯誤

  B．可能是POP3協(xié)議設(shè)置錯誤

  C．可能是HTTP協(xié)議設(shè)置錯誤

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

  解析

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

  A．ATM機的操作界面屬于數(shù)據(jù)庫管理系統(tǒng)

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

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

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

  解析

四、【加試題】（共2小題，滿分6分）

• 16．如果兩個質(zhì)數(shù)的差為2，則這兩個質(zhì)數(shù)稱為孿生質(zhì)數(shù)對；編寫VB程序，實現(xiàn)如下功能：單擊“顯示孿生質(zhì)數(shù)對”按鈕Command1，在列表框list1中顯示100以內(nèi)的所有孿生質(zhì)數(shù)對（運行效果如圖所示）。
  實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正。
  Dim a（1To 50）As Integer
  Private Sub Command1_Click （　?。?br />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程序，實現(xiàn)如下功能：單擊“排序數(shù)組a”按鈕Command1時，對已有數(shù)組a的數(shù)據(jù)進行升序排列，并顯示在文本框Label1中；單擊“顯示數(shù)組b”按鈕Command2時，將升序數(shù)組b的數(shù)據(jù)顯示在文本框Label2中；再單擊“合并a和b”按鈕Command3時，對數(shù)組a和數(shù)組b升序合并到字符串中，將合并后的數(shù)據(jù)在文本框Label3中顯示．（運行效果如第17題圖所示）．實現(xiàn)上述功能的VB代碼如下，請?zhí)钊牒线m代碼．
  
  Dim a（1To 6）As Integer
  Dim b（1To 6）As Integer
  Private Sub Command1_Click （　?。?對數(shù)組a中的數(shù)據(jù)進行排序
  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=1 To 6
  s=s+Str（a（i））
  Next i
  Label1．Caption=s
  End Sub
  Private Sub Command2_Click （　?。?br />b（1）=3：b（2）=8：b（3）=15：b（4）=27：b（5）=38：b（6）=49
  '此處部分代碼省略
  End Sub
  Private Sub Command3_Click （　?。?br />'將數(shù)組a和b中的數(shù)據(jù)逐個比較后添加到新的字符串s中，并將s在label3中顯示
  i=1：j=1：s=““
  Do While i＜=6

   

  j＜=6'如果兩數(shù)組都還有數(shù)據(jù)未合并
  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'只有數(shù)組a還有數(shù)據(jù)未合并
  s=s+Str（a（i））：i=i+1
  Loop
  Do While j＜=6'只有數(shù)組b還有數(shù)據(jù)未合并
  s=s+Str（b（j））：j=j+1
  Loop
  Label3．Caption=s
  End Sub.
  組卷：11引用：1難度：0.1

  解析