2016-2017学年浙江省台州中学高一（下）第四次统练信息技术试卷

一、选择题（本大题共10小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）

• 1．下列问题不能用算法描述的是（　　）

  A．找出所有能被3整除的自然数

  B．输入身高体重，判断体型情况

  C．找出1000个整数中的最大值与最小值

  D．将（64）10 转换为对应的二进制数
  组卷：24引用：1难度：0.9

  解析

• 2．在VB中，语句Text1．Text=“无解“中的“Text”是（　　）

  A．对象名

  B．属性名

  C．属性值

  D．方法名
  组卷：15引用：2难度：0.9

  解析

• 3．下列VB表达式中，计算结果为3的是（　　）

  A．Abs（-3.2）

  B．Len（“a_8“）

  C．Sqr（3）+1

  D．Int（2.9）
  组卷：18引用：2难度：0.9

  解析

• 4．在VB中，能够正确表示代数式

  x

  3

  +

  1

  |

  x

  |

  +

  x

  的是（　　）

  A．x^3+1/abs（x）+sqr（x）

  B．（x^3+1）/abs（x）+sqr（x）

  C．x^3+1/（abs（x）+sqr（x））

  D．（x^3+1）/（abs（x）+sqr（x））
  组卷：7引用：3难度：0.7

  解析

• 5．执行如下VB程序段
  S=0
  For i=20To 1Step-5
  S=S+1
  Next i
  Text1．text=str（s）
  文本框中显示的值是（　　）

  A．50

  B．20

  C．5

  D．4
  组卷：13引用：3难度：0.7

  解析

二、非选择题（本大题共5小题，共26分）

• 16．在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：
  （1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的

   

  属性。
  （2）实现上述功能的VB程序如下，请在横线处填入合适代码。
  Private Sub Command1_Click （　　）
  Dim n As Long,m As Integer
  Dim a（0To 9）As Integer
  n=Val（Text1．Text）
  List1．Clear
  For i=0To 9
  a（i）=0
  Next i
  Do While n＞0
  t=n Mod 10
  a（t）=a（t）+1
  

   

  
  Loop
  m=a（0）
  For i=1To 9
  If a（i）＞m Then m=a（i）：k=i
  List1．AddItem Str（i） &“：“& Str（a（i）） &“个“
  Next
  Label2．Caption=“出现最多的数字是：“+

   

  
  End Sub
  组卷：2引用：2难度：0.6

  解析

• 17．小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。
  用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n,在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m,根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s,输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f,并在标签Label7中给出提示是否“优惠后的费用”。运行效果如第17题图所示：
  （1）自摘收费程序所用的算法是

   

  （填：解析算法/枚举算法）。
  （2）为实现上述功能，请在划线①和②处填入合适的代码。
  Dim m As Integer
  Private Sub Command1_Click （　　）
  Dim n As Integer,s As Integer
  Dim w As Single,f As Single
  n=Val（Text1．Text）'输入大人人数n
  w=Val（Text2．Text）'输入重量w
  f=20*n+10*w'计算无优惠的费用f
  s=0
  For i=1 To m'计算桔子总数
  s=s+i*i
  Next i
  If  s=

   

    Then'判断是否拿到优惠计算费用
  f=f*0.5+s*0.3'计算优惠后的费用
  Label7．Caption=“恭喜你，这是优惠后的费用！“
  Else
  Label7．Caption=“很遗憾，你没有算对哦！“
  End If
  Label4．Caption=Str（f）'输出最后的费用f
  End Sub
  Private Sub Form_Load （　　）
  Randomize
  m=

   

  '随机产生15层及以内的桔子层数不含0
  Text3．Text=Str（m）
  End Sub
  （3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用

   

  元。
  组卷：2引用：2难度：0.6

  解析