2017年江苏省信息技术学业水平试卷（14）

一、操作题

• 1．打开文件“考生文件夹\560\工程1．vbp”，完善程序实现如下功能并保存：
  今年儿子6岁，父亲36岁，母亲31岁．编程求几年后，父母亲年龄之和是儿子的7倍，将结果显示在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．打开“考生文件夹\780\test3．vbp”，完善Command1_Click事件代码并保存．
  实现功能：2008年末我国总人口为13.28亿，年平均增长0.63%，假设我国人口将继续以该速率增长．请问在哪一年我国人口将超过15亿？在窗体上输出结果．
  Private Sub Command1_Click （　　）
  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．打开文件“考生文件夹\860\圆周率．vbp”，完善程序实现如下功能并保存：
  公元5世纪，我国古代数学家祖冲之将圆周率π求到了小数点后7位．到17世纪，微积分被牛顿和莱布尼兹发现之后，大量计算圆周率π的公式被发现．莱布尼兹公式就是其中之一：
  

  x

  4

  =1-

  1

  3

  +

  1

  5

  -

  1

  7

  +

  1

  9

  -

  1

  11

  +…
  编写程序，利用以上公式计算π，直到最后一项的值小于0.0000001为止，输出π的值．
  Private Sub cmdComputePi_Click （　　）
  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．打开文件“考生文件夹\601\工程1．vbp”，完善Form_Click事件代码并保存．
  实现功能：当单击窗体后，计算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中显示出来．
  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．打开文件“考生文件夹\602\工程1．vbp”，完善Form_Click事件代码并保存．
  实现功能：某公司某年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？将结果输出到窗体上．
  Private Sub Form_Click （　　）
  Dim p As Single'年产值
  Dim n As Integer'年数
  p=

   

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

   

  ②
  n=

   

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

  解析