2012年浙江省普通高等學(xué)校招生高考信息技術(shù)試卷（選考）（A卷）（9月份）

一、選擇題：本大題共5小題，每小題3分，共15分．在每小題給出的四個選項中，只有一個是符合題目要求的．

• 1．下列VB表達(dá)式的值等于3的是（　　）

  A．Sqr（2）+1	B．Abs（-1）-2
  C．Asc（“1”）+2	D．Len（“-2”）+1
  組卷：15引用：10難度：0.9

  解析

• 2．求[0，100]之間所有偶數(shù)之和s的算法流程圖如圖所示。為了實現(xiàn)此算法，圖中判斷框①和處理框②處可填入的是（　?。?/h2>

  A．①x≤100？②x←x+2	B．①x≤100？②x←x+1
  C．①x≥100？②x←x+2	D．①x≥100？②x←x+1
  組卷：3引用：3難度：0.7

  解析

二、綜合題：本大題共2小題，其中第6小題4分，第7小題6分，共10分．

• 6．運行下列VB程序，在文本框Text1中輸入15，界面如圖所示。
  
  單擊“開始”按鈕Command1后，標(biāo)簽Label1中顯示的內(nèi)容是 （1），文本框Text2中顯示的內(nèi)容是 （2）。
  Private Sub Command1_-Click （　　）
  Const x=”轉(zhuǎn)換成八進(jìn)制數(shù)為”
  Dim y As Integer′用于存儲輸入的十進(jìn)制自然數(shù)
  Dim s As String′用于存儲轉(zhuǎn)換后的結(jié)果
  Dim r As Integer
  y=Val（Text1．Text）
  s=””
  Do While y＜＞0′采用除八取余法
  r=y Mod 8
  s=Str（r）+s
  y=y\8
  Loop
  Label1．Caption=Text1．Text+x
  Text2．Text=s
  End Sub。
  組卷：7引用：4難度：0.3

  解析

• 7．為了安排寢室，將學(xué)生按性別分類，小陳設(shè)計了一個VB程序，運行該程序，單機(jī)“數(shù)據(jù)導(dǎo)入”按鈕Command1后，左邊列表框List1中顯示40位學(xué)生的編號和性別；然后單機(jī)“數(shù)據(jù)處理”按鈕Command2，中間列表框List2中顯示所有女生的信息，右邊列表框List3中顯示所有男生的信息，并在相應(yīng)的列表框下方顯示人數(shù)．運行結(jié)果如圖所示．
  
  實現(xiàn)上述功能的VB程序如下，加框處代碼有錯，請改正．
  Dim a（1To 40）As String'數(shù)組a用于存儲學(xué)生編號
  Dim b（1To 40）As String'數(shù)組b用于存儲學(xué)生性別
  Private Sub Form_Load （　?。?br />'將學(xué)生的編號和性別分別存放在數(shù)組a和數(shù)組b中
  '代碼略
  …
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer
  List1．Clear
  List2．Clear
  List3．Clear
  '在列表框List1中顯示40位學(xué)生的編號和性別
  For i=1To 40
  Text1
  AddItem a（i）+““+b（i）'（1）
  Next i
  End Sub
  Private Sub Command2_Click （　?。?br />Dim n As Integer'用于存儲女生人數(shù)
  Dim m As Integer'用于存儲男生人數(shù)
  Dim i As Integer
  List2．Clear
  List3．Clear
  n=0：m=0
  For i=1To 40
  If Then'（2）
  List2．AddItem a（i）'在列表框List2中顯示女生信息
  n=n+1
  Else
  List3．AddItem a（i）'在列表框List3中顯示男生信息
  '（3）
  End If
  Next i
  Label1．Caption=“女生人數(shù)：“+Str（n）
  Label2．Caption=“男生人數(shù)：“+Str（m）
  End Sub.
  組卷：1引用：1難度：0.3

  解析