2020-2021學年浙江省寧波市海曙區(qū)效實中學高二（上）期中信息技術試卷

一、選擇題（本大題共9小題，每題2分，共18分。在每小題給出的四個選項中，只有一個是符合題目要求的。）

• 1．學校要舉行運動會，請你設計一個能夠對運動員分數(shù)自動排序的軟件，如果要設計此軟件，以下最好的方法和步驟是（　?。?/h2>

  A．分析問題，編寫程序，設計算法，調試程序

  B．設計算法，編寫程序，提出問題，調試程序

  C．分析問題，設計算法，編寫程序，調試程序

  D．設計算法，提出問題，編寫程序，調試程序
  組卷：1引用：2難度：0.7

  解析

• 2．計算兩個并聯(lián)電阻總電阻值的算法如下：
  ①輸入兩電阻R₁、R₂ 的值
  ②計算總電阻R=

  R

  1

  R

  2

  R

  1

  +

  R

  2

  
  ③輸出總電阻R
  上述算法屬于（　?。?/h2>

  A．枚舉算法

  B．解析算法

  C．排序算法

  D．查找算法
  組卷：27引用：4難度：0.9

  解析

• 3．某算法的部分流程圖如右圖所示，執(zhí)行該流程圖，下列描述正確的是（　?。?/h2>

  A．“s?s+x”執(zhí)行了4次

  B．“s≤10？”執(zhí)行了4次

  C．執(zhí)行算法后，s的值為15，x的值為6

  D．執(zhí)行算法后，s的值為10，x的值為5
  組卷：0引用：1難度：0.4

  解析

• 4．下列能作為Visual Basic變量名的是（　　）

  A．x-y

  B．a(chǎn)#1

  C．2day

  D．num_2
  組卷：0引用：2難度：0.6

  解析

二、填空題（本題共3小題，共17分。）

• 11．用VB編寫程序實現(xiàn)：從某一字符串中刪除指定的字符串，并將處理后的字符串重新輸出。程序界面如圖1所示，在文本框Text1中輸入原始字符串，在文本框Text2中輸入需要刪除的字符串，單擊“刪除字符串”按鈕Command1后，在文本框Text3中輸出處理后的結果。
  
  （1）在設計應用程序界面時，應使用圖2所示“控件工具箱”中的

   

  （填寫相應編號）添加按鈕。
  （2）窗體按鈕上顯示的文字“刪除字符串”是需要修改按鈕Command1的

   

  屬性值修改為“刪除字符串”。
  （3）為實現(xiàn)上述功能，請在橫線處填入合適的代碼。
  Private Sub Command1_Click ____
  Dim s As Integer,r As Integer,c As Integer
  Dim source As String,delstr As String,ch As String
  c=0：i=1
  source=Text1.Text：delstr=Text2.Text
  s=Len（source）
  r=Len（delstr）
  Do While s-i+1＞=r
  ch=Mid（source,i,r）
  If ch=delstr Then
  source=Mid（source,1，i-1）+①

   

  
  s=Len（source）
  ②

   

  
  Else
  i=i+1
  End If
  Loop
  Label4.Caption=“共刪除：“+Str（c）+“處“
  Text3.Text=source
  End Sub
  組卷：0引用：1難度：0.4

  解析

• 12．某屠宰廠每天決定宰殺若干頭豬（1＜=n＜=100），把每天待宰殺的豬按順序編號后排成一排，每次將排在單號位置的豬殺掉；然后把剩下的豬按上一次相對的位置排好，重新編號，再次將排在單號位置的豬殺掉；以后每次重復前面的過程，直到僅剩下一頭豬時停止宰殺，將這頭幸運的豬放回；有一頭豬聰明的豬，每天都能躲避被屠宰。利用VB編寫一個程序，根據(jù)每天殺豬的數(shù)量，求出當天這頭聰明的豬的原始編號。VB程序界面設計如下：
  
  控件屬性設置如下：
  

  對象	屬性	屬性值	說明
  Form1	Caption	幸運的豬	窗體的標題
  Label1	Caption	當天要殺豬的數(shù)量	標簽顯示的文字
  Label2	Caption	幸運豬的原始編號	標簽顯示的文字
  Text1	Text	空白	文本框的文本
  Text2	Text	空白	文本框的文本
  Image1	Picture	Pig.gif	顯示的圖片
  Command1	Caption	計算	按鈕顯示的文字

  （1）完成以上功能的程序代碼如下，請在橫線處填入正確的語句。
  Private Sub Command1_Click ____
  Dim sum,i,pos,last,count As Integer
  Dim a（1 To 100）As Integer
  ①

   

  
  For i=1 To sum
  a（i）=1'初始狀態(tài)為1表示還沒被殺掉
  Next i
  count=0
  Do while  ②

   

  '要殺掉sum-1頭豬
  Pos=0
  For i=1 To sum
  If a（i）＜＞0  Then
  pos=pos+1'pos表示報數(shù)
  If  ③

   

   Then'報到奇數(shù)的豬被屠宰
  count=count+1
  a（i）=0
  End If
  End If
  Next i
  Loop
  For i=1 To sum
  If a（i）=1 Then
  Text2-Text=Str（i）
  End If
  Next i
  End Sub
  （2）屠宰場每天有100頭豬被屠宰，這頭聰明的豬，需要初始排在

   

  號位置上才能避免被屠宰掉。
  （3）還是這100頭豬，如果屠宰場改變殺豬規(guī)則，第一次殺奇數(shù)，第二次殺偶數(shù)，第三次殺奇數(shù)，第四次殺偶數(shù)……，依次輪流，100頭豬中幸運的豬的原始編號是

   

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

  解析