2018-2019學(xué)年浙江省臺(tái)州市書生中學(xué)高二（上）期中信息技術(shù)試卷

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

• 1．下列關(guān)于信息的說(shuō)法正確的是（　　）

  A．信息自古就有，但信息技術(shù)是近代才出現(xiàn)的

  B．信息具有共享性，因此載體的破壞不會(huì)導(dǎo)致信息的丟失

  C．信息具有時(shí)效性，時(shí)間越長(zhǎng)信息的價(jià)值就越低

  D．在一定程度上，社會(huì)的發(fā)展速度取決于人們感知信息、利用信息廣度和深度
  組卷：18引用：2難度：0.9

  解析
• 2．在VB中，能夠正確表示代數(shù)式

  x

  3

  +

  1

  |

  x

  |

  +

  x

  的是（　　）

  A．x^3+1/abs（x）+sqr（x）

  B．（x^3+1）/abs（x）+sqr（x）

  C．x^3+1/（abs（x）+sqr（x））

  D．（x^3+1）/（abs（x）+sqr（x））
  組卷：7引用：3難度：0.7

  解析
• 3．某VB程序設(shè)計(jì)界面如圖所示，下列說(shuō)法正確的是（　　）
  
  ①工程文件是“工程1．vbp”
  ②將text屬性值刪除，圖中①處將不會(huì)顯示“text1”
  ③該窗體中共有3個(gè)對(duì)象     
  ④窗體名稱是“整除問(wèn)題”

  A．①②

  B．②③

  C．①③

  D．②④
  組卷：10引用：2難度：0.9

  解析
• 4．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量x和Flag的值分別是（　　）

  A．2，True

  B．3，True

  C．2，F(xiàn)alse

  D．3，F(xiàn)alse
  組卷：9引用：11難度：0.7

  解析
• 5．某算法流程圖如圖所示，執(zhí)行該算法，輸出n的結(jié)果是（　?。?br />

  A．4

  B．8

  C．12

  D．18
  組卷：9引用：3難度：0.7

  解析

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

• 16．在文本框text1中輸入一個(gè)8位數(shù)，單擊統(tǒng)計(jì)按鈕統(tǒng)計(jì)各數(shù)字出現(xiàn)的個(gè)數(shù)，并輸出出現(xiàn)次數(shù)最多的那個(gè)。運(yùn)行效果如圖所示：
  （1）在設(shè)計(jì)程序界面時(shí)，要清空文本框中的顯示內(nèi)容，應(yīng)修改該文本框中的

   

  屬性。
  （2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼。
  Private Sub Command1_Click （　?。?br />Dim n As Long,m As Integer
  Dim a（0To 9）As Integer
  n=Val（Text1．Text）
  List1．Clear
  For i=0To 9
  a（i）=0
  Next i
  Do While n＞0
  t=n Mod 10
  a（t）=a（t）+1
  

   

  
  Loop
  m=a（0）
  For i=1To 9
  If a（i）＞m Then m=a（i）：k=i
  List1．AddItem Str（i） &“：“& Str（a（i）） &“個(gè)“
  Next
  Label2．Caption=“出現(xiàn)最多的數(shù)字是：“+

   

  
  End Sub
  組卷：2引用：2難度：0.6

  解析
• 17．小李父母開(kāi)了一家農(nóng)家樂(lè)，顧客可以到桔園自摘桔子，收費(fèi)標(biāo)準(zhǔn)是門票每人20元，采摘的桔子每斤10元，付費(fèi)時(shí)若能完成小游戲則有優(yōu)惠。
  用VB軟件設(shè)計(jì)的自摘收費(fèi)程序，功能如下：在文本框Textl中輸入自摘的人數(shù)n,在文本框Text2中輸入摘得桔子重量w。界面右上方是小游戲部分，程序在文本框Text3顯示隨機(jī)產(chǎn)生的桔子層數(shù)m,根據(jù)圖中所示的堆桔子方法（第1層1個(gè)；第2層4個(gè)；第3層9個(gè)……），請(qǐng)顧客計(jì)算出m層桔子總數(shù)s,輸入到文本框Text4中，單擊“是否優(yōu)惠計(jì)算”按鈕Command1，就會(huì)在標(biāo)簽Label4中輸出最后的費(fèi)用f,并在標(biāo)簽Label7中給出提示是否“優(yōu)惠后的費(fèi)用”。運(yùn)行效果如第17題圖所示：
  （1）自摘收費(fèi)程序所用的算法是

   

  （填：解析算法/枚舉算法）。
  （2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€①和②處填入合適的代碼。
  Dim m As Integer
  Private Sub Command1_Click （　?。?br />Dim n As Integer,s As Integer
  Dim w As Single,f As Single
  n=Val（Text1．Text）'輸入大人人數(shù)n
  w=Val（Text2．Text）'輸入重量w
  f=20*n+10*w'計(jì)算無(wú)優(yōu)惠的費(fèi)用f
  s=0
  For i=1 To m'計(jì)算桔子總數(shù)
  s=s+i*i
  Next i
  If  s=

   

    Then'判斷是否拿到優(yōu)惠計(jì)算費(fèi)用
  f=f*0.5+s*0.3'計(jì)算優(yōu)惠后的費(fèi)用
  Label7．Caption=“恭喜你，這是優(yōu)惠后的費(fèi)用！“
  Else
  Label7．Caption=“很遺憾，你沒(méi)有算對(duì)哦！“
  End If
  Label4．Caption=Str（f）'輸出最后的費(fèi)用f
  End Sub
  Private Sub Form_Load （　?。?br />Randomize
  m=

   

  '隨機(jī)產(chǎn)生15層及以內(nèi)的桔子層數(shù)不含0
  Text3．Text=Str（m）
  End Sub
  （3）若3位顧客摘得5斤桔子，游戲中需要計(jì)算出3層桔子的總個(gè)數(shù)，但是他們沒(méi)有算對(duì)桔子個(gè)數(shù)，在text4中輸入了16，那么這3位顧客需付總費(fèi)用

   

  元。
  組卷：2引用：2難度：0.6

  解析