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

  解析