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

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

• 1．打开“考生文件夹\601\工程1．vbp”，完善程序并保存．
  实现功能：当单击窗体后，计算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中显示出来．
  
  '填空完成程序，使得单击窗体后，计算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中显示出来．
  '注：请不要更改源程序结构，删除①、②、③，并在对应位置填写正确的代码
  
  Private Sub Form_Click （　　）
  Dim s As Integer'变量s存放和
  Dim n As Integer
  '为n赋初值
  n=①
  '为s赋初值
  s=②
  Do While s＜500
  n=n+1
  s=③
  Loop
  Text1．Text=CStr（n-1）
  End Sub.
  组卷：3引用：1难度：0.7

  解析

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

• 4．打开“考生文件夹\119\工程1．vbp”，完善程序并保存。
  关于人口问题，如果我国人口年增长率为4%，问多少年后我国人口超过20亿。（假设现在我国人口为14亿）
  实现功能：当单击窗体后，在窗体上输出问题答案。
  '请不要更改源程序的结构，删除原题里的①、②、③、④．填写正确的代码，使程序完善
  Private Sub Form_Click （　　）
  Dim p As Integer'变量p保存人口
  Dim n As Long
  ①
  n=0
  Do While ②
  p=p*③
  n=④
  Loop
  Print“n=“& CStr（n）
  End Sub。
  组卷：2引用：1难度：0.6

  解析

• 5．打开“考生文件夹\599\工程1．vbp”，完善程序并保存。
  实现功能：当单击窗体后，计算1+2+3+…+N＞500的N的最小值，并在文本框Text1中显示出来。
  
  '填空完成程序，使得当单击窗体后，计算1+2+3+…+N＞500的N的最小值，并在文本框Text1中显示出来。
  '注：请不要更改源程序结构，删除①、②、③，并在对应位置填写正确的代码
  
  Private Sub Form_Click （　　）
  Dim s As Integer'变量s存放和
  Dim n As Integer
  '为s赋初值
  s=①
  '为n赋初值
  n=②
  Do
  n=n+1
  s=s+n
  Loop While s ③500
  Text1．Text=CStr（n）
  End Sub。
  组卷：2引用：1难度：0.6

  解析