2016-2017學年浙江省臺州中學高一（下）第四次統練信息技術試卷

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

• 1．下列問題不能用算法描述的是（　　）

  A．找出所有能被3整除的自然數

  B．輸入身高體重，判斷體型情況

  C．找出1000個整數中的最大值與最小值

  D．將（64）10 轉換為對應的二進制數
  組卷：24引用：1難度：0.9

  解析

• 2．在VB中，語句Text1．Text=“無解“中的“Text”是（　　）

  A．對象名

  B．屬性名

  C．屬性值

  D．方法名
  組卷：15引用：2難度：0.9

  解析

• 3．下列VB表達式中，計算結果為3的是（　　）

  A．Abs（-3.2）

  B．Len（“a_8“）

  C．Sqr（3）+1

  D．Int（2.9）
  組卷：18引用：2難度：0.9

  解析

• 4．在VB中，能夠正確表示代數式

  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

  解析

• 5．執行如下VB程序段
  S=0
  For i=20To 1Step-5
  S=S+1
  Next i
  Text1．text=str（s）
  文本框中顯示的值是（　　）

  A．50

  B．20

  C．5

  D．4
  組卷：13引用：3難度：0.7

  解析

二、非選擇題（本大題共5小題，共26分）

• 16．在文本框text1中輸入一個8位數，單擊統計按鈕統計各數字出現的個數，并輸出出現次數最多的那個。運行效果如圖所示：
  （1）在設計程序界面時，要清空文本框中的顯示內容，應修改該文本框中的

   

  屬性。
  （2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
  Private Sub Command1_Click （　　）
  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）） &“個“
  Next
  Label2．Caption=“出現最多的數字是：“+

   

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

  解析

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

   

  （填：解析算法/枚舉算法）。
  （2）為實現上述功能，請在劃線①和②處填入合適的代碼。
  Dim m As Integer
  Private Sub Command1_Click （　　）
  Dim n As Integer,s As Integer
  Dim w As Single,f As Single
  n=Val（Text1．Text）'輸入大人人數n
  w=Val（Text2．Text）'輸入重量w
  f=20*n+10*w'計算無優惠的費用f
  s=0
  For i=1 To m'計算桔子總數
  s=s+i*i
  Next i
  If  s=

   

    Then'判斷是否拿到優惠計算費用
  f=f*0.5+s*0.3'計算優惠后的費用
  Label7．Caption=“恭喜你，這是優惠后的費用！“
  Else
  Label7．Caption=“很遺憾，你沒有算對哦！“
  End If
  Label4．Caption=Str（f）'輸出最后的費用f
  End Sub
  Private Sub Form_Load （　　）
  Randomize
  m=

   

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

   

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

  解析