2011-2012学年浙江省宁波市余姚中学高一（下）期中信息技术试卷

一、单项选择题（60分）本题共30个小题，每小题2分；只有一个答案是正确的．

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

  A．If

  B．Not

  C．Int

  D．Flag
  组卷：7引用：3难度：0.9

  解析

• 2．在Visual Basic中，语句Lab.Caption=“你好“中的“Lab”是（　　）

  A．属性值

  B．对象名

  C．属性名

  D．类名
  组卷：14引用：6难度：0.7

  解析

• 3．计算两个并联电阻总电阻值的算法如下：
  ①输入两电阻R₁、R₂ 的值
  ②计算总电阻R=

  R

  1

  R

  2

  R

  1

  +

  R

  2

  
  ③输出总电阻R
  上述算法属于（　　）

  A．枚举算法

  B．解析算法

  C．排序算法

  D．查找算法
  组卷：27引用：4难度：0.9

  解析

• 4．将数学表达式

  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

  解析

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

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

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

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

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

  解析

• 6．在求解“一元二次方程实数根”的算法中，如果方程不存在实数解，也要求输出结果“无实数根”．此要求主要体现了算法特征中的（　　）

  A．有穷性

  B．有输出

  C．确定性

  D．唯一性
  组卷：18引用：5难度：0.7

  解析

• 7．在Visual Basic代码编辑窗口中，输入了“Text1．”后出现了如图所示的信息：其中的“Text”是Text1的（　　）

  A．属性名

  B．事件名

  C．对象名

  D．方法
  组卷：9引用：3难度：0.9

  解析

• 8．有如下Visual Basic自定义函数：
  Function max（a As Integer,b As Integer） As Integer
  If a＞b Then max=a  Else  max=b
  End Function
  该函数的函数名是（　　）

  A．a

  B．b

  C．max

  D．Function
  组卷：6引用：2难度：0.9

  解析

• 9．“下列问题适合使用枚举算法解决的是（　　）

  A．计算已知半径的圆面积

  B．计程车计费

  C．校园歌曲大赛的成绩排名

  D．找出1000以内的所有素数
  组卷：12引用：2难度：0.7

  解析

• 10．在Visual Basic中，若需将150位员工工号（如“B01036”）分别存储在数组n的n（1）～n（150）元素中，则下列说明语句最合适的是（　　）

  A．Dim n（1 To 150）As Single

  B．Dim n（1 To 150）As String

  C．Dim n（1 To 150）As Integer

  D．Dim n（1 To 150）As Boolean
  组卷：18引用：3难度：0.9

  解析

• 11．下列Visual Basic表达式中，只能产生[1，8]中的随机实数的是（　　）

  A．Rnd（　　）*8	B．Rnd（　　）*9
  C．Int（Rnd（　　）*8）+1	D．Int（Rnd（　　）*9）+1
  组卷：6引用：1难度：0.9

  解析

• 12．下图是Visual Basic窗体中某对象的属性窗口：从图中可以看出，该对象名是（　　）

  A．Tex

  B．TextBox

  C．True

  D．Text3
  组卷：4引用：2难度：0.9

  解析

三、程序填空（25分）本题共3个小题．

• 36．为了找出QQ在线时间最长的5名学生，李风设计了一个排序程序．程序运行界面如图所示：
  
  左边列表框List1中显示排序前数据，单击“排序”按钮Command1，在右边列表框List2中显示在线时间从高到低排名前5名的数据．程序中数组a和数组b分别存储学生的QQ昵称和对应的QQ在线时间．
  程序代码如下：
  Const n As Integer=14'n为学生数
  Dim a（1To n） As String'数组a用于存储学生的QQ昵称
  Dim b（1To n） As Integer'数组b用于存储学生的QQ在线时间
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t As String,p As Integer
  For i=1To n-1
  For j=n To i+1Step-1
  If  ①Then
  t=a（j-1）：a（j-1）=a（j）：a（j）=t
  p=b（j-1）：b（j-1）=b（j）：b（j）=p
  End If
  Next j
  Next i
  For i=1To 5
  List2．AddItem SpaceEx（a（i））+Str（b（i））+“分钟“
  Next i
  End Sub
  '以下函数用于在字符串后补插空格
  Function SpaceEx（s As String） As String
  Dim t As String,d As Integer,i As Integer
  t=s：d=Len（s）
  For i=1To 5-d
  t=t+““
  Next i
  SpaceEx=②
  End Function
  Private Sub Form_Load （　　）
  '此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略
  End Sub
  （1）解决此问题采用的算法是

   

  ．（填：选择排序/冒泡排序）
  （2）在程序①和②填入适当的语句或表达式，将程序补充完整：
  程序中①应填入

   

  ．程序中②处应填入

   

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

  解析

• 37．张强喜欢研究汽车，他编写了一个模拟选汽车牌照号码的Visual Basic程序．程序运行界面如图所示，单击“开始”按钮Command1后，随机产生6个汽车牌照号码，并按序显示在列表框List1中，单击其中的一个号码后，该号码显示在文本框Text1中．每个号码的后5位是从0-9、A-Z的36个字符中随机产生．
  程序代码如下：
  Private Sub Command1_Click （　　）
  Dim p（1To 6）As String'数组p用于存储6个车牌号码
  Dim i As Integer,j As Integer,t As Integer
  Dim c As String,s As String
  Randomize'初始化随机数种子
  List1．Clear'清除列表框List1中的内容
  '随机产生6个5位号码
  For i=1To 6
  s=““
  For j=1To 5
  t=Int（Rnd（　　）*36）'产生一个0到35的随机整数
  If t＜=9Then
  c=Chr（t+48）'将t转换为相应的字符后赋值给c
  Else
  c=Chr（t-10+65）'将t转换为对应的英文大写字母后赋值给c
  End If
  s=①
  Next j
  p（i）=s
  Next i
  '对数组中的5位车牌号码按字符串先后顺序进行排序
  For i=1To 5
  k=i
  For j=i+1To 6
  If p（k）＞p（j） Then k=j
  Next j
  If i＜＞k then s=p（i）：p（i）=p（k）：p（k）=s
  Next i
  '在6个随机号码前添加“浙A”
  For i=1To 6
  p（i）=“浙A“+p（i）
  List1．AddItem ②
  Next i
  End Sub
  '将选中的号码显示在文本框中
  Private Sub List1_Click （　　）
  Text1．Text=List1．List（List1．ListIndex）
  End Sub
  （1）对候选字符串进行排序时采用的是

   

  ．（填：冒泡排序/选择排序）
  （2）在程序①和②处，填入适当的语句或表达式，把程序补充完整：
  程序中①应填入

   

  ．程序中②处应填入

   

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

  解析