2015-2016学年浙江省温州市乐清市芙蓉中学高二（下）月考信息技术试卷（5月份）

一、单项选择题（多选不得分，每题3分，共84分）

• 1．计算机程序通常用到三种不同的控制结构，即：顺序结构、分支结构和循环结构，下列说法正确的是（　　）

  A．一个程序只能包含一种结构

  B．一个程序最多可以包含两种结构

  C．一个程序可以包含以上三种结构中的任意组合

  D．一个程序必须包含以上三种结构
  组卷：5引用：3难度：0.9

  解析

• 2．在求解某数学题时，即使该题无解，也需答出结果是“无解”，此规定体现了算法特征的（　　）

  A．能行性	B．有穷性
  C．1个或多个输出	D．确定性
  组卷：9引用：3难度：0.9

  解析

• 3．如图这流程图，判断该结构属于（　　）
  

  A．顺序结构

  B．选择结构

  C．分支结构

  D．循环结构
  组卷：3引用：1难度：0.9

  解析

• 4．有算法流程图如图所示该算法输出S值为（　　）

  A．-2

  B．3

  C．5

  D．8
  组卷：3引用：2难度：0.9

  解析

• 5．有如下Visual Basic程序段：
  a=3
  b=9
  c=a+b
  If c=12Then py=“正确“Else py=“不正确“分析该程序段，下列说法正确的是（　　）

  A．程序段的流程模式是循环模式

  B．“c=12”是赋值语句

  C．“py=“正确“”是选择语句

  D．执行语句“py=“正确“”的前提条件是“c=12”为真
  组卷：10引用：3难度：0.5

  解析

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

  A．x3

  B．End

  C．x*3

  D．|x|
  组卷：6引用：2难度：0.7

  解析

• 7．已知vb中定义了变量a、b,现在要把变量b的2倍给变量a的语句是（　　）

  A．2b=a

  B．a=2b

  C．2*b=a

  D．a=2*b
  组卷：6引用：1难度：0.9

  解析

• 8．在VB中，修改文本框Text1中的显示的字符为“欢迎光临”的语句是（　　）

  A．Text.text1=欢迎光临

  B．Text1．caption=“欢迎光临”

  C．Text.text1=“欢迎光临”

  D．Text1．text=“欢迎光临”
  组卷：5引用：1难度：0.7

  解析

• 9．在Visual Basic中进行窗体设计时，利用属性面板可以非常方便地对常用的属性进行设置．
  请观察图，并选择出正确的描述（　　）
  

  A．“Text1”是类名．“TextBox”是对象名，“Text”是属性名，“点击输入”是属性值

  B．“Text1”是对象名．“TextBox”是类名，“Text”是属性名，“点击输入”是属性值

  C．“Text1”是对象名．“TextBox”是类名，“Text”是属性值，“点击输入”是属性名

  D．“Text1”是属性名．“TextBox”是对象名，“Text”是类 名，“点击输入”是属性值
  组卷：6引用：3难度：0.5

  解析

• 10．VB中，要定义一个字符串变量a的语句为（　　）

  A．Dim a as single	B．Const a as string
  C．Dim a as string	D．Dim string as a
  组卷：7引用：1难度：0.9

  解析

二、综合题：本大题共3小题，每空2分，共16分．

• 30．下列VB程序运行时，在文本框Text1中输入“Welcome!”（不包括双引号），单击命令按钮Command1后，文本框Text2中显示的内容是

   

  
  Private Sub Command1_Click （　　）
  Dim x As Sting
  x=text1．text
  If Len（x）＞5Then
  Text2．text=Mid（x,4，4）
  Else
  Text2．text=Mid（x,1，2）
  Endif
  End Sub.
  组卷：6引用：1难度：0.3

  解析

• 31．有一张单据上有一个5位数的编号，如图1所示，其百位数和十位数处已经变得模糊不清，但是知道这个5位数是37或67的倍 数．现要设计一个算法，如图2，找出所有满足这些条件的5位数，并统计这些5位数的个数．
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,n As Integer
  For i=0To 99
  j=①

   

  '构造出一个五位数
  If ②

   

  Then
  List1．AddItem j
  n=n+1
  End If
  Text1．Text=Str（n）
  Next
  End Sub
  请在程序横线处填入合适的代码①

   

  、②

   

  
  
  组卷：5引用：1难度：0.3

  解析