2012年江蘇省信息技術(shù)專題練習(xí)：VB程序（2）

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

• 1．打開“考生文件夾\716”文件夾中的文件：“工程1．vbp”進(jìn)行以下操作后并保存。
  某同學(xué)欲設(shè)計(jì)一個(gè)“水電費(fèi)管理系統(tǒng)”，其功能如下：
  水按每噸4元收取，電按每度0.5元收取，輸入用水量和用電量，輸出應(yīng)付款。
  請(qǐng)打開工程1．vbp文件，按如下要求完成下列操作。
  （1）請(qǐng)?jiān)诖绑w中添加兩個(gè)控件，使程序運(yùn)行時(shí)，用其輸入耗水量和耗電量。
  （2）請(qǐng)把下列代碼補(bǔ)充完整
  Private Sub Command1_Click （　?。?br />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”，進(jìn)行以下操作后保存。
  這是打印九九乘法表的程序，請(qǐng)你完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）
  '這是打印乘法九九表的程序，請(qǐng)完善程序。
  '請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  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”，完善程序并保存。
  實(shí)現(xiàn)功能：用窮舉法找出所有的3位水仙花數(shù)的程序并保存。
  3位水仙花數(shù)是指一個(gè)三位數(shù)，其各個(gè)數(shù)位上的數(shù)字之立方和為該數(shù)。例如：153=1³+5³+3³。
  
  '請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  
  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

  解析