2015-2016学年浙江省乐清市芙蓉中学高二（下）期末信息技术试卷

一、选择题（每题3分）

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

  A．有穷性

  B．有输出

  C．确定性

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

  解析

• 2．某超市在晚上19：30-20：30期间，对于在货架上已超过2天的带叶蔬菜，收银机自动将价格下降50%．用来描述某种蔬菜是否降价的处理过程，合适的算法流程是（　　）

  A．循环模式

  B．重复模式

  C．选择模式

  D．顺序模式
  组卷：3引用：1难度：0.9

  解析

• 3．在Visual Basic程序中要用到存储范围为-40000～40000的某一整数变量，则该变量的类型应该定义为（　　）

  A．Integer

  B．Long

  C．Single

  D．Boolean
  组卷：6引用：1难度：0.9

  解析

• 4．在Visual Basic中，要定义一个一维数组a,用于存储15名铅球运动员的成绩数据（以米为单位，精确到0.01米），则正确的数组定义语句是（　　）

  A．Dim a（1，15）As Integer

  B．Dim a（1，15）As Single

  C．Dim a（1 To 15）As Single

  D．Dim a（1 To 15）As Integer
  组卷：9引用：1难度：0.9

  解析

• 5．在Visual Basic中，用变量y存储“ABC”，变量y的数据类型应定义为（　　）

  A．String

  B．Long

  C．Boolean

  D．Integer
  组卷：9引用：1难度：0.9

  解析

• 6．下列运算结果中，值为3的是（　　）

  A．5/3

  B．5\3

  C．3 mod 5

  D．5 mod 3
  组卷：15引用：1难度：0.7

  解析

• 7．产生[1，40]范围内某一随机整数的表达式是（　　）

  A．Rnd*40	B．Int（Rnd*40）
  C．Int（Rnd*40）+1	D．Int（Rnd*39）+1
  组卷：5引用：5难度：0.7

  解析

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

  A．Mid（“123456”，5，3）	B．Len（“55”）+1
  C．Sqr（56）	D．Abs（-55）+1
  组卷：8引用：5难度：0.5

  解析

• 9．在Visual Basic中，语句abc.Text=“hello”中的“Text”是（　　）

  A．对象名

  B．方法名

  C．属性值

  D．属性名
  组卷：5引用：1难度：0.7

  解析

二、填空题，每空3分

• 28．以下Visual Basic程序的功能是：计算表达式1×3+2×3+3×3+…100×3的值，并在文本框abc中输出计算结果．
  Private Sub Command1_Click （　　）
  Dim i As Integer,s As Integer
  s=0
  i=1
  Do While i＜=100
  s=s+i*3
  i=i+1
  Loop
  ①_______=Str（s）
  End Sub
  问：（1）为了实现上述表达式的计算，①处横线处应填入

   

  ．
  （2）退出循环时，变量i的值是

   

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

  解析

• 29．如图为冒泡排序的案例：lstUnsorted,lstSorted为左右两个列表框．
  
  Option Explicit
  Const MAXSIZE=1000
  Dim d（MAXSIZE+1）As Integer,n As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer
  n=Val（txtSize.Text）
  If n＜=0Or n＞MAXSIZE Then
  txtSize=“数据个数必须大于0！“
  Exit Sub
  End If
  Randomize
  lstUnsorted.Clear
  For i=1To n
  j=Int（32768*Rnd）
  lstUnsorted.AddItem Str$（j）
  d（i）=j
  Next
  Command2．Enabled=True
  End Sub
  Private Sub Command2_Click （　　）'冒泡
  Dim i,j,TEMP，NextElement
  lstSorted.Clear
  For i=1to n-1
  For ①Step-1
  If d（j）＜d（j-1）Then
  TEMP=d（j）
  ②
  d（j-1）=TEMP
  End If
  Next
  Next
  For i=1To n
  lstSorted.AddItem d（i）
  Next
  End Sub
  问：为了实现上述冒泡算法的实现，横线处应填入 ①

   

  ． ②

   

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

  解析