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

一、選擇題（每題3分）

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

  A．有窮性

  B．有輸出

  C．確定性

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

  解析

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

  A．循環(huán)模式

  B．重復(fù)模式

  C．選擇模式

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

  解析

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

  A．Integer

  B．Long

  C．Single

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

  解析

• 4．在Visual Basic中，要定義一個(gè)一維數(shù)組a,用于存儲15名鉛球運(yùn)動員的成績數(shù)據(jù)（以米為單位，精確到0.01米），則正確的數(shù)組定義語句是（　?。?/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的數(shù)據(jù)類型應(yīng)定義為（　?。?/h2>

  A．String

  B．Long

  C．Boolean

  D．Integer
  組卷：9引用：1難度：0.9

  解析

• 6．下列運(yùn)算結(jié)果中，值為3的是（　?。?/h2>

  A．5/3

  B．5\3

  C．3 mod 5

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

  解析

• 7．產(chǎn)生[1，40]范圍內(nèi)某一隨機(jī)整數(shù)的表達(dá)式是（　　）

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

  解析

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

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

  解析

• 9．在Visual Basic中，語句abc.Text=“hello”中的“Text”是（　?。?/h2>

  A．對象名

  B．方法名

  C．屬性值

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

  解析

二、填空題，每空3分

• 28．以下Visual Basic程序的功能是：計(jì)算表達(dá)式1×3+2×3+3×3+…100×3的值，并在文本框abc中輸出計(jì)算結(jié)果．
  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）為了實(shí)現(xiàn)上述表達(dá)式的計(jì)算，①處橫線處應(yīng)填入

   

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

   

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

  解析

• 29．如圖為冒泡排序的案例：lstUnsorted,lstSorted為左右兩個(gè)列表框．
  
  Option Explicit
  Const MAXSIZE=1000
  Dim d（MAXSIZE+1）As Integer,n As Integer
  Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer
  n=Val（txtSize.Text）
  If n＜=0Or n＞MAXSIZE Then
  txtSize=“數(shù)據(jù)個(gè)數(shù)必須大于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
  問：為了實(shí)現(xiàn)上述冒泡算法的實(shí)現(xiàn)，橫線處應(yīng)填入 ①

   

  ． ②

   

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

  解析