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

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

• 1．小李在設(shè)計(jì)VB程序時(shí)所使用的單選框?qū)ο蟮膶傩源翱谌鐖D所示．他想編制該單選框的單擊事件處理過(guò)程，則該事件處理過(guò)程名是（　?。?/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
  程序運(yùn)行時(shí)，能觸發(fā)該事件過(guò)程的是（　　）

  A．文本框被激活后，用戶在鍵盤(pán)上按下某個(gè)鍵

  B．列表框被激活后，用戶在鍵盤(pán)上按下某個(gè)鍵

  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
  運(yùn)行程序，單擊命令按鈕Command1后，彈出如圖所示的出錯(cuò)信息提示（　?。?/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,以下賦值語(yǔ)句正確的是（　?。?/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（　?。?br />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ù)．在程序運(yùn)行時(shí)，分別在文本框Text1、Text2中輸入兩個(gè)數(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．某對(duì)象的一個(gè)事件過(guò)程代碼如下：
  Private Sub strlink_Click（　　）
  Dim a As String,b As String
  a=“100”
  b=“200”
  Text1．Text=a+b
  End Sub
  下列說(shuō)法正確的是（　?。?/h2>

  A．該過(guò)程的過(guò)程名為“Sub”

  B．Click是對(duì)象的方法

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

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

  解析

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

  A．Caption

  B．Text

  C．Enabled

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

  解析

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

• 23．圣誕節(jié)即將來(lái)臨，某商場(chǎng)欲對(duì)倉(cāng)庫(kù)某貨號(hào)商品進(jìn)行補(bǔ)倉(cāng)以應(yīng)對(duì)即將舉辦的促銷(xiāo)活動(dòng)．6家供貨商給出的報(bào)價(jià)分別為54、48、43、60、58、55，若采用冒泡排序算法對(duì)其進(jìn)行從大到小排序，則第三遍的排序結(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．某俱樂(lè)部舉行射擊比賽，最后有十人進(jìn)入決賽，錄入員編制了如下VB程序，功能是根據(jù)成績(jī)進(jìn)行排序，程序中數(shù)組a保存所有參賽者的姓名，數(shù)組b保存此成績(jī)對(duì)應(yīng)的成績(jī)，第i位參賽者的姓名保存在a（i）中，成績(jī)保存在b（i）中．程序界面如圖1所示，左邊列表框List1中顯示原始數(shù)據(jù)（姓名和相應(yīng)的成績(jī)），單擊“排序”按鈕（Command1），排序后的結(jié)果按成績(jī)從高到低顯示在列表框List2中．
  
  設(shè)計(jì)應(yīng)用程序界面時(shí)，為添加“排序”按鈕，應(yīng)使用如圖2所示的“控件工具箱”中的

   

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

   

  屬性值設(shè)置為“排序”．
  
  解決此問(wèn)題的算法流程圖如下所示，排序部分的程序段如下：
  Dim a（1To 12）As String
  Dim b（1To 12）As Single
  Private Sub Command1_Click（　?。〥im 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（　?。?此過(guò)程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行初始賦值，代碼略
  End Sub
  （2）解決此問(wèn)題的算法是

   

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

   

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

   

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

   

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

  解析