2011-2012學(xué)年浙江省紹興市諸暨市牌頭中學(xué)高三（下）月考信息技術(shù)試卷（3月份）（選考）

一、選擇題：本大題13小題，每小題2分，共26分．在每小題給出的四個選項中，只有一個是符合題目要求的．（注意：選擇題答在答題卡上，這里的第1題到13題答在答題卡第18到30題上）

• 1．李老師為了提高效率，準(zhǔn)備設(shè)計一個學(xué)生成績分析軟件，經(jīng)過了前期調(diào)查分析，他決定使用Microsoft公司的Visual Basic 6.0來制作該軟件，這一步應(yīng)該屬于用計算機(jī)解決問題的哪一個階段（　　）

  A．分析問題階段	B．設(shè)計算法階段
  C．算法實現(xiàn)階段	D．結(jié)果檢測階段
  組卷：8引用：2難度：0.9

  解析

• 2．表記錄了7個數(shù)據(jù)的冒泡排序過程，分析表中數(shù)據(jù)可以得知采用升序的方式，要經(jīng)歷多少次數(shù)據(jù)比較（　　）
  

  原始數(shù)據(jù)	3	98	8	88	5	78	28
  第1遍	3	5	98	8	88	78	28
  第2遍	3	5	8	98	88	78	28
  …	…	…	…	…	…	…	…

  A．6

  B．7

  C．21

  D．36
  組卷：7引用：2難度：0.5

  解析

• 3．下列描述算法的流程圖構(gòu)件中，如果要描述“輸出：高度h=sqr（a*b）”內(nèi)容，應(yīng)使用的流程圖構(gòu)件符號是（　　）

  A．

  B．

  C．

  D．
  組卷：4引用：3難度：0.9

  解析

• 4．下列屬于Visual Basic邏輯常量的是（　　）

  A．“BASIC“

  B．2012

  C．False

  D．3.1415926
  組卷：10引用：2難度：0.9

  解析

• 5．有如下VB程序：
  Private Sub Command1_Click（　　）
  Dim x As Double,y As Double
  x=Val（Text1．Text）
  If x＞10Then
  y=“HELLO“
  Else
  y=“BYEBYE“
  Endif
  Text2．Text=y
  End Sub
  這個程序運行的時候出現(xiàn)“類型不匹配”的錯誤，應(yīng)把橫線處改為（　?。?/h2>

  A．Integer

  B．String

  C．Boolean

  D．Long
  組卷：9引用：2難度：0.9

  解析

• 6．數(shù)學(xué)表達(dá)式x²+5|x|+3改成Visual Basic表達(dá)式是（　?。?/h2>

  A．x*x+5*Abs（x）+3	B．x*x+5Int（x）+3
  C．sqr（x）+5*Abs（x）+3	D．x^2+5*Int（x）+3
  組卷：7引用：2難度：0.9

  解析

二、綜合題：本大題5小題，其中第14題4分，第15題5分，第16題2分，第17題4分，第18題4分，共19分．

• 17．有7個人坐在一起，問第七個人多少歲？他說是第6個人年齡2倍小4歲．問第6個人歲數(shù)，他說是第5個人年齡也是2倍小4歲．問第5個人，還說是第4個人年齡2倍小4歲．問第4個人，又說是第3個人年齡2倍小4歲，以此類推．最后問第一個人，他說是5歲．請問第7個人多大？以下是小王同學(xué)編寫的解決該問題的VB，請把程序補充完整．
  Private Sub Command1_Click （　?。?br />Dim i,year As Integer
  Dim a（1To 8）As Integer
  a（1）=5
  For i=①

   

   To 7②

   

  
  List1．AddItem“第“+Str（i）+“個人的年齡為“+Str（a（i））
  Next i
  End Sub.
  組卷：10引用：3難度：0.3

  解析

• 18．小偉假期同爸爸一起去書店，他選中了七本書，書的總價為175元．小偉爸爸的錢包里有5元8張，10元10張，20元6張，還有一元硬幣20個，現(xiàn)在小偉怎么樣才能搭配出175元錢買到這七本書，其中，每種貨幣必須至少要一張（個），請問有幾種方法？
  Private Sub Command1_click （　?。?br />Dim x,y,z,m As Integer
  Dim c As Integer
  c=0
  For x=1To 20
  For y=1To 8
  For z=1To 10
  For m=1To 6
  If①

   

  Then②

   

  
  List1．AddItem“第“+Str（c）+“方法：“+Str（x）+Str（y）+Str（z）+Str（m）
  End If
  Next m
  Next z
  Next y
  Next x
  End Sub.
  組卷：0引用：2難度：0.3

  解析