《2012年江苏高中信息技术学业水平测试vb操作题带答案》由会员分享，可在线阅读，更多相关《2012年江苏高中信息技术学业水平测试vb操作题带答案（41页珍藏版）》请在金锄头文库上搜索。
1、Vb专项练习第一套题目1、打开“考生文件夹96工程1.vbp”，完善程序并保存。实现功能：假设有一个5位数密码。只记得密码为678，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。请完善算法帮忙找出这个密码。 67008 x Next x请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善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 Sub2、“考生
2、文件夹51工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。如三位数153满足：13+53+33=1+125+27=153，则153是水仙花数。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 999 i mod 10 end ifPrivate 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
3、* b + c * c * c = i Then Print CStr(i) Next iEnd Sub3、打开“考生文件夹12工程1.vbp”，完善程序并保存。实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 text1.text ss3600 60Private Sub Command1_Click()
4、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 Sub4、打开“考生文件夹50工程1.vbp”，完善程序并保存。实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。操作要求：（1）在窗体中加载“CommandB
5、utton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；（2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text4中输出“OK”，否则输出“NO”。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 integer end ifPrivate 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 +
6、c b) And (b + c a) Then Let Text4.Text = OK Else Let Text4.Text = NO End Sub5、打开“考生文件夹40工程1.vbp”，完善程序并保存。实现功能：将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少于1张，问5元、1元、5角各多少张，请输出每种可能的组合。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim Wuyuan As Integer 100 yiyuan end if
7、Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To Wujiao = 100 - Wuyuan - If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print Wuyuan= & Wuyuan & ,Yiyuan= & Yiyuan & ,Wujiao= & Wujiao Next Yiyuan Next Wuyuan End SubVb专项练习第二套1、打开“考生文件夹716”文件夹中的文件：“工程1.vbp”进行以下操作
8、后并保存。某同学欲设计一个“水电费管理系统”，其功能如下：水按每吨4元收取，电按每度0.5元收取，输入用水量和用电量，输出应付款。请打开工程1.vbp文件，按如下要求完成下列操作。（1）请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。（2）请把下列代码补充完整 Text1.text Text2.text 4*a+0.5*b sPrivate Sub Command1_Click()Dim a As Single, b As Single, s As Singlea = Val()b = Val()s = Label4.Caption = Str() + 元End Sub2、打开“
9、考生文件夹723”文件夹中的文件：“工程1.vbp” 进行以下操作后并保存。中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：首个0.5公斤收费210元，其余的重量按55元/千克计算，（总重不足0.5千克按210元收费）下面是自动计算寄费的程序，请完善程序。完成后按“Ctrl+W”保存程序。（详见样张）中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：首个0.5公斤收费210元，其余的重量按55元/每千克计算，（总重不足0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private
10、Sub Command1_Click() x end if text2.text Dim x As Single, y As Single y = 0 = Val(Text1.Text) If x 0.5 Then y = 210 + (x - 0.5) * 55 Else y = 210 = Str(y)End Sub3、打开“考生文件夹91工程1.vbp”，完善程序并保存。实现功能：随机生成100个整数，统计偶数的个数。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Dim a(100) As Integer total=0 total=total+1 a(i)Priva
11、te Sub Command1_Click() Dim total As Integer For i = 1 To 100 If a(i) Mod 2 = 0 Then End If Next i Print CStr(total)End SubPrivate Sub Form_Load() Randomize For i = 1 To 100 = Int(Rnd * 1000) Next iEnd Sub4、打开文件“考生文件夹725工程1.vbp”， 进行以下操作后保存。这是打印九九乘法表的程序，请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）这是打印乘法九九表的程序，请完善程
12、序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Form_click() 9 i next iDim i As Integer, j As IntegerFor i = 1 To For j = 1 To Print Tab(j - 1) * 12);Print j; *; i; =; i * j;Next jPrintEnd Sub5、打开“考生文件夹4工程1.vbp”，完善程序并保存。实现功能：用穷举法找出所有的3位水仙花数的程序并保存。3位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。请不要更改源程
13、序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer 100 100 next i For i = 100 To 999 a = i b = (i - a * ) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i End SubVb专项练习第三套1、打开“考生文件夹731”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。本题是青蛙跃井问题：井底蛙欲沿湿滑井壁上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）本题是青蛙跃井问题：井底蛙欲沿湿滑井壁上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click()Dim h As Single, n As Integ
