2012年江蘇省信息技術專題練習：VB程序（10）

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

• 1．打開“考生文件夾\612\工程1．vbp”，完善程序并保存。
  實現功能：當單擊“顯示”按鈕后，在窗體上顯示如圖99乘法表。
  
  '填空完成程序，使得單擊“顯示“按鈕后，在窗體上顯示如圖99乘法表。
  '注：請不要更改源程序結構，刪除①、②、③，并在對應位置填寫正確的代碼。
  
  Private Sub Command1_Click （　　）
  Dim i As Integer
  Dim j As Integer
  For i=1To ①Step 1
  Print““；
  For j=1To 9
  Print ②
  Print vbTab；
  Next j
  Print
  ③
  End Sub。
  組卷：1引用：1難度：0.6

  解析

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

• 4．打開“考生文件夾\603\工程1．vbp”，完善程序并保存。
  實現功能：當單擊“計算7！”按鈕后，文本框Text1顯示7！的值。
  '填空完成程序，使得當單擊“計算7！“按鈕后，Text1顯示7！的值。
  '注：請不要更改原程序結構，刪除①、②、③，并在對應位置填寫正確的代碼
  Private Sub Command1_Click （　　）
  Dim a As Integer
  Dim i As Integer
  a=1
  For i=1To ①Step 1
  a=②
  Next i
  Text1．Text=CStr（③）
  End Sub。
  組卷：1引用：1難度：0.3

  解析

• 5．打開“考生文件夾\604\工程1．vbp”，完善程序并保存．
  實現功能：編程計算s=1-

  1

  2

  +

  1

  3

  -

  1

  4

  +…

  1

  99

  -

  1

  100

  的值．
  '填空完成程序，編程計算1-1/2+1/3-1/4+…+1/99-1/100，單擊窗體后，在窗體上顯示結果．
  '注：請不要更改源程序結構，刪除①、②、③，并在對應位置填寫正確的代碼．
  Private Sub Form_Click （　　）
  Dim s As Single
  Dim i As Integer
  s=①
  For i=1To ②Step 1
  If i Mod 2＜＞0Then
  s=s+1/i
  Else
  s=③
  End If
  Next i
  Print“s=“； CStr（s）
  End Sub.
  組卷：2引用：1難度：0.3

  解析