2012年江蘇省信息技術(shù)專題練習：VB程序（8）

一、解答題（共5小題，滿分0分）

• 1．打開“考生文件夾\117\工程1．vbp”，完善程序并保存。
  實現(xiàn)功能：當單擊窗體后，計算22+42+62+…+N＜1500的N的最大值。
  '請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  Private Sub Form_Click （　　）
  Dim s As Integer
  Dim N As Integer
  N=22
  s=0
  Do
  s=s+①
  N=②
  Loop Until s＞1500
  Print“N=“& CStr（③）
  End Sub。
  組卷：2引用：1難度：0.6

  解析

一、解答題（共5小題，滿分0分）

• 4．打開文件“考生文件夾\116\工程1．vbp”，完善程序并保存．
  實現(xiàn)功能：計算1+3+5+…+99的值．
  Private Sub Command1_Click （　?。?br />Dim i As Integer
  Dim s As Integer
  i=1
  s=0
  Do While i＜=99
  s=s+

   

  ①
  i=

   

  ②
  Loop
  Print“s=“&

   

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

  解析

• 5．打開“考生文件夾\80\工程1．vbp”，完善程序并保存．
  一群猴子摘了一堆桃子，每天吃掉當天剩余桃子數(shù)的一半，每次又忍不住多吃一個，這樣到了第十天就剩下一個桃子可以吃了．
  實現(xiàn)功能：計算猴子最初一共摘了多少個桃子．
  '請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③、④．填寫正確的代碼，使程序完善
  Private Sub Command1_Click （　?。?br />Dim tz As Integer'tz是桃子數(shù)
  Dim ts As Integer'ts是天數(shù)
  tz=①
  For ts=1To ②
  tz=③*2
  Next ts
  Print“最初共有桃子“& ④
  End Sub.
  組卷：2引用：1難度：0.1

  解析