2017-2018學年浙江省紹興市諸暨市牌頭中學高二（下）期中信息技術試卷

一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）選擇題填涂在答題卡1-12

• 1．使用Word軟件編輯某文檔，部分界面如圖所示。
  
  下列說法正確的是（　?。?/h2>

  A．批注的對象是“源自體能網”

  B．圖片的環繞方式為四周型

  C．本段文章中有1處批注，3處修訂（其中刪除的內容有2處）

  D．接受所有修訂后，標號⑤處的內容為“臀橋+單腿臀橋”
  組卷：28引用：1難度：0.9

  解析

• 2．使用內碼軟件觀察字符“準備迎戰2018年第一次選考!”，部分界面如圖所示“
  
  以下說法正確的是（　?。?/h2>

  A．字符“！”的內碼占兩個字節

  B．“迎”的二進制碼為10101101  11010101B

  C．“準備迎戰2018年第一次選考!”共占18個字節

  D．總共有10個GB2312字符，5個ASCII字符
  組卷：42難度：0.9

  解析

• 3．如圖所示某ACCESS數據表的相關信息，下列說法中正確的是（　?。?br/>

  A．將數據表導出到Excel中，將產生7列，21行的數據

  B．可以添加一條“0118，項邦，男，1997/12/32，143，40，90”記錄

  C．可在數據表視圖中增加一個自動編號類型的字段

  D．在數據表視圖中，將“身高體重分數”字段中的數據清空則該字段也自動刪除
  組卷：22引用：1難度：0.9

  解析

• 4．某算法的部分流程圖如圖所示。執行這部分流程，則最終輸出的結果為（　?。?br/>

  A．3，7 10

  B．3，6

  C．5，6

  D．5，7
  組卷：3引用：1難度：0.7

  解析

• 5．某同學利用Flash軟件制作按鈕，界面如圖所示。下列說法正確的是（　　）
  

  A．該按鈕有4個圖層

  B．該按鈕應用到場景中，當鼠標經過按鈕時按鈕上會顯示動畫效果

  C．該按鈕刪除文字圖層上的點擊幀，應用到場景上時該按鈕將起作用

  D．鼠標按下與指針經過時出現的文字一定相同
  組卷：17引用：1難度：0.9

  解析

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

• 16．擠牛奶問題：如有三個農民每天清晨5點起床，然后去牛棚分別給3頭牛擠 奶。第一個農民在300時刻（從5點開始計時，秒為單位）給他的牛擠奶，一直到1000時刻（總共擠了700個時刻），第二個農民在700時刻開始，在1200時刻結束（總共擠了500個時刻）。第三個農民在1500時刻開始2100時刻結束（總共擠了600個時刻）。期間最長擠奶的連續時間為900秒（從300時刻到1200時刻），而最長的無人擠奶的連續時間為300時刻（因第二個農民在1200時刻已結束，而第三個農民從1500時刻才開始，中間有300時刻沒有人在擠牛奶）。相應時刻如圖所示：
  下面提供的程序是，從N個農民（1＜N＜=5000）擠N頭牛的工作時間列表，計算出最長有人在擠牛奶的時間段與最長的無人擠牛奶的時間段。
  如圖為兩組不同數據程序運行后界面；
   
  請在橫線處填入相應的代碼，使程序功能 完善。
  Dim a（1 To 100）As Integer'存放農民 擠牛奶開始時刻
  Dim b（1 To 100）As Integer'存放農民擠牛奶結束時刻
  Dim n As Integer'存放農民人數
  Private Sub Form_Load （　?。?br />‘獲取農民的人數與各個農民開始擠牛奶與結束擠牛奶的時間，并在list1中輸出‘相應的代碼略
  End Sub
  Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer
  Dim t As Integer,ymax As Integer,nmax As Integer
  Dim btime As Integer,etime As Integer,flag As Boolean
  flag=True：i=1
  Do While i＜=   1       And flag
   flag=False
   For j=1 To n-i
    If a（j）＞a（j+1）Then
     t=a（j）：a（j）=a（j+1）：a（j+1）=t
     t=b（j）：b（j）=b（j+1）：b（j+1）=t
     flag=True
    End If
   Next j
   i=i+1
  Loop
  btime=a（1）：etime=b（1）
  ymax=etime-btime：nmax=0
  For i=2 To n
   If              2                     Then
      etime=b（i）
    If etime-btime＞ymax Then ymax=etime-btime
    ElseIf etime＜a（i） Then
       If a（i）-etime＞nmax Then nmax=a（i）-etime
       btime=a（i）：etime=b（i）
   End If
  Next i
  Label2．Caption=“最長擠牛奶時間為：“+Str（ymax）+“時刻“
  Label3．Caption=“最長無人擠牛奶時間為：“+Str（nmax）+“時刻“
  End Sub
  組卷：2引用：1難度：0.5

  解析

• 17．小王編寫了一個依據成績計算名次的VB程序，成績為0到100之間的整數。算法的基本思想：先統計每個分數的個數，然后按照分數從高到低依次計算每個有效分數（該分數的個數不為0）對應的名次，分數相同時名次并列。最高分為第1名，該分數的名次與個數之和為下一個有效分數的名次，以此類推。程序用數組A存放每個分數對應的個數，數組B存放每個分數對應的名次。例如，表中最高分100有2個，并列第1名，則分數96的名次為分數100的名次加上分數100的個數，即第3名。
  

  分數	100	99	98	97	96	95	94	…	0
  個數（A數組）	2	0	0	0	1	0	3	…	0
  名次（B數組）	1				3		4	…

  程序運行時，學生數據顯示在列表框List1中，單擊“計算”按鈕Command1，計算結果顯示在列表框List2中，程序運行界面如圖所示。
  
  實現上述功能的VB程序如下，請回答下列問題：
  （1）如表所示，若分數93的個數為2，則該分數對應的名次為

   

  
  （2）請在橫線處填入合適的代碼。
  Dim sName（1 To 50）As String'存放學生姓名
  Dim sScore（1 To 50）As Integer'存放學生分數
  Dim recCount As Integer'存放學生人數
  Private Sub Form_Load （　?。?br />'本過程從數據庫中讀取學生數據，存儲在相應的變量中，并在List1中顯示
  '代碼略
  End Sub
  Function ads（x As Integer,n As Integer） As String'整數轉換成長度固定的字符串
    Dim sx As String,nx As Integer,i As Integer
    sx=Str（x）：nx=Len（sx）
    For i=1 To n-nx
       sx=““+sx
    Next i
         1
  End Function
  Private Sub Command1_Cl ick （　?。?br />  Dim A（0 To 100）As Integer'存放每個分數的個數
    Dim B（0 To 100）As Integer'存放每個分數的名次
    Dim mc As Integer,score As Integer,i As Integer
    For i=0 To 100
      A（i）=0
    Next i
    For i=1 To recCount'計算每個分數的個數
           2
    Next i
    mc=1
    For i=100 To 0 Step-1'計算每個分數的名次
      I f A（i）＜＞0 Then
        B（i）=mc
             3
      End If
    Next i
    List2．Clear
    List2．AddItem“姓名  分數  名次“
    List2．AddItem“

   

  “
    For i=1 To recCount
      score=sScore（i）
      mc=B（sScore（i））
      List2．AddItem sName（i）+ads（score,5）+“第“+ads（mc,3）+“名“
    Next i
  End Sub
  組卷：3引用：1難度：0.5

  解析