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

  解析