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

  解析