2016-2017學(xué)年浙江省臺州市三門縣亭旁高級中學(xué)高一（下）第一次月考信息技術(shù)試卷

一、選擇題（本大題共20小題，每小題3分，共60分．每小題均為單選題，不選、多選、錯選均不得分）

• 1．小李在設(shè)計VB程序時所使用的單選框?qū)ο蟮膶傩源翱谌鐖D所示．他想編制該單選框的單擊事件處理過程，則該事件處理過程名是（　?。?/h2>

  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
  程序運行時，能觸發(fā)該事件過程的是（　?。?/h2>

  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后，彈出如圖所示的出錯信息提示（　?。?/h2>

  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自定義函數(shù)fun（a As Single,b As Single） As Integer,以下賦值語句正確的是（　?。?/h2>

  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程序的功能是：求兩數(shù)中的較大數(shù)．在程序運行時，分別在文本框Text1、Text2中輸入兩個數(shù)，單擊“比較”按鈕Command1，則在標(biāo)簽Label1中輸出較大數(shù)．
  Function big（x,y）As Single
  If  x＞y Then
  big=x
  Else
  big=y
  End If
  End Function
  Private Sub Command1_Click（　?。?br />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（　?。?/label>
  組卷：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
  下列說法正確的是（　?。?/h2>

  A．該過程的過程名為“Sub”

  B．Click是對象的方法

  C．該事件過程執(zhí)行后，在文本框Text1中顯示100200

  D．該事件過程執(zhí)行后，在文本框Text1中顯示300
  組卷：10引用：1難度：0.7

  解析

• 8．在VB中，某對象的屬性窗口如圖所示：
  
  如果要使該對象在窗體加載時不顯示，可設(shè)置下列哪個屬性（　?。?/h2>

  A．Caption

  B．Text

  C．Enabled

  D．Visible
  組卷：9引用：1難度：0.7

  解析

二、非選擇題（本大題共4小題，共40分．）

• 23．圣誕節(jié)即將來臨，某商場欲對倉庫某貨號商品進行補倉以應(yīng)對即將舉辦的促銷活動．6家供貨商給出的報價分別為54、48、43、60、58、55，若采用冒泡排序算法對其進行從大到小排序，則第三遍的排序結(jié)果是

   

  ．
  

  原始數(shù)據(jù)	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程序，功能是根據(jù)成績進行排序，程序中數(shù)組a保存所有參賽者的姓名，數(shù)組b保存此成績對應(yīng)的成績，第i位參賽者的姓名保存在a（i）中，成績保存在b（i）中．程序界面如圖1所示，左邊列表框List1中顯示原始數(shù)據(jù)（姓名和相應(yīng)的成績），單擊“排序”按鈕（Command1），排序后的結(jié)果按成績從高到低顯示在列表框List2中．
  
  設(shè)計應(yīng)用程序界面時，為添加“排序”按鈕，應(yīng)使用如圖2所示的“控件工具箱”中的

   

  （填寫相應(yīng)編號），并在圖3所示的“屬性”窗口中，將

   

  屬性值設(shè)置為“排序”．
  
  解決此問題的算法流程圖如下所示，排序部分的程序段如下：
  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（　?。?此過程用于對數(shù)組a和數(shù)組b進行初始賦值，代碼略
  End Sub
  （2）解決此問題的算法是

   

  ．
  （3）程序中①橫線處應(yīng)填入

   

  ．
  （4）程序中②橫線處應(yīng)填入

   

  ．
  （5）程序中③橫線處應(yīng)填入

   

  ．
  組卷：7引用：1難度：0.1

  解析