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

  解析