2012年浙江省普通高等学校招生高考信息技术试卷（选考）（A卷）（9月份）

一、选择题：本大题共5小题，每小题3分，共15分．在每小题给出的四个选项中，只有一个是符合题目要求的．

• 1．下列VB表达式的值等于3的是（　　）

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

  解析

• 2．求[0，100]之间所有偶数之和s的算法流程图如图所示。为了实现此算法，图中判断框①和处理框②处可填入的是（　　）

  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后，标签Label1中显示的内容是 （1），文本框Text2中显示的内容是 （2）。
  Private Sub Command1_-Click （　　）
  Const x=”转换成八进制数为”
  Dim y As Integer′用于存储输入的十进制自然数
  Dim s As String′用于存储转换后的结果
  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．为了安排寝室，将学生按性别分类，小陈设计了一个VB程序，运行该程序，单机“数据导入”按钮Command1后，左边列表框List1中显示40位学生的编号和性别；然后单机“数据处理”按钮Command2，中间列表框List2中显示所有女生的信息，右边列表框List3中显示所有男生的信息，并在相应的列表框下方显示人数．运行结果如图所示．
  
  实现上述功能的VB程序如下，加框处代码有错，请改正．
  Dim a（1To 40）As String'数组a用于存储学生编号
  Dim b（1To 40）As String'数组b用于存储学生性别
  Private Sub Form_Load （　　）
  '将学生的编号和性别分别存放在数组a和数组b中
  '代码略
  …
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer
  List1．Clear
  List2．Clear
  List3．Clear
  '在列表框List1中显示40位学生的编号和性别
  For i=1To 40
  Text1
  AddItem a（i）+““+b（i）'（1）
  Next i
  End Sub
  Private Sub Command2_Click （　　）
  Dim n As Integer'用于存储女生人数
  Dim m As Integer'用于存储男生人数
  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=“女生人数：“+Str（n）
  Label2．Caption=“男生人数：“+Str（m）
  End Sub.
  组卷：1引用：1难度：0.3

  解析