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

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

• 1．打開“考生文件夾\96\工程1．vbp”，完善程序并保存．
  實現功能：假設有一個5位數密碼．只記得密碼為67□□8，其中百位和十位的數字記不清了，但知道該密碼能夠被78整除，也能被67整除．請完善算法幫忙找出這個密碼．
  ''請不要更改源程序的結構，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  Private Sub Command1_Click （　　）
  Dim x As Long
  For x=①To 67998Step 10
  If （x Mod 67=0）And （x Mod 78=0）Then
  Print ②
  End If
  ③
  End Sub.
  組卷：2引用：2難度：0.1

  解析

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

• 4．打開“考生文件夾\50\工程1．vbp”，完善程序并保存．
  實現功能：在文本框text1、text2、text3中輸入3根小木棒的長度（假設都是整數），判斷能否用它們搭成一個三角形，并把結果輸出到文本框text4中．
  操作要求：
  （1）在窗體中加載“CommandButton”控件，命名為“Command1”并設置該控件“Caption”屬性值為“判斷”；
  （2）完善程序，執行command1_click事件，判斷出結果，如果能搭成三角形則在文本框text4中輸出“OK”，否則輸出“NO”．
  '請不要更改源程序的結構，刪除原題里的①、②．填寫正確的代碼，使程序完善
  Private Sub Command1_Click （　　）
  Dim a,b,c As ①
  Let a=Val（Text1．Text）
  Let b=Val（Text2．Text）
  Let c=Val（Text3．Text）               
  If （a+b＞c） And （a+c＞b） And （b+c＞a） Then
  Let Text4．Text=“OK“
  Else
  Let Text4．Text=“NO“
  ②
  End Sub.
  組卷：1引用：1難度：0.5

  解析

• 5．打開“考生文件夾\40\工程1．vbp”，完善程序并保存．
  實現功能：將一張100元面值的人民幣換成若干5元、1元、5角面值的人民幣，但要求100元換成的零錢共100張，且要求每種面值不少于1張，問5元、1元、5角各多少張，請輸出每種可能的組合．
  '請不要更改源程序的結構，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  Private Sub Command1_Click （　　）
  Dim Wuyuan   As Integer
  Dim Yiyuan   As Integer
  Dim Wujiao   As Integer
  For Wuyuan=1To 20
  For Yiyuan=1To ①
  Wujiao=100-Wuyuan-②
  If Wuyuan*5+Yiyuan*1+Wujiao*0.5=100Then
  Print“Wuyuan=“& Wuyuan &“，Yiyuan=“& Yiyuan &“，Wujiao=“& Wujiao
  ③
  Next Yiyuan
  Next Wuyuan
  End Sub.
  組卷：1引用：1難度：0.3

  解析