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

  解析