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

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

• 1．打開文件“考生文件夾\856\60歲收入和．vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
  編寫程序測(cè)算一個(gè)人在60歲退休之前總共能拿多少工資．程序運(yùn)行后輸入起薪年齡和起始年薪，按工資每年增長(zhǎng)5%計(jì)算總收入．例如，輸入25和20000，然后屏幕上會(huì)顯示：工作到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（“輸入這個(gè)年輕人的起薪年齡：“））
  salary=Val（InputBox（“輸入這個(gè)年輕人的起始年薪：“））
  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事件代碼并保存．
  實(shí)現(xiàn)功能：當(dāng)單擊“計(jì)算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事件代碼并保存．
  實(shí)現(xiàn)功能：?jiǎn)螕舸绑w后，計(jì)算
  s=1+

  1

  2

  +

  1

  3

  +

  1

  4

  +…+

  1

  99

  +

  1

  100

  
  在窗體上顯示結(jié)果．
  Private Sub Form_Click （　?。?br />Dim s As Single'累加器
  Dim i As Integer'循環(huán)變量
  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”進(jìn)行以下操作后并保存！（在字符串相連接時(shí)不要使用“+”，應(yīng)使用“&”）
  （1）在窗體中Form1添加一個(gè)名為“Command1”的按鈕，并在按鈕上顯示文字“計(jì)算”；
  （2）完善程序，使之實(shí)現(xiàn)如下功能：?jiǎn)螕簟坝?jì)算”按鈕，在文本框中分別輸出1到100之間的奇數(shù)之和與偶數(shù)之和!
  注：（1）刪除①、②、③，填入正確的語(yǔ)句
  （2）不能刪除注釋語(yǔ)句
  Private Sub Command1_Click （　?。?br />Dim a As Singl
  Dim b As Single
  '從Text1中讀入這個(gè)數(shù)，并保存在變量a中
  a=Val（

   

  ①）
  b=a Mod

   

   ②
  If b=0Then
  Label1．Caption=“偶數(shù)“
  Else
  Label1．Caption=“奇數(shù)“
  

   

  ③
  End Sub.
  組卷：10引用：1難度：0.1

  解析

• 11．打開文件“Z：\114\工程1．vbp”，完善Form_Click事件代碼并保存。
  完善程序，求1/1+1/2+2/3+…+21/34+…前10項(xiàng)的值。
  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

  解析