2012年江苏省信息技术专题练习：VB程序（8）

一、解答题（共5小题，满分0分）

• 1．打开“考生文件夹\117\工程1．vbp”，完善程序并保存。
  实现功能：当单击窗体后，计算22+42+62+…+N＜1500的N的最大值。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  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”，完善程序并保存．
  实现功能：计算1+3+5+…+99的值．
  Private Sub Command1_Click （　　）
  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”，完善程序并保存．
  一群猴子摘了一堆桃子，每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子可以吃了．
  实现功能：计算猴子最初一共摘了多少个桃子．
  '请不要更改源程序的结构，删除原题里的①、②、③、④．填写正确的代码，使程序完善
  Private Sub Command1_Click （　　）
  Dim tz As Integer'tz是桃子数
  Dim ts As Integer'ts是天数
  tz=①
  For ts=1To ②
  tz=③*2
  Next ts
  Print“最初共有桃子“& ④
  End Sub.
  组卷：2引用：1难度：0.1

  解析