2015年浙江省杭州市高考信息技術(shù)模擬試卷（4）

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

• 1．3月8日當(dāng)天，某商家網(wǎng)上旗艦店搞促銷優(yōu)惠活動，并且可通過手機掃碼進入商家店鋪領(lǐng)取更多額度的優(yōu)惠券，此掃碼過程屬于（　?。?/h2>

  A．信息編碼

  B．信息采集

  C．信息處理

  D．信息傳輸
  組卷：4引用：1難度：0.9

  解析

• 2．用UltraEdit軟件觀察字符內(nèi)碼，結(jié)果如圖所示：
  
  由圖可知，“2015，高考加油！”所占字節(jié)數(shù)及“高”的內(nèi)碼分別是（　?。?/h2>

  A．14，B8DF

  B．15，ACB8

  C．16，B8 DF

  D．16，ACB8
  組卷：8引用：5難度：0.7

  解析

• 3．新浪網(wǎng)發(fā)起了2015年“最喜愛的央視春晚節(jié)目”調(diào)查，調(diào)查投票結(jié)果如圖所示：
  
  則該調(diào)查結(jié)果的評價方式屬于（　?。?/h2>

  A．統(tǒng)計評價	B．個人推薦
  C．專家評價	D．核心刊物評價
  組卷：4引用：1難度：0.9

  解析

• 4．某用戶使用Word軟件編輯文檔，部分界面如圖所示：
  
  下列說法正確的是（　?。?/h2>

  A．共有3處批注

  B．有2個用戶添加了批注

  C．用戶微軟用戶1添加批注的對象是“來源‘浙江在線’”

  D．用戶微軟用戶2添加批注的內(nèi)容為“不限選考科目占54%”
  組卷：4引用：2難度：0.9

  解析

• 5．實現(xiàn)計算器上x^y運算處理的算法部分流程圖如圖所示：
  
  下列說法正確的是（　　）

  A．框圖①中該填入的是f←x*j

  B．框圖①中該填入的是f←f*j

  C．j←j+1被執(zhí)行了x次

  D．j←j+1被執(zhí)行了y次
  組卷：4引用：4難度：0.9

  解析

• 6．校訊通中某班學(xué)生信息用Access打開“學(xué)生數(shù)據(jù)”數(shù)據(jù)表后如圖所示，下列描述中正確的是（　?。?br />

  A．“家長號碼”字段的類型應(yīng)改為數(shù)值型

  B．該數(shù)據(jù)表共有52條記錄，至少6個字段

  C．在如圖狀態(tài)添加一條記錄后，當(dāng)前記錄號為2

  D．刪除“班級名稱”字段后，記錄數(shù)也會減少一條
  組卷：6引用：4難度：0.9

  解析

• 7．李明同學(xué)發(fā)現(xiàn)他的QQ農(nóng)場內(nèi)有很多蚊子，于是他拿起“蚊子拍”工具去“拍”蚊子，蚊子馬上消失，同時人物經(jīng)驗值立即增加了2點，這主要體現(xiàn)多媒體技術(shù)的（　?。?/h2>

  A．集成性

  B．交互性

  C．實時性

  D．共享性
  組卷：6引用：1難度：0.7

  解析

二、綜合題（本大題有3題，第5題2分，第6題6分，第7題6分，共14分）

• 20．素數(shù)：只能被1和它本身整除的自然數(shù)．要求編寫VB程序找出任意兩個整數(shù)之間中所有的素數(shù)及個數(shù)，程序運行界面如圖所示．
  
  請根據(jù)算法將下列程序補充完整．
  Function prime（a As Integer） As Boolean
  Dim j As Integer
  prime=True
  j=2
  Do While prime And j＜=a\2
  If a Mod j=0Then
  prime=False
  Exit Do
  End If
  

   

  
  Loop
  End Function
  Private Sub Command1_Click （　?。?br />Dim i As Integer,a As Integer,b As Integer
  Dim count As Integer
  a=Val（Text1．Text）
  b=Val（Text2．Text）
  For i=a To b
  If

   

  =True Then
  List1．AddItem Str（i）
  count=count+1
  End If
  Next i
  Label1．Caption=“素數(shù)共有“+Str（count）+“個!“
  End Sub.
  組卷：7引用：1難度：0.1

  解析

• 21．某商場元月舉行VIP客戶積分換購活動，VIP客戶根據(jù)卡內(nèi)積分多少可換取不同額度的代金券．假設(shè)VIP客戶共有n名，VIP卡內(nèi)積分存放在數(shù)據(jù)庫“customer.jye.ai”的Integral表中，換購活動的VB程序代碼如下，程序運行時界面如第7題圖所示．工作人員在文本框Text1中輸入VIP卡號后，單擊“換購”按鈕Command1，在文本框Text2中輸出VIP客戶的積分數(shù)，在標簽Label3中顯示可以換購的代金券額度，積分清零．按此要求編寫程序如下，但加框處代碼有錯，請改正．
  
  Dim ID As String'用于存放客戶卡號
  Dim total  As Long'用于存放積分數(shù)
  Dim sc As Long'VIP客戶人數(shù)
  Dim jf As Long'積分數(shù)
  Private Sub Command1_Click （　?。?br />Dim k As String'客戶卡號
  Dim q As Long'代金券額度
  Dim i As Long
  k=Text1．Text
  For i=1To sc’順序查找
  If ID（i）=k Then
  jf=total（i）
  cash（jf）=q’①
  Exit For
  End If
  Text2．Text=Str（jf）
  Label3．Caption=“您可換購的代金券總額為：”+Str（q）+“元”
  Next i
  End If
  End Sub
  'cash函數(shù)用于計算VIP客戶可換購的代金券額度
  Function cash（jf As Long） As Long
  If jf＞=2000And jf＜=20000Then
  Cash=jf\2000*10
  ElseIf jf＞20000And jf＜=50000Then
  Cash=jf\2000*11
  ElseIf jf＞50000And jf＜=100000Then
  Cash=jf\2000*12
  ElseIf jf＞100000And jf＜=150000Then
  Cash=jf\2000*13
  Else jf＞150000Then’②
  Cash=jf\2000*14
  End If
  End Function
  Private Sub Form_Load （　　）
  Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
  Dim intSQL As Long
  conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\customer.jye.ai“
  conn.Open
  intSQL=“SELECT score  FROM Integral“
  Set rs.ActiveConnection=conn
  rs.CursorType=adOpenStatic
  rs.Open intSQL
  sc=0
  Do While Not rs.EOF
  sc=sc+1
  total（sc）=rs.Fields（“score“）
  rs.MoveNext
  Loop
  rs.Close
  conn.Close
  Set rs=Nothing
  Set conn=Nothing
  End Sub
  （1）加框處①有錯，應(yīng)改為

   

  ．
  （2）加框處②有錯，應(yīng)改為

   

  ．
  組卷：6引用：1難度：0.1

  解析