2011年浙江省高中信息技術(shù)會考試卷（17）

一、選擇題（算法）

• 1．下列表達式中，符合 Visual Basic表達式書寫規(guī)范的是（　?。?/h2>

  A．3+|k-1|

  B．2k-1

  C．a(chǎn)?k/2

  D．k2-1
  組卷：5引用：2難度：0.9

  解析

• 2．在Visual Basic中，若需將350位學(xué)生的借閱卡號 （如“H001036”）分別存儲在數(shù)組code的code（1）～code（350）元素中，則下列說明語句最合適的是（　?。?/h2>

  A．Dim code（1 To 350）As Integer

  B．Dim code（1 To 350）As Single

  C．Dim code（1 To 350）As String

  D．Dim code（1 To 350）As Boolean
  組卷：4引用：1難度：0.9

  解析

• 3．下列Visual Basic表達式的值等于2的是（　?。?/h2>

  A．Abs（-2.1）

  B．Int（2.1）

  C．Sqr（4.2）

  D．Len（“4”）
  組卷：8引用：4難度：0.7

  解析

二、填空部分

• 10．張強編寫了一個Visual Basic程序，用于查找所有相同身高的同學(xué)編號。程序運行界面如圖所示，在列表框List1中顯示所有同學(xué)的編號和身高（按身高從低到高排列），在文本框Text1中輸入需要查找的身高，單擊“查找”按鈕Command1，在列表框List2中顯示所有此身高的同學(xué)編號。數(shù)組a和數(shù)組b分別存儲同學(xué)的編號和對應(yīng)的身高（身高已從低到高排列）。
  
  解決此問題的程序代碼如下：
  Const n As Integer=10'n為學(xué)生數(shù)
  Dim a（1To n） As String'數(shù)組a用于存儲學(xué)生的編號
  Dim b（1To n） As Integer'數(shù)組b用于存儲學(xué)生的身高
  Private Sub Command1_Click （　?。?br />'此過程用于在列表框List2中顯示給定身高的所有學(xué)生的編號，代碼略。
  End Sub
  '以下函數(shù)用于查找給定身高的學(xué)生的相關(guān)信息
  Private Function FindEx（k As Integer） As Integer
  Dim f As Boolean,i As Integer,j As Integer,m As Integer
  i=1：j=n
  f=False
  Do While （i＜=j） And Not （f）
  m=Fix（（i+j）/2）
  If k=b（m） Then
  f=①

   

  
  Else
  If k＜b（m） Then
  j=m-1
  Else
  ②

   

  
  End If
  End If
  Loop
  If f Then FindEx=m Else FindEx=0'找到返回m,否則返回0
  End Function
  Private Sub Form_Load

   

  
  '此過程用于對數(shù)組a和數(shù)組b進行賦值，并把數(shù)據(jù)顯示在列表框List1中。代碼略
  End Sub
  （1）FindEx函數(shù)主要采用的算法是

   

  。（填：順序查找/對分查找）
  （2）在程序①和②橫線處，填入適當?shù)恼Z句或表達式，把程序補充完整：
  程序中①橫線處應(yīng)填入

   

  。
  程序中②橫線處應(yīng)填入

   

  。
  組卷：0引用：1難度：0.1

  解析

三、操作題

• 11．打開考生文件夾下“VB”文件夾中的“test.jye.ai”，該VB程序的功能是：運行程序，出現(xiàn)“奔跑”畫面；單擊“加速”按鈕Command1，奔跑速度加快；單擊“停止”按鈕Command2，奔跑停止；單擊“結(jié)束”按鈕Command3，退出程序。程序運行界面如圖。
  完成以下操作：
  （1）將命令按鈕Command2的Caption屬性值設(shè)置為“停止”；
  （2）為“加速”按鈕Command1添加Click事件過程，并將“VB”文件夾下“code.jye.ai”文件中的所有代碼復(fù)制到該事件過程中。調(diào)試程序正確，并保存窗體文件test。frm和工程文件test。vbp。
  組卷：0引用：1難度：0.9

  解析