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

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

• 1．打开“考生文件夹\735”文件夹中的文件：“工程1．vbp”进行以下操作后并保存。
  完善程序，使之在运行程序后，能在窗体上显示样张所示的图形。完成后按“Ctrl+W”保存程序。（详见样张）
  
  '完善程序，使之在运行程序后，能在窗体上显示样张所显示的图形。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Form_Click （　　）
  Line （600，200）-（1500，①），RGB（255，0，0）
  Line （1500，200）-（1500，1000），RGB（0，0，255）
  Line （1500，1000）-（600，1000），RGB（②）
  Line （③，1000）-（600，200），RGB（0，0，255）
  End Sub。
  组卷：2引用：1难度：0.6

  解析

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

• 4．打开文件“考生文件夹\32\工程1．vbp”，完善Command1_Click事件代码并保存．
  实现功能：从键盘上输入一个三位数，然后将它逆序输出到对应文本框中．例如输入为“123”时，输出结果为“321”．
  Private Sub Command1_Click （　　）
  Dim a As Integer
  Dim b As Integer
  Dim bai As Integer
  Dim shi As Integer
  Dim ge As Integer
  a=Val（

   

  ①）
  bai=a\100
  shi=（a-bai*100）\10
  ge=a Mod 10
  

   

  ②=ge*100+shi*10+bai
  

   

  ③=Str（b）
  End Sub.
  组卷：8引用：2难度：0.5

  解析

• 5．打开“考生文件夹\736”文件夹中的文件：“工程1．vbp”进行以下操作后并保存。
  该题求丢番图年龄问题：丢番图生命的

  1

  6

  是童年，又过了生命的

  1

  12

  长胡子，再过了生命的

  1

  7

  结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。求丢番图年龄。完善程序，使之在运行程序后，能在text1中显示丢番图年龄。完成后按“Ctrl+W”保存程序。（详见样张）
  
  '该题是求丢番图年龄问题：丢番图生命的

  1

  6

  是童年，
  '又过了

  1

  12

  长胡子，再过了的

  1

  7

  结婚，婚后5年生儿子，
  '儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。
  '求丢番图年龄。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Command1_Click （　　）
  Dim n As Integer
  n=0
  Do
  ①=n+1
  Loop ②n＜n/6+n/12+n/7+5+n/2+4
  ③=Str（n）
  End Sub。
  组卷：2引用：1难度：0.6

  解析