2017年浙江省高考仿真信息技術(shù)試卷（3）

一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）

• 1．關(guān)于算法的三種基本模式，下列說法正確的是（　　）

  A．一個(gè)算法只能包含一種基本模式

  B．一個(gè)算法必須包含三種基本模式

  C．一個(gè)算法最多可以包含其中兩種基本模式

  D．一個(gè)算法可以含有三種基本模式的任意組合
  組卷：22引用：2難度：0.9

  解析

• 2．某算法流程圖如圖所示：
  
  執(zhí)行該算法，當(dāng)s的值為0時(shí)（　　）

  A．k的值為10

  B．程序出錯(cuò)

  C．語(yǔ)句“k=k+1”共被執(zhí)行了2次

  D．輸出k的值
  組卷：5引用：6難度：0.9

  解析

• 3．枚舉算法的使用范圍是（　　）

  A．所有情況

  B．答案無(wú)窮多的情況

  C．答案的個(gè)數(shù)有限且可一一列舉

  D．答案?jìng)€(gè)數(shù)唯一的情況
  組卷：38引用：2難度：0.9

  解析

• 4．下列關(guān)于對(duì)象的描述中，錯(cuò)誤的是（　?。?/h2>

  A．對(duì)象的屬性用于描述對(duì)象的狀態(tài)

  B．對(duì)象的屬性與方法可以有多個(gè)

  C．對(duì)象事件的發(fā)生會(huì)驅(qū)動(dòng)該對(duì)象相應(yīng)事件處理過程的執(zhí)行

  D．對(duì)象的屬性值只能在屬性窗口中設(shè)置
  組卷：26引用：4難度：0.9

  解析

• 5．下列VB表達(dá)式的值等于3的是（　?。?/h2>

  A．Sqr（2）+1	B．Abs（-1）-2
  C．Asc（“1”）+2	D．Len（“-2”）+1
  組卷：15引用：10難度：0.9

  解析

二、非選擇題（本大題共5小題，其中第13小題4分，第14小題4分，第15小題5分，第16小題8分，第17小題5分，共26分）

• 16．鄭均收集了某公司生豬生長(zhǎng)各階段的產(chǎn)肉比數(shù)據(jù)，他設(shè)計(jì)了如下Visual Basic程序進(jìn)行數(shù)據(jù)處理．程序運(yùn)行界面如圖所示，左邊列表框List1中顯示生豬生長(zhǎng)的各階段編號(hào)及對(duì)應(yīng)的產(chǎn)肉比，單擊“排序”按鈕Command1后，右邊的列表框List2中顯示按產(chǎn)肉比從高到低排序后的數(shù)據(jù)．所收集到的不同生長(zhǎng)階段編號(hào)和對(duì)應(yīng)的產(chǎn)肉比數(shù)據(jù)已分別保存在數(shù)組a和數(shù)組b中．
  
  排序部分程序如下：
  Dim a（1To 10）As String′數(shù)組a用于存儲(chǔ)階段編號(hào)
  Dim b（1To 10）As Single′數(shù)組b用于存儲(chǔ)產(chǎn)肉比
  Private Sub Command1_-Click （　　）
  Dim i As Integer,j As Integer,k As Integer,t As Single,s As String
  For i=1To 9
  k=i
  For j=i+1To 10
  If ① Then k=j
  Next j
  If k＜＞i Then
  s=a（i）：a（i）=a（k）：a（k）=s
  t=b（i）：②：b（k）=t
  End If
  Next i
  For i=1To 10
  List2．AddItem a（i）+””+Str（b（i））
  Next i
  End Sub
  Private Sub Form Load （　?。浯诉^程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行賦值，并顯示在List1中，代碼略
  End Sub
  （1）解決此問題采用的算法是

   

  ．（填“選擇排序”或“冒泡排序”）
  （2）在程序①和②畫線處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，將程序補(bǔ)充完整：
  程序中①畫線處應(yīng)填入

   

  ．
  程序中②畫線處應(yīng)填入

   

  ．
  組卷：20引用：3難度：0.1

  解析

• 17．編寫VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入一個(gè)整數(shù)，單擊“查找刪除”按鈕Command1，采用對(duì)分查找法在數(shù)組A中刪除該數(shù)（該數(shù)后面的數(shù)組元素都前移一位），并在標(biāo)簽Label2中顯示刪除后的結(jié)果（運(yùn)行效果如圖所示）；否則，在標(biāo)簽Label2中顯示“該數(shù)沒有找到”．
  
  實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
  Dim A（1To 10）As Integer′用于保存10個(gè)按從小到大順序排列的整數(shù)
  ′Form_-Load事件過程產(chǎn)生10個(gè)整數(shù)，按升序保存在數(shù)組A中，并在標(biāo)簽Label1中顯示
  Private Sub Form_-Load （　　）
  ′代碼略
  End Sub
  Private Sub Command1_-Click （　?。?br />Dim I As Integer,j As Integer,m As Integer,k As Integer
  Dim x As Integer,f As Boolean′變量f用于標(biāo)記是否在數(shù)組中找到x
  x=Val（Text1．Text）
  i=1：j=10
  f=False
  Do While （i＜=j）And （f=False）
  m=Int（（i+j）/2）
  If A（m）=x Then f=True
  If Then i=m+1Else j=m-1′（1）
  Loop
  If f=True Then
  For k=m To 9
  ′（2）
  Next k
  Label2．Caption=””
  For k=1to 9
  Label2．Caption=Label2．Caption+Str（A（k））+””
  Next k
  Else
  Label2．Caption=”該數(shù)沒有找到”
  End If
  End Sub.
  組卷：3引用：3難度：0.1

  解析