2012年江苏高中信息技术学业水平测试vb操作题带答案.docVIP

Vb专项练习第一套题目 1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。 实现功能：假设有一个5位数密码。只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。请完善算法帮忙找出这个密码。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 Private Sub Command1_Click() Dim x As Long For x = ① To 67998 Step 10 If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print ② End If ③ End Sub 2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。 说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。如三位数153满足：13+53+33=1+125+27=153，则153是水仙花数。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 Private Sub Command1_Click() Dim i, a, b As Integer For i = 100 To ① a = i \ 100 b = (i - a * 100) \ 10 c = ② If a * a * a + b * b * b + c * c * c = i Then Print CStr(i) ③ Next i End Sub 3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。 实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 Private Sub Command1_Click() Dim h, m, s, ss As Integer ss = Val(①) h = ② m = (ss - h * 3600) \ 60 s = (ss - h * 3600) Mod ③ Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s) End Sub 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 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 Intege