2012年浙江省温州市高考信息技术一模试卷.（选考A）

一、选择题（共13小题，每小题2分，满分26分）

• 1．下列作为VB变量名正确的是（　　）

  A．5B

  B．B*G

  C．for

  D．BG5
  组卷：5引用：1难度：0.9

  解析

• 2．将扇形面积公式s=

  a

  360

  πr²写成VB表达式，正确的是（　　）

  A．S= a 360 * π * r * 2	B．S= a 360 * 3 . 14 * r * 2
  C．S= a 360 * π * r 2	D．S= a 360 * （ 3 . 14 * r 2 ）
  组卷：5引用：1难度：0.9

  解析

• 3．已知a=1，b=2，下列VB表达式的值为False的是（　　）

  A．（a＜0）and（b＜5）	B．（a＜3）and（b＞1）
  C．（a=1）or（b＜1）	D．（a＜1）or（b=2）
  组卷：4引用：1难度：0.9

  解析

• 4．使用表达式产生幸运号为[1，50]范围中的整数，下列表达式正确的是（　　）

  A．int（rnd*50）	B．fix（rnd*51）
  C．int（rnd*50）+1	D．fix（rnd*49）+1
  组卷：7引用：1难度：0.7

  解析

• 5．在VB中与程序段z=a：a=b：b=z 功能相同的序号段是（　　）

  A．z=b b=z z=b	B．a=a-b b=b-a a=a+b
  C．a=a+b a=b a=a-b	D．b=z a=b z=a
  组卷：8引用：1难度：0.7

  解析

• 6．有如下VB程序：
  Private Sub Commandl Click（　　）
   Dim x As Double
   x=“Computer!“
   jye.ail.jye.ai=“Hello“+“”+x
   End Sub
  这个程序运行的时候出现“类型不匹配”的错误，应把横线处改为（　　）

  A．Integer

  B．String

  C．Boolean

  D．Long
  组卷：4引用：1难度：0.5

  解析

二、综合题（共5小题，满分19分）

• 17．下列VB程序运行时，将x插入已经按首字母从小到大排序的数组a（1  to 5）中，阅读下列程序，请在横线处填入合适代码。
  Private Sub Commandl_-Click（　　）
  本程序将x插入已经按首字母从小到大排序的数组a（1 to 5）中。
  Dim a（1 to 5）As String,k As Integer,I As Integer,s As Integer
  x=“China“
  a（1）=“Amerincan“；a（2）=“England“；a（3）=“Geermane“；a（4）=“Japan“；a（5）=““
  For k=1 to 4
     If x＞a（k） Then
       s=s+1
       if  k=4 then
       a（k+1）=x
       endif
    Else
     s=s+1
     For 1=5 to k+1 Step

   

  
     a（I）=a（I-1）
     Next 1
     a（k）=

   

  
    End If
  Next k
  Textl.Text=“比较的次数是”+str（s）
  Text2．text=a（k）
  End Sub。
  组卷：0引用：1难度：0.3

  解析

• 18．中国福利彩票双色球中奖号码由（1～33）红球中的6个号码和1个蓝球号码组成，如果使用程序来产生6个红球号码，小张用VB设计了该程序，界面如图所示，请在程序的横线处将代码补充完整．
  Dim d（1 to 6）As Integer,i As Integer′在通用里定义全局变量，
  Private Sub Commandl_- Click（　　）
  ′产生6个[1，33]之间的不同整数存放于d数组中，在listl中输出
  Dim k As Integer
  Randomize
  Listl.Clear
  d（1）=Int（Rnd（　　）*33+1）
  Listl.Addltem d（1）
  For i=2 to 6′产生不重复的红球号码
  k=1
  Do While k=1
  d（i）=Int（Rnd（　　）*33+1）
      For j=I to i-1
        Uf d（i）=d（j） Then
        Exit For
        End If
      Next j
    If j=i Then k=0
  Loop
  

   

  '将产生的红球号码添加到Listl中
  Next i
  End Sub
  Private Sub Command2_-Click（　　）'“初始化”清空两列表框
  Listl.Clear
  List2．Clear
  End Sub
  Provate Sub Command3_-Click（　　）'“排序号码”实现将Listl中的内容进行排序输出
  Dim j As Integer,t As Integer,k As Integer
  List2．Clear
  For i=1 to 5
   For j=i+1 to 6
     If

   

  Then'判断是否需要进行交换数据
       t=d（j）：d（j）=d（i）：d（i）=t
     End If
    Next j
  Next i
  '以下是将排序后的数依次在List2中输出
  For k=1 to 6
  List2．Addltem Str（d（k））
  Next k
  End Sub.
  组卷：2引用：1难度：0.1

  解析