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