2015-2016學年浙江省樂清市芙蓉中學高二（下）期末信息技術試卷

一、選擇題（每題3分）

• 1．在求解“一元二次方程實數根”的算法中，如果方程不存在實數解，也要求輸出結果“無實數根”．此要求主要體現了算法特征中的（　　）

  A．有窮性

  B．有輸出

  C．確定性

  D．唯一性
  組卷：18引用：5難度：0.7

  解析

• 2．某超市在晚上19：30-20：30期間，對于在貨架上已超過2天的帶葉蔬菜，收銀機自動將價格下降50%．用來描述某種蔬菜是否降價的處理過程，合適的算法流程是（　?。?/h2>

  A．循環(huán)模式

  B．重復模式

  C．選擇模式

  D．順序模式
  組卷：3引用：1難度：0.9

  解析

• 3．在Visual Basic程序中要用到存儲范圍為-40000～40000的某一整數變量，則該變量的類型應該定義為（　?。?/h2>

  A．Integer

  B．Long

  C．Single

  D．Boolean
  組卷：6引用：1難度：0.9

  解析

• 4．在Visual Basic中，要定義一個一維數組a,用于存儲15名鉛球運動員的成績數據（以米為單位，精確到0.01米），則正確的數組定義語句是（　?。?/h2>

  A．Dim a（1，15）As Integer

  B．Dim a（1，15）As Single

  C．Dim a（1 To 15）As Single

  D．Dim a（1 To 15）As Integer
  組卷：9引用：1難度：0.9

  解析

• 5．在Visual Basic中，用變量y存儲“ABC”，變量y的數據類型應定義為（　?。?/h2>

  A．String

  B．Long

  C．Boolean

  D．Integer
  組卷：9難度：0.9

  解析

• 6．下列運算結果中，值為3的是（　?。?/h2>

  A．5/3

  B．5\3

  C．3 mod 5

  D．5 mod 3
  組卷：15引用：1難度：0.7

  解析

• 7．產生[1，40]范圍內某一隨機整數的表達式是（　?。?/h2>

  A．Rnd*40	B．Int（Rnd*40）
  C．Int（Rnd*40）+1	D．Int（Rnd*39）+1
  組卷：5引用：5難度：0.7

  解析

• 8．下列Visual Basic表達式的值等于56的是（　?。?/h2>

  A．Mid（“123456”，5，3）	B．Len（“55”）+1
  C．Sqr（56）	D．Abs（-55）+1
  組卷：8難度：0.5

  解析

• 9．在Visual Basic中，語句abc.Text=“hello”中的“Text”是（　　）

  A．對象名

  B．方法名

  C．屬性值

  D．屬性名
  組卷：5引用：1難度：0.7

  解析

二、填空題，每空3分

• 28．以下Visual Basic程序的功能是：計算表達式1×3+2×3+3×3+…100×3的值，并在文本框abc中輸出計算結果．
  Private Sub Command1_Click （　?。?br />Dim i As Integer,s As Integer
  s=0
  i=1
  Do While i＜=100
  s=s+i*3
  i=i+1
  Loop
  ①_______=Str（s）
  End Sub
  問：（1）為了實現上述表達式的計算，①處橫線處應填入

   

  ．
  （2）退出循環(huán)時，變量i的值是

   

  ．
  組卷：41引用：1難度：0.1

  解析

• 29．如圖為冒泡排序的案例：lstUnsorted,lstSorted為左右兩個列表框．
  
  Option Explicit
  Const MAXSIZE=1000
  Dim d（MAXSIZE+1）As Integer,n As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer
  n=Val（txtSize.Text）
  If n＜=0Or n＞MAXSIZE Then
  txtSize=“數據個數必須大于0！“
  Exit Sub
  End If
  Randomize
  lstUnsorted.Clear
  For i=1To n
  j=Int（32768*Rnd）
  lstUnsorted.AddItem Str$（j）
  d（i）=j
  Next
  Command2．Enabled=True
  End Sub
  Private Sub Command2_Click （　　）'冒泡
  Dim i,j,TEMP，NextElement
  lstSorted.Clear
  For i=1to n-1
  For ①Step-1
  If d（j）＜d（j-1）Then
  TEMP=d（j）
  ②
  d（j-1）=TEMP
  End If
  Next
  Next
  For i=1To n
  lstSorted.AddItem d（i）
  Next
  End Sub
  問：為了實現上述冒泡算法的實現，橫線處應填入 ①

   

  ． ②

   

  ．
  組卷：31引用：1難度：0.1

  解析