2013-2014学年浙江省温州市平阳三中高一（上）期中信息技术试卷

一、单项选择题（本题有30小题，每小题2分，共60分．）

• 1．在Visual Basic中，下列不合法的变量名是（　　）

  A．MP4

  B．c4a13

  C．a_23

  D．2a1b3C
  组卷：7引用：1难度：0.9

  解析

• 2．在Visual Basic中，下列表达式的值为“True“的是（　　）

  A．13+12＞=26	B．13＞12 and 13＞14
  C．39/3＜＞13	D．13＞14 or  14＜15
  组卷：7引用：1难度：0.9

  解析

• 3．下列叙述中，不正确的是（　　）

  A．算法的每一步骤都含有一定的歧义性

  B．算法是求解某一个问题的方法和步骤

  C．算法有一个或多个的输出

  D．算法执行的步骤是有限的
  组卷：8引用：1难度：0.9

  解析

• 4．下列代码运行后在窗体上输出的结果是（　　）
  Dim a As Integer
  Dim b As Integer
  a=5
  b=8
  If a＞b then
  max=a
  else
  max=b
  End If
  Print max.

  A．8

  B．b

  C．13

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

  解析

• 5．在Visual Basic中，表达式   21Mod 5  的值是（　　）

  A．7

  B．2

  C．1

  D．0
  组卷：8引用：1难度：0.9

  解析

• 6．在VB中，表示代数式

  2

  a

  +

  4

  b

  2

  a

  +

  b

  的表达式是（　　）

  A．2*a+4*b^2/a+b	B．2*a+4*b^2/（a+b）
  C．（2*a+4*b^2）/a+b	D．（2*a+4*b^2）/（a十b）
  组卷：8引用：2难度：0.9

  解析

• 7．在Visual Basic中，下列正确的赋值语句是（　　）

  A．a=a+1

  B．2a=b

  C．a*b=b*a

  D．a+2=b-3
  组卷：7引用：1难度：0.9

  解析

• 8．在Visual Basic中，下列关于语句“Dim b1As string“说法正确的是（　　）

  A．定义b1为双精度型变量	B．定义b1为字符串型变量
  C．定义b1为布尔型变量	D．定义b1为整型变量
  组卷：6引用：1难度：0.9

  解析

• 9．计算机程序的三种基本结构分别是：顺序结构、分支结构、（　　）

  A．模块结构	B．循环结构
  C．多重循环结构	D．IF块结构
  组卷：4引用：1难度：0.9

  解析

• 10．在面向对象程序设计中，（　　）用来描述对象的特征信息．

  A．事件

  B．方法

  C．代码

  D．属性
  组卷：4引用：2难度：0.7

  解析

• 11．在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Interval属性设置为（　　）

  A．1

  B．60

  C．100

  D．1000
  组卷：4引用：2难度：0.5

  解析

• 12．下列过程中，（　　）代码，是按钮单击就运行的程序段．

  A．Form_Load	B．Command1_Click
  C．Command1_DbClick	D．Text1_KeyPress
  组卷：4引用：1难度：0.7

  解析

• 13．下列控件中“文本框”控件的是（　　）

  A．Label1

  B．Text1

  C．Command1

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

  解析

• 14．运行如下程序段可输出由“#”组成的（　　）图形．
  For  X=1To  3
  Print“########“
  Next X．

  A．矩形

  B．平行四边形

  C．三角形

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

  解析

四、程序修改正确，使程序正常运行（3小题，每空2分，共20分）

• 43．酒驾认定
  依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车．设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法．程序设计界面如图所示：
  
  Dim x As Single,d As String
  If KeyAscii=13Then
  x=Val（Text1．Text）
  If x＞=1Then
  d=“醉酒驾车!“
  ElseIf x＜0.3Then'①

   

  
  d=“酒后驾车!“
  Else
  d=“没有违法!“
  End If
  Loop'②

   

  
  Label2．Caption=Str（d）'③

   

  
  把上面的程序代码注释的有3处错误，请修改正确．
  组卷：3引用：1难度：0.1

  解析

• 44．勾股数
  寻找100以内的勾股数．大家都知道“勾三股四弦五”3^2+4^2=5^2，3，4，5就是勾股数，编写程序寻找100以内的整数勾股数．设计界面如图所示，单击“统计”按钮在List1中输出所有满足条件的勾股数．
  
  Dim sum As Integer'定义sum为一个整形变量，计数功能
  Dim i,j,k As Integer
  List1．Clear
  sum=1'①

   

  
  For  i=1To 100'假定k＞j＞i,可以避免重复寻找
  For  j=i To 100
  For  k=j To 100
  If  k*k=i*i+j*j Then
  List1．AddItem （Str（i）+Str（j）+Str（k））
  Sum=sum+2'②

   

  
  End If
  Next k
  Next j
  Next k'③

   

  
  Label1．Text=“组数：“+Str（sum）'④

   

  
  把上面的程序代码注释的有4处错误，请修改正确．
  组卷：2引用：1难度：0.1

  解析