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

一、选题题（算法）

• 1．将数学表达式

  1

  2

  sinxcosx（x的单位：弧度）写成Visual Basic表达式，正确的是（　　）

  A．SinxCosx/2	B．Sinx*Cosx/2
  C．Sin（x）Cos（x）/2	D．Sin（x）*Cos（x）/2
  组卷：7引用：2难度：0.9

  解析

• 2．在Visual Basic中，下列能作为变量名的是（　　）

  A．x+1

  B．x_1

  C．Or

  D．If
  组卷：2引用：2难度：0.9

  解析

• 3．在Visual Basic中，用变量存储560位学生的身高数据（如：1.76），下列最合适的变量说明是（　　）

  A．将560个变量说明为整数型

  B．将560个变量说明为单精度实数型

  C．将一个元素个数为560的一维数组说明为整数型

  D．将一个元素个数为560的一维数组说明为单精度实数型
  组卷：8引用：3难度：0.9

  解析

二、填空部分

• 10．角谷猜想。对任意一个大于1的正整数n,进行如下运算：若n是奇数时，n的值替换为3n+1，若n是偶数时，n的值替换为n/2；重复以上运算，n最终变为1．
  下面程序用于验证角谷猜想，程序运行界面如图1所示。在文本框Text1中输入一个正整数，单击“验证”按钮Command1，在列表框List1中输出每一步的运算过程。
  解决此问题的算法流程图如图2所示：
  程序代码如下：
  Private Sub Command1_Click （　　）
  Dim n As Single,i As Integer
  n=Val（Text1．Text）
  List1．Clear'清除列表框List1中的内容
  If Int（n）＜＞n Or n＜=1Then
  List1．AddItem“请输入大于1的正整数！“
  Else
  i=0
  Do While

   

  
  If n Mod 2=0Then
  n=

   

  
  Else
  n=n*3+1
  End If
  i=i+1
  List1．AddItem Str（i）+““+Str（n）
  Loop
  End If
  End Sub
  （1）解决此问题的算法是

   

  。（填：解析算法/对分查找）
  （2）在程序①和②横线处，填入适当的语句或表达式，把程序补充完整：
  程序中①横线处应填入

   

  。
  程序中②横线处应填入

   

  。
  组卷：0引用：1难度：0.1

  解析

三、操作题

• 11．打开考生文件夹下“VB”文件夹中的“test.jye.ai”，该VB程序的功能是：单击“开始”按钮Command1，小熊开始“滑冰”；单击“停止”按钮Command2，“滑冰”动作停止；单击“结束”按钮Command3，结束并退出程序。程序运行界面如图所示：
  完成以下操作：
  （1）将命令按钮Command3的Caption属性值设置为“结束”；
  （2）为“停止”按钮Command2添加Click事件过程，并将“VB”文件夹下“code.jye.ai”文件中的所有代码复制到该事件过程中。调试程序正确，并保存窗体文件test。frm和工程文件test。vbp。
  组卷：0引用：1难度：0.6

  解析