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

一、选题题（算法）

• 1．计算圆锥体体积的算法如下：
  ①输入底面半径r、高h
  ②pi=3.1416
  ③计算底面积s=pi•r²
  ④计算体积v=s•h/3
  ⑤输出体积v
  上述算法属于（　　）

  A．枚举算法

  B．解析算法

  C．排序算法

  D．查找算法
  组卷：16引用：2难度：0.9

  解析

• 2．下列Visual Basic表达式的值等于127的是（　　）

  A．Val（“123“）+4	B．Len（“123“）+4
  C．Sqr（123）+4	D．Str（“123“）+“4“
  组卷：8引用：4难度：0.9

  解析

• 3．在Visual Basic中，用变量存储120位员工工号 （如“A01036”），下列最合适的变量说明是（　　）

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

  B．将120个变量说明为字符型

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

  D．将一个元素个数为120的一维数组说明为字符串型
  组卷：6引用：1难度：0.5

  解析

二、填空部分

• 10．小黄编制了一个Visual Basic程序，能根据输入的城市名查找并显示该城市的日照时间。程序运行界面如图所示，左边列表框List1中显示各城市的日照时间和相应的城市名，在文本框Text1中输入查找的城市名，单击“查找”按钮Command1，若找到，则在文本框Text2中显示该城市的日照时间。程序中数组a和数组b分别存储城市名和对应的日照时间。
  程序代码如下：
  Const n As Integer=10'n为城市数
  Dim a（1To n） As String'数组a存储城市名
  Dim b（1To n） As Single'数组b存储日照时间
  Private Sub Command1_Click （　　）
  Dim i As Integer,s As String's用于存储输入的城市名称
  Dim f As Boolean'f用于表示是否找到，当f=True时，表示未找到
  s=Text1．Text
  f=True
  i=1
  Do While i＜=n And f
  If

   

   Then
  Text2．Text=Str（b（i））
  f=False
  End If
  

   

  
  Loop
  If f Then
  Text2．Text=“没有该城市数据“
  End If
  End Sub
  Private Sub Form_Load （　　）
  '此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略
  End Sub
  （1）解决此问题的算法是

   

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

   

  。
  程序中②横线处应填入

   

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

  解析

三、操作题

• 11．打开考生文件夹下“VB”文件夹中的“test.jye.ai”，该VB程序的功能是：在列表框List1中显示10位同学的身高，单击“计算”按钮Command1，计算平均身高，并显示在文本框Text1中。程序运行界面如图所示：
  完成以下操作：
  （1）将Label2标签的Caption属性值设置为“平均身高”。
  （2）运行程序，发现统计出的平均身高值没有显示在Text1中，修改程序中的一处代码修正此问题。调试程序正确，并保存窗体文件test。frm与工程文件test。vbp。
  组卷：1引用：1难度：0.6

  解析