2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷（14）

一、操作題

• 1．打開(kāi)文件“考生文件夾\560\工程1．vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
  今年兒子6歲，父親36歲，母親31歲．編程求幾年后，父母親年齡之和是兒子的7倍，將結(jié)果顯示在label1中．
  Private Sub Command1_Click （　　）
  Dim n As Integer
  Dim x As Integer
  n=0
  Do
  n=

   

  ①
  x=（36+31+2*n）/（6+n）
  Loop

   

  ②x=7
  Label1．Caption=Str（

   

  ③）
  End Sub.
  組卷：8引用：1難度：0.5

  解析

• 2．打開(kāi)“考生文件夾\780\test3．vbp”，完善Command1_Click事件代碼并保存．
  實(shí)現(xiàn)功能：2008年末我國(guó)總?cè)丝跒?3.28億，年平均增長(zhǎng)0.63%，假設(shè)我國(guó)人口將繼續(xù)以該速率增長(zhǎng)．請(qǐng)問(wèn)在哪一年我國(guó)人口將超過(guò)15億？在窗體上輸出結(jié)果．
  Private Sub Command1_Click （　?。?br />Dim y As Integer
  Dim p As Single
  y=2008
  p=13.28
  Do While

   

  ①
  

   

  ②
  p=p*（1+0.0063）
  Loop
  Print

   

  ③
  End Sub.
  組卷：9引用：1難度：0.5

  解析

• 3．打開(kāi)文件“考生文件夾\860\圓周率．vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
  公元5世紀(jì)，我國(guó)古代數(shù)學(xué)家祖沖之將圓周率π求到了小數(shù)點(diǎn)后7位．到17世紀(jì)，微積分被牛頓和萊布尼茲發(fā)現(xiàn)之后，大量計(jì)算圓周率π的公式被發(fā)現(xiàn)．萊布尼茲公式就是其中之一：
  

  x

  4

  =1-

  1

  3

  +

  1

  5

  -

  1

  7

  +

  1

  9

  -

  1

  11

  +…
  編寫(xiě)程序，利用以上公式計(jì)算π，直到最后一項(xiàng)的值小于0.0000001為止，輸出π的值．
  Private Sub cmdComputePi_Click （　?。?br />Dim pi As Double,t As Double
  Dim n As Long,sign As Integer
  pi=0
  n=1
  sign=1
  Do
  t=

   

  ①
  pi=pi+

   

  ②
  n=

   

  ③
  sign=-sign
  Loop Until Abs（t）＜0.0000001
  pi=

   

  ④
  Print“pi：“& pi
  End Sub.
  組卷：9引用：1難度：0.5

  解析

一、操作題

• 9．打開(kāi)文件“考生文件夾\601\工程1．vbp”，完善Form_Click事件代碼并保存．
  實(shí)現(xiàn)功能：當(dāng)單擊窗體后，計(jì)算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中顯示出來(lái)．
  Private Sub Form_Click （　　）
  Dim s As Integer'累加器
  Dim n As Integer
  '為n賦初值
  n=

   

  ①
  '為s賦初值
  s=

   

  ②
  Do While s＜500
  n=n+1
  s=

   

  ③
  Loop
  Text1．Text=Str（n-1）
  End Sub.
  組卷：9引用：1難度：0.1

  解析

• 10．打開(kāi)文件“考生文件夾\602\工程1．vbp”，完善Form_Click事件代碼并保存．
  實(shí)現(xiàn)功能：某公司某年的總產(chǎn)值為2000萬(wàn)元，若總產(chǎn)值以每年5%的速度增長(zhǎng)，多少年后總產(chǎn)值翻一倍？將結(jié)果輸出到窗體上．
  Private Sub Form_Click （　　）
  Dim p As Single'年產(chǎn)值
  Dim n As Integer'年數(shù)
  p=

   

  ①
  n=0
  Do While p＜4000
  p=p*

   

  ②
  n=

   

  ③
  Loop
  Print“n=“； Str（n）
  End Sub.
  組卷：8引用：1難度：0.1

  解析