2011年浙江省高中信息技术会考试卷（18）

一、选题题（算法）

• 1．将数学表达式

  v

  1

  2

  +

  v

  2

  2

  写成Visual Basic表达式，正确的是（　　）

  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位小数），则变量的数据类型应说明为（　　）

  A．Integer

  B．Long

  C．Single

  D．Date
  组卷：2引用：1难度：0.9

  解析

• 3．在Visual Basic中，语句List1．AddItem Str（n）中的“List1”是（　　）

  A．事件名

  B．方法名

  C．属性名

  D．对象名
  组卷：1引用：1难度：0.7

  解析

二、填空题（共3小题，每小题0分，满分0分）

• 10．李强设计了一个求一元三次方程x³+2x²-5x+2=0的近似实数根的Visual Basic程序．单击“求解”按钮Command1，程序在[-4，4]范围内求解，并将所有实数根显示在列表框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 （　　）
  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为实数解
  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'保留四位小数
  List1．AddItem s（k）+“=“+②
  End If
  Next x
  End Sub
  '以下的自定义函数，用于求f（x）的值
  Private Function f（x As Double） As Double
  f=x*x*x+2*x*x-5*x+2
  End Function
  （1）解决此问题主要采用的算法是

   

  ．（选填：递归算法/枚举算法）
  （2）在程序①和②，填入适当的语句或表达式，把程序补充完整：
  程序中①应填入

   

  ．程序中②应填入

   

  ．
  组卷：20引用：2难度：0.1

  解析

三、操作题

• 11．打开考生文件夹下“VB”文件夹中的“test.jye.ai”，该VB程序的功能是：模拟一个简单电路的工作过程。程序启动时小灯泡没有点亮，单击命令按钮“开关”Command1，改变电路状态为闭合，小灯泡变为黄色（表示点亮）；再次单击“开关”按钮，改变电路状态为断开，小灯泡又变为不亮。每次单击“开关”使电路在闭合状态和断开状态之间进行转换。程序运行界面如图所示：
  完成以下操作：
  （1）将文本框Command1的Caption属性值设置为“开关”。
  （2）打开“VB”文件夹下“code.jye.ai”文件，将文件中所有代码复制到Command1对象的Click事件处理过程中的指定位置。调试程序正确，保存窗体文件test。frm与工程文件test。vbp。
  组卷：0引用：1难度：0.9

  解析