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

一、非選擇題

• 1．有如下Visual Basic程序段：
  a=“1100101“
  b=Mid（a,2，4）+“101“
  該程序段運(yùn)行后，變量b的值為

   

  ．
  組卷：8引用：2難度：0.5

  解析

一、非選擇題

• 3．有如下Visual Basic程序段：
  
  該程序段運(yùn)行后，變量 x 的值為（　?。?/h2>

  A．14

  B．20

  C．26

  D．32
  組卷：0引用：2難度：0.5

  解析

• 4．普源為晚上的班級聯(lián)歡會設(shè)計(jì)了一個(gè)抽獎程序，將所有同學(xué)的編號和對應(yīng)的姓名分別保存在數(shù)組a（全班共50個(gè)同學(xué)，編號為1到50）和數(shù)組b中，程序會隨機(jī)產(chǎn)生一個(gè)1到50的正整數(shù)（同時(shí)包括1和50），作為中獎編號．
  程序界面如圖所示，左邊列表框List1中顯示同學(xué)的編號和姓名，單擊“抽獎“按鈕（Command1），在標(biāo)簽Label3中顯示抽中的編號，同時(shí)在標(biāo)簽Label4中顯示“恭喜***同學(xué)“，其中具體同學(xué)的姓名從數(shù)組b中獲?。?br />解決此問題的程序段如下：
  Dim a（1To 50）As Integer
  Dim b（1To 50）As String
  Function search（m As Integer） As Integer
  search=0
  For i=1To 50
  If m=a（i） Then
  search=a（i）
  End If
  Next i
  End Function
  Private Sub Command1_Click （　　）
  Dim c As Integer,t as integer
  Randomize
  ①

   

  
  Label3．Caption=Str（c）
  t=search（c）
  If t＜＞0Then
  Label4．Caption=“恭喜“+②

   

  +“同學(xué)“
  End If
  End Sub
  Private Sub Form_Load （　?。?br />'此過程用于對數(shù)組a和數(shù)組b進(jìn)行初始賦值，代碼略
  End Sub
  （1）函數(shù)search中所用的算法是

   

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

   

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

   

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

  解析