2016-2017学年浙江省台州市三门县亭旁高级中学高一（下）第一次月考信息技术试卷

一、选择题（本大题共20小题，每小题3分，共60分．每小题均为单选题，不选、多选、错选均不得分）

• 1．小李在设计VB程序时所使用的单选框对象的属性窗口如图所示．他想编制该单选框的单击事件处理过程，则该事件处理过程名是（　　）

  A．OptionButton_Click	B．Option1_Click
  C．单选_Click	D．单选框_Click
  组卷：8引用：1难度：0.9

  解析

• 2．某VB程序如下：
  Private Sub Text1_KeyPress（KeyAscii As Integer）
  Dim x As Integer
  If  KeyAscii=13Then
  x=Val（Text1．Text）
  List1．AddItem x
  End If
  End Sub
  程序运行时，能触发该事件过程的是（　　）

  A．文本框被激活后，用户在键盘上按下某个键

  B．列表框被激活后，用户在键盘上按下某个键

  C．单击文本框Text1

  D．单击List1
  组卷：8引用：1难度：0.9

  解析

• 3．某VB程序段如下：
  Private Sub Command1_Click
  Dim x As Integer,i As Integer
  For i=3To 10Step 2
  x=i*（i-1）
  List1AddItem Str（x）
  Next i
  End Sub
  运行程序，单击命令按钮Command1后，弹出如图所示的出错信息提示（　　）

  A．For i=3 To 10 Step 2	B．x=i*（i-1）
  C．List1AddItem Str（x）	D．Next i
  组卷：8引用：1难度：0.9

  解析

• 4．已知VB自定义函数fun（a As Single,b As Single） As Integer,以下赋值语句正确的是（　　）

  A．x=fun（3，5）+“abc”	B．x=fun（“3”，“5”）+3
  C．x=fun（3，“a”）+“123”	D．x=fun（3，5）+6
  组卷：8引用：1难度：0.9

  解析

• 5．有如下VB程序段：
  Private Sub Command1_Click（　　）
  Dim a As Integer,b As Integer
  a=9
  b=13
  Print fun（a,b）； a； b
  End Sub
  Private Function fun（a As Integer,b As Integer） As Integer
  a=a Mod 5
  b=b\5
  fun=a
  End Function.

  A．9　13　2

  B．4　13　9

  C．4　4　2

  D．13　9　 2
  组卷：8引用：1难度：0.9

  解析

• 6．下列VB程序的功能是：求两数中的较大数．在程序运行时，分别在文本框Text1、Text2中输入两个数，单击“比较”按钮Command1，则在标签Label1中输出较大数．
  Function big（x,y）As Single
  If  x＞y Then
  big=x
  Else
  big=y
  End If
  End Function
  Private Sub Command1_Click（　　）
  Dim a As Single,b As Single,ans As Single
  a=Val（Text1．Text）
  b=Val（Text2．Text）
  ans=___________
  Label1．Caption=ans
  End Sub.

  A．big（Text1，Text2）	B．big（a,b）
  C．big（x,y）	D．big（　　）
  组卷：8引用：1难度：0.9

  解析

• 7．某对象的一个事件过程代码如下：
  Private Sub strlink_Click（　　）
  Dim a As String,b As String
  a=“100”
  b=“200”
  Text1．Text=a+b
  End Sub
  下列说法正确的是（　　）

  A．该过程的过程名为“Sub”

  B．Click是对象的方法

  C．该事件过程执行后，在文本框Text1中显示100200

  D．该事件过程执行后，在文本框Text1中显示300
  组卷：10引用：1难度：0.7

  解析

• 8．在VB中，某对象的属性窗口如图所示：
  
  如果要使该对象在窗体加载时不显示，可设置下列哪个属性（　　）

  A．Caption

  B．Text

  C．Enabled

  D．Visible
  组卷：9引用：1难度：0.7

  解析

二、非选择题（本大题共4小题，共40分．）

• 23．圣诞节即将来临，某商场欲对仓库某货号商品进行补仓以应对即将举办的促销活动．6家供货商给出的报价分别为54、48、43、60、58、55，若采用冒泡排序算法对其进行从大到小排序，则第三遍的排序结果是

   

  ．
  

  原始数据	48	54	43	60	55	58
  第1遍	60	48	54	43	58	55
  第2遍	60	58	48	54	43	55
  第3遍
  第4遍	60	58	55	54	48	43
  第5遍	60	58	55	54	48	43
  组卷：11引用：1难度：0.3

  解析

• 24．某俱乐部举行射击比赛，最后有十人进入决赛，录入员编制了如下VB程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的姓名，数组b保存此成绩对应的成绩，第i位参赛者的姓名保存在a（i）中，成绩保存在b（i）中．程序界面如图1所示，左边列表框List1中显示原始数据（姓名和相应的成绩），单击“排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中．
  
  设计应用程序界面时，为添加“排序”按钮，应使用如图2所示的“控件工具箱”中的

   

  （填写相应编号），并在图3所示的“属性”窗口中，将

   

  属性值设置为“排序”．
  
  解决此问题的算法流程图如下所示，排序部分的程序段如下：
  Dim a（1To 12）As String
  Dim b（1To 12）As Single
  Private Sub Command1_Click（　　）Dim i As Integer,j As Integer,k As Integer,x As Single,y As ①

   

  
  For i=1To 11
  k=i
  For j=i+1To 12
  If ②

   

   Then k=j
  Next j
  If  k＜＞i Then
  y=a（i）：a（i）=a（k）：a（k）=y
  ③

   

  
  End If
  Next i
  For i=1To 12
  List2．AddItem a（i）+””+Str（b（i））
  Next i
  End Sub
  Private Sub Form_Load（　　）'此过程用于对数组a和数组b进行初始赋值，代码略
  End Sub
  （2）解决此问题的算法是

   

  ．
  （3）程序中①横线处应填入

   

  ．
  （4）程序中②横线处应填入

   

  ．
  （5）程序中③横线处应填入

   

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

  解析