2019-2020學(xué)年浙江省紹興市諸暨中學(xué)高二（上）期中信息技術(shù)試卷

一、選擇題（共12小題，每小題2分，滿分24分）

• 1．如圖所示程序界面中共有幾類對(duì)象（　?。?br />

  A．3

  B．4

  C．5

  D．6
  組卷：4引用：1難度：0.7

  解析

• 2．一個(gè)Visual Basic工程的部分設(shè)計(jì)界面如圖所示，下列選項(xiàng)中錯(cuò)誤的是（　?。?br />

  A．窗體的Caption屬性值是Form1

  B．當(dāng)前選中的對(duì)象類型是圖象Image

  C．當(dāng)前對(duì)象顯示的圖片可以通過(guò)代碼修改

  D．當(dāng)前選中對(duì)象的名稱是Image
  組卷：2引用：1難度：0.2

  解析

• 3．第一題圖中為使窗體運(yùn)行時(shí)顯示標(biāo)題“四則運(yùn)算”，可在（　　）事件過(guò)程中添加語(yǔ)句：Form1．caption=”四則運(yùn)算”

  A．Form1．load	B．Form1_load
  C．Form_load	D．Form.jye.ai
  組卷：7引用：1難度：0.5

  解析

• 4．某算法的部分流程圖如圖所示。執(zhí)行這部分流程后，輸出ans的值是（　　）
  

  A．64

  B．128

  C．256

  D．512
  組卷：2引用：2難度：0.6

  解析

• 5．下列表達(dá)式的運(yùn)算結(jié)果與其他選項(xiàng)不同的是（　?。?/h2>

  A．9 mod 18\8	B．Abs（Int（-6.8））
  C．Asc（Mid（″789″，1，1））	D．Val（″9″）-Sqr（4）
  組卷：4引用：1難度：0.5

  解析

二、填空題（共4小題，每小題6分，滿分26分）

• 15．某自助無(wú)人圖書館實(shí)現(xiàn)機(jī)器人從書架上取書還書，以下程序模擬還書過(guò)程中機(jī)器人查找歸還書籍插入位置：書架上已有書籍已按書名拼音簡(jiǎn)稱升序排列，當(dāng)用戶還書時(shí)，機(jī)器人掃描書籍條碼獲得書名簡(jiǎn)稱（該過(guò)程模擬程序中由用戶輸入文本框text1），查找書架上現(xiàn)有書籍，若找到與歸還書籍相同的書，就把歸還的書插入該位置，若書架上沒(méi)有歸還的書籍，就把歸還的書插入合適的位置使書架上的書名簡(jiǎn)稱還是升序排列。
  
  （1）按示例圖中列表框中已有圖書，若要再還一本“bc”，該書蔣放入第

   

  個(gè)位置
  （2）完成代碼填空
  Dim book（1 To 10）As String'存放書名簡(jiǎn)稱，窗體加載時(shí)隨機(jī)生存保存
  Private Sub Command1_Click

   

  
  Dim key As String
  key=Text1．Text
  i=1：j=10
  Do While i＜=j
  m=（i+j）\2
  If book（m）=key Then exit do
  If

   

  Then j=m-1 Else i=m+1
  Loop
  If

   

  Then
  Label3．Caption=″放入書架第″+Str（m）+″個(gè)位置“
  Else
  Label3．Caption=″放入書架第″+

   

  +″個(gè)位置″
  End If
  End Sub
  組卷：0引用：1難度：0.6

  解析

• 16．雙十一剛過(guò)快遞量激增，某電商平臺(tái)啟用無(wú)人機(jī)進(jìn)行快遞配送，快遞配送時(shí)，首先根據(jù)快遞倉(cāng)庫(kù)與客戶間距離計(jì)算出距離時(shí)間，快遞被配送到客戶手中的實(shí)際時(shí)間除距離時(shí)間外還要加上客戶等待無(wú)人機(jī)完成前面先配送的訂單的時(shí)間。等待時(shí)間是指排在該客戶快遞之前的所有客戶的距離時(shí)間之和。如果某客戶的等待時(shí)間超過(guò)他的距離時(shí)間的3倍，他就會(huì)不愉快，反之是愉快的。已知每個(gè)客戶的距離時(shí)間，請(qǐng)確定如何分配無(wú)人機(jī)的投遞任務(wù)才能使愉快的人數(shù)最多，并輸出最多的人數(shù)。例如：10個(gè)快遞的距離時(shí)間如下表所示，則最多有8個(gè)客戶是愉快的。
  

  快遞編號(hào)	1	2	3	4	5	6	7	8	9	10
  距離時(shí)間	3	2	5	5	6	7	1	8	1	3
  拿到快遞是否愉快	是	是	是	是	否	是	是	否	是	是

  （1）代碼“Private Sub Commandl_Click （　?。敝械腃ommandl_Click （　?。┦?

   

  （單選，填字母：A．對(duì)象名/B．事件名/C．事件處理過(guò)程名）
  （2）請(qǐng)?jiān)跈M線處填入合適代碼。
  （3）程序代碼中，加框處代碼有錯(cuò)，請(qǐng)改正。
  Const n=10
  Dim a（1 To n） As Integer
  Private Sub Command1_Click （　?。?br />Dim i As Integer,a As Integer,ans As Integer,t As Integer
  ，讀取每個(gè)快遞的距離時(shí)間，依次存儲(chǔ)在數(shù)組a中，代碼略
  For i=1 To n-1
  

   

  
  For j=n To i+1 Step-1
  If

   

   Then k=j
  Next j
  If a（i）＜＞a（k） Then t=a（i）：a（i）=a（k）：a（k）=t
  Next i
  s=0：ans=0
  For i=1 To n
  If sThen s=s+a（i）：ans=ans+1
  Next i
  Label1．Caption=″共有“+Str（ans）+″個(gè)人是愉快的，將給予好評(píng)?！?/h2>
  組卷：1引用：1難度：0.5

  解析