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

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

• 1．打开“考生文件夹\716”文件夹中的文件：“工程1．vbp”进行以下操作后并保存。
  某同学欲设计一个“水电费管理系统”，其功能如下：
  水按每吨4元收取，电按每度0.5元收取，输入用水量和用电量，输出应付款。
  请打开工程1．vbp文件，按如下要求完成下列操作。
  （1）请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。
  （2）请把下列代码补充完整
  Private Sub Command1_Click （　　）
  Dim a As Single,b As Single,s As Single
  a=Val（①）
  b=Val（②）
  s=③
  Label4．Caption=Str（④）+“元“
  End Sub。
  组卷：2引用：1难度：0.6

  解析

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

• 4．打开文件“考生文件夹\725\工程1．vbp”，进行以下操作后保存。
  这是打印九九乘法表的程序，请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）
  '这是打印乘法九九表的程序，请完善程序。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  Private Sub Form_click （　　）
  Dim i As Integer,j As Integer
  For i=1To ①
  For j=1To ②
  Print Tab（（j-1）*12）；
  Print j；“*“； i；“=“； i*j；
  Next j
  Print
  ③
  End Sub。
  组卷：2引用：1难度：0.5

  解析

• 5．打开“考生文件夹\4\工程1．vbp”，完善程序并保存。
  实现功能：用穷举法找出所有的3位水仙花数的程序并保存。
  3位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如：153=1³+5³+3³。
  
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Command1_Click （　　）
  Dim i As Integer,a As Integer,b As Integer,c As Integer
  For i=100To 999
  a=i\①
  b=（i-a*②）\10
  c=i Mod 10
  If a^3+b^3+c^3=i Then Print I
  ③
  End Sub。
  组卷：2引用：1难度：0.6

  解析