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

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

• 1．打開“考生文件夾\30\工程1．vbp“，完善程序并保存。
  實現(xiàn)功能：
  編程求方程y=

  x + 5 a （ x ＜ 0 ）

  x - 2 b （ x ＞ = 0 ）

  的解。
  '請不要更改源程序的結構，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  Private Sub Command1_Click （　?。?br />Dim x As Single,y As Single
  a=3：b=-5
  ①=Val（InputBox（“請輸入x的值“））
  If x＜0Then
  ②=x+5*a
  Else
  y=x-2*b
  ③
  Print“y=“； CStr（y）
  End Sub。
  組卷：3引用：1難度：0.6

  解析

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

• 4．打開“考生文件夾\41\工程1．vbp”，完善程序并保存。
  某超市為了對蘋果進行促銷，規(guī)定購買2公斤以上可以在原價每公斤6.80元的基礎上打8折。
  實現(xiàn)功能：輸入購買的蘋果公斤數(shù)，輸出應付款。
  '請不要更改源程序的結構，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  Private Sub Command1_Click （　?。?br />Dim x As Single
  Dim cost As Single
  x=Val（InputBox（“請輸入蘋果公斤數(shù)：“））
  If x＜=2Then
  cost=①
  Else
  cost=x*6.8*0.8
  ②
  Print ③
  End Sub。
  組卷：2引用：1難度：0.6

  解析

• 5．打開“考生文件夾\20\工程1．vbp”，完善程序并保存。
  某超市蘋果價格每斤4元，購買10斤以上（包括10斤）將享受8折優(yōu)惠。
  實現(xiàn)功能：使得在Text1中輸入重量并單擊“計算”按鈕后，在Label1中顯示對應的價格。
  '請不要更改源程序的結構，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  Private Sub Command1_Click （　?。?br />Dim x,s As Single
  x=Val（Text1．Text）
  If ①Then
  s=4*②
  Else
  s=4*x
  End If
  Label1．Caption=CStr（③）
  End Sub。
  組卷：2引用：1難度：0.6

  解析