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

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

• 1．學(xué)校要舉行運(yùn)動(dòng)會(huì)，請(qǐng)你設(shè)計(jì)一個(gè)能夠?qū)\(yùn)動(dòng)員分?jǐn)?shù)自動(dòng)排序的軟件，如果要設(shè)計(jì)此軟件，以下最好的方法和步驟是（　?。?/h2>

  A．分析問(wèn)題，編寫(xiě)程序，設(shè)計(jì)算法，調(diào)試程序

  B．設(shè)計(jì)算法，編寫(xiě)程序，提出問(wèn)題，調(diào)試程序

  C．分析問(wèn)題，設(shè)計(jì)算法，編寫(xiě)程序，調(diào)試程序

  D．設(shè)計(jì)算法，提出問(wèn)題，編寫(xiě)程序，調(diào)試程序
  組卷：1引用：2難度：0.7

  解析

• 2．計(jì)算兩個(gè)并聯(lián)電阻總電阻值的算法如下：
  ①輸入兩電阻R₁、R₂ 的值
  ②計(jì)算總電阻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變量名的是（　?。?/h2>

  A．x-y

  B．a(chǎn)#1

  C．2day

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

  解析

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

• 11．用VB編寫(xiě)程序?qū)崿F(xiàn)：從某一字符串中刪除指定的字符串，并將處理后的字符串重新輸出。程序界面如圖1所示，在文本框Text1中輸入原始字符串，在文本框Text2中輸入需要?jiǎng)h除的字符串，單擊“刪除字符串”按鈕Command1后，在文本框Text3中輸出處理后的結(jié)果。
  
  （1）在設(shè)計(jì)應(yīng)用程序界面時(shí)，應(yīng)使用圖2所示“控件工具箱”中的

   

  （填寫(xiě)相應(yīng)編號(hào)）添加按鈕。
  （2）窗體按鈕上顯示的文字“刪除字符串”是需要修改按鈕Command1的

   

  屬性值修改為“刪除字符串”。
  （3）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)跈M線處填入合適的代碼。
  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），把每天待宰殺的豬按順序編號(hào)后排成一排，每次將排在單號(hào)位置的豬殺掉；然后把剩下的豬按上一次相對(duì)的位置排好，重新編號(hào)，再次將排在單號(hào)位置的豬殺掉；以后每次重復(fù)前面的過(guò)程，直到僅剩下一頭豬時(shí)停止宰殺，將這頭幸運(yùn)的豬放回；有一頭豬聰明的豬，每天都能躲避被屠宰。利用VB編寫(xiě)一個(gè)程序，根據(jù)每天殺豬的數(shù)量，求出當(dāng)天這頭聰明的豬的原始編號(hào)。VB程序界面設(shè)計(jì)如下：
  
  控件屬性設(shè)置如下：
  

  對(duì)象	屬性	屬性值	說(shuō)明
  Form1	Caption	幸運(yùn)的豬	窗體的標(biāo)題
  Label1	Caption	當(dāng)天要?dú)⒇i的數(shù)量	標(biāo)簽顯示的文字
  Label2	Caption	幸運(yùn)豬的原始編號(hào)	標(biāo)簽顯示的文字
  Text1	Text	空白	文本框的文本
  Text2	Text	空白	文本框的文本
  Image1	Picture	Pig.gif	顯示的圖片
  Command1	Caption	計(jì)算	按鈕顯示的文字

  （1）完成以上功能的程序代碼如下，請(qǐng)?jiān)跈M線處填入正確的語(yǔ)句。
  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表示還沒(méi)被殺掉
  Next i
  count=0
  Do while  ②

   

  '要?dú)⒌魋um-1頭豬
  Pos=0
  For i=1 To sum
  If a（i）＜＞0  Then
  pos=pos+1'pos表示報(bào)數(shù)
  If  ③

   

   Then'報(bào)到奇數(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）屠宰場(chǎng)每天有100頭豬被屠宰，這頭聰明的豬，需要初始排在

   

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

   

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

  解析