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

一、操作题（每题10分，11题共110分）

• 1．打开文件“考生文件夹\856\60岁收入和．vbp”，完善程序实现如下功能并保存：
  编写程序测算一个人在60岁退休之前总共能拿多少工资．程序运行后输入起薪年龄和起始年薪，按工资每年增长5%计算总收入．例如，输入25和20000，然后屏幕上会显示：工作到60岁的总收入为：1916726．
  Private Sub cmdCompute_Click （　　）
  Dim age As Integer
  Dim salary As Single
  Dim sum As Single
  Dim i As Integer
  age=Val（InputBox（“输入这个年轻人的起薪年龄：“））
  salary=Val（InputBox（“输入这个年轻人的起始年薪：“））
  sum=0
  For i=

   

  ①To 60
  sum=

   

  ②
  salary=salary*（1+0.05）
  Next i
  Print“工作到60岁的总收入为：“； Int（

   

  ③）
  End Sub.
  组卷：9引用：1难度：0.7

  解析

• 2．打开文件“考生文件夹\606\工程1．vbp”，完善Command1_Click事件代码并保存．
  实现功能：当单击“计算1+2+3+…+100”按钮后，文本框Text1显示1+2+3+…+100的值．
  Private Sub Command1_Click （　　）
  Dim s As Integer
  Dim i As Integer
  s=

   

  ①
  For i=1To

   

  ②
  s=

   

  ③
  Next i
  Text1．Text=Str（

   

  ④）
  End Sub.
  组卷：8引用：1难度：0.5

  解析

• 3．打开“考生文件夹\605\工程1．vbp”，完善Form_Click事件代码并保存．
  实现功能：单击窗体后，计算
  s=1+

  1

  2

  +

  1

  3

  +

  1

  4

  +…+

  1

  99

  +

  1

  100

  
  在窗体上显示结果．
  Private Sub Form_Click （　　）
  Dim s As Single'累加器
  Dim i As Integer'循环变量
  s=

   

  ①
  For i=1To

   

  ②
  s=s+

   

  ③
  Next i
  Print“s=“； Str（s）
  End Sub.
  组卷：8引用：1难度：0.5

  解析

一、操作题（每题10分，11题共110分）

• 10．打开“考生文件夹\1333”文件夹中的工程文件“工程1．vbp”进行以下操作后并保存！（在字符串相连接时不要使用“+”，应使用“&”）
  （1）在窗体中Form1添加一个名为“Command1”的按钮，并在按钮上显示文字“计算”；
  （2）完善程序，使之实现如下功能：单击“计算”按钮，在文本框中分别输出1到100之间的奇数之和与偶数之和!
  注：（1）删除①、②、③，填入正确的语句
  （2）不能删除注释语句
  Private Sub Command1_Click （　　）
  Dim a As Singl
  Dim b As Single
  '从Text1中读入这个数，并保存在变量a中
  a=Val（

   

  ①）
  b=a Mod

   

   ②
  If b=0Then
  Label1．Caption=“偶数“
  Else
  Label1．Caption=“奇数“
  

   

  ③
  End Sub.
  组卷：10引用：1难度：0.1

  解析

• 11．打开文件“Z：\114\工程1．vbp”，完善Form_Click事件代码并保存。
  完善程序，求1/1+1/2+2/3+…+21/34+…前10项的值。
  Private Sub Command1_Click （　　）
  Dim s   As Integer
  Dim a   As Integer
  Dim b   As Integer
  Dim k   As Integer
  s=0
  a=1
  b=1
  For k=1To 10
  s=s+a/b
  a=

   

  ①
  s=

   

  ②
  b=

   

  ③
  Next k
  Print s
  End Sub。
  组卷：1引用：1难度：0.4

  解析