2011年浙江省高中信息技術會考試卷（18）

一、選題題（算法）

• 1．將數(shù)學表達式

  v

  1

  2

  +

  v

  2

  2

  寫成Visual Basic表達式，正確的是（　?。?/h2>

  A．Len（v1*v1+v2*v2）	B．Abs（v1*v1+v2*v2）
  C．Sqr（v1*v1+v2*v2）	D．Str（v1*v1+v2*v2）
  組卷：6引用：2難度：0.9

  解析

• 2．用變量存儲詩朗誦比賽中選手的平均得分（保留2位小數(shù)），則變量的數(shù)據(jù)類型應說明為（　　）

  A．Integer

  B．Long

  C．Single

  D．Date
  組卷：2引用：1難度：0.9

  解析

• 3．在Visual Basic中，語句List1．AddItem Str（n）中的“List1”是（　?。?/h2>

  A．事件名

  B．方法名

  C．屬性名

  D．對象名
  組卷：1引用：1難度：0.7

  解析

二、填空題（共3小題，每小題0分，滿分0分）

• 10．李強設計了一個求一元三次方程x³+2x²-5x+2=0的近似實數(shù)根的Visual Basic程序．單擊“求解”按鈕Command1，程序在[-4，4]范圍內(nèi)求解，并將所有實數(shù)根顯示在列表框List1中．程序運行界面如圖所示：
  李強的方法是：設f（x）=x³+2x²-5x+2，從-4開始到4為止，每隔一個求解精度e取一個x值，并求出f（x）和f（x+e）的值．若f（x）×f（x+e）≤0，則表示x和x+e的中點就是方程的一個近似解．
  程序代碼如下：
  Private Sub Command1_Click （　?。?br />Const e As Double=0.00001'e為求解精度
  Dim s（1To 3）As String
  Dim x As Double
  Dim m As Double,k As Integer'm為實數(shù)解
  s（1）=“x1“：s（2）=“x2“：s（3）=“x3“
  k=0
  For x=-4To 4-e Step e
  If ①Or f（x+e）=0Then
  k=k+1
  If f（x+e）=0Then m=x+e Else m=x+e/2
  m=Fix（m*10000+0.5）/10000'保留四位小數(shù)
  List1．AddItem s（k）+“=“+②
  End If
  Next x
  End Sub
  '以下的自定義函數(shù)，用于求f（x）的值
  Private Function f（x As Double） As Double
  f=x*x*x+2*x*x-5*x+2
  End Function
  （1）解決此問題主要采用的算法是

   

  ．（選填：遞歸算法/枚舉算法）
  （2）在程序①和②，填入適當?shù)恼Z句或表達式，把程序補充完整：
  程序中①應填入

   

  ．程序中②應填入

   

  ．
  組卷：20引用：2難度：0.1

  解析

三、操作題

• 11．打開考生文件夾下“VB”文件夾中的“test.jye.ai”，該VB程序的功能是：模擬一個簡單電路的工作過程。程序啟動時小燈泡沒有點亮，單擊命令按鈕“開關”Command1，改變電路狀態(tài)為閉合，小燈泡變?yōu)辄S色（表示點亮）；再次單擊“開關”按鈕，改變電路狀態(tài)為斷開，小燈泡又變?yōu)椴涣?。每次單擊“開關”使電路在閉合狀態(tài)和斷開狀態(tài)之間進行轉換。程序運行界面如圖所示：
  完成以下操作：
  （1）將文本框Command1的Caption屬性值設置為“開關”。
  （2）打開“VB”文件夾下“code.jye.ai”文件，將文件中所有代碼復制到Command1對象的Click事件處理過程中的指定位置。調(diào)試程序正確，保存窗體文件test。frm與工程文件test。vbp。
  組卷：0引用：1難度：0.9

  解析