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

  解析