《2013江苏省信息技术学业水平测试vb操作题带答案》由会员分享，可在线阅读，更多相关《2013江苏省信息技术学业水平测试vb操作题带答案（18页珍藏版）》请在金锄头文库上搜索。
1、 祝您考试成功！祝您考试成功！第 1 页 共 19 页2013江苏省信息技术学业水平测试江苏省信息技术学业水平测试vb操作题带答案操作题带答案Vb专项练习专项练习第一套第一套1 1、打开、打开“考生文件夹考生文件夹716716”文件夹中的文件：文件夹中的文件：“工程工程1.vbp1.vbp”进行以下操作后并保进行以下操作后并保存。存。某同学欲设计一个某同学欲设计一个“水电费管理系统水电费管理系统”，其功能如下：，其功能如下：水按每吨水按每吨4 4元收取，电按每度元收取，电按每度0.50.5元收取，输入用水量和用电量，输出应付款。元收取，输入用水量和用电量，输出应付款。请打开工程请打开工程1.v
2、bp1.vbp文件，按如下要求完成下列操作。文件，按如下要求完成下列操作。（1 1）请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。）请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。（2 2）请把下列代码补充完整）请把下列代码补充完整Private Sub Command1_Click()Dim a As Single, b As Single, s As Singlea = Val()b = Val()s = Label4.Caption = Str() + “元“End Sub2 2、打开、打开“考生文件夹考生文件夹723723”文件夹中的文件：文件夹中的文件：
3、“工程工程1.vbp1.vbp” 进行以下操作后并进行以下操作后并保存。保存。中国邮政的中国邮政的EMSEMS国际快递业务：国际快递业务：中国寄往澳大利亚的快递收费中国寄往澳大利亚的快递收费标准是：首个标准是：首个0.50.5公斤收费公斤收费210210元，其余的重量按元，其余的重量按5555元元/ /千克计算，千克计算， （总重不足（总重不足0.50.5千克按千克按210210元收费）下面是自动计算寄费的程序，请完善程序。完成后按元收费）下面是自动计算寄费的程序，请完善程序。完成后按“Ctrl+WCtrl+W”保存程序。保存程序。 （详见样张）（详见样张）中国邮政的 EMS 国际快递业务：中
4、国寄往澳大利亚的快递收费标准是：首个 0.5 公斤收费 210 元，其余的重量按 55 元/每千克计算，（总重不足0.5 千克按 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 3、打开、打开“考生文件夹考生文件夹9191工程工程1.v
5、bp1.vbp”，完善程序完善程序并保存。并保存。实现功能：随机生成实现功能：随机生成100100个整数，统计偶数的个数。个整数，统计偶数的个数。请不要更改源程序的结构，删除原题里的请不要更改源程序的结构，删除原题里的、。填写正确的代码，使。填写正确的代码，使程序完善程序完善Dim a(100) As IntegerPrivate Sub Command1_Click()Text1.textText2.text 4*a+0.5*b sxend if text2.texttotal=0total=total+1a(i)祝您考试成功！祝您考试成功！第 2 页 共 19 页Dim total As
6、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)Next iEnd Sub4 4、打开文件、打开文件“考生文件夹考生文件夹725725工程工程1.vbp1.vbp”， 进行以下操作后保存。进行以下操作后保存。这是打印九九乘法表的程序，请你完善程序。完成后按这是打印九九乘法表的程序，请你完善程序。完成后按“Ctrl+WCtrl+W”保存程序。保存程序。（
7、详见样张）（详见样张）这是打印乘法九九表的程序，请完善程序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善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 5、打开、打开“考生文件夹考生文件夹44工程工程1.vbp1.vbp”，完善程序并保存。，完善程序并保存。实现功能：实现功能：用穷举法找出所有的用穷举法找出所有的3 3位水
8、仙花数的程序位水仙花数的程序并保存并保存。3 3 位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如：位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如：153=1153=13 3+5+53 3+3+33 3。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善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 +
9、b 3 + c 3 = i Then Print iEnd SubVb专项练习专项练习第二套题目第二套题目1 1、打开、打开“考生文件夹考生文件夹9696工程工程1.vbp1.vbp”，完善程序并保存。，完善程序并保存。实现功能：假设有一个实现功能：假设有一个 5 5 位数密码。只记得密码为位数密码。只记得密码为 678678，其中百位和十位，其中百位和十位的数字记不清了，但知道该密码能够被的数字记不清了，但知道该密码能够被 7878 整除，也能被整除，也能被 6767 整除。请完整除。请完善善算法算法9i next i 100 100 next i祝您考试成功！祝您考试成功！第 3 页 共
10、19 页帮忙找出这个密码。帮忙找出这个密码。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As LongFor x = To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint End IfEnd Sub2 2、“考生文件夹考生文件夹5151工程工程1.vbp1.vbp”是采用是采用“穷举法穷举法”求出所有水仙花数的程序，请求出所有水仙花数的程序，请完善程序并保存。完善程序并保存。说明：若一个三位数说明：若一个三位数 abcabc，满足：，
11、满足：abc=aabc=a3 3+b+b3 3+c+c3 3，则称，则称 abcabc 为水仙花数。如三为水仙花数。如三位数位数 153153 满足：满足：1 13 3+5+53 3+3+33 3=1+125+27=153=1+125+27=153，则，则 153153 是水仙花数。是水仙花数。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click()Dim i, a, b As IntegerFor i = 100 To a = i 100b = (i - a * 100) 10c = If a * a * a + b * b
12、* b + c * c * c = i ThenPrint CStr(i)Next iEnd Sub3 3、打开、打开“考生文件夹考生文件夹1212工程工程1.vbp1.vbp”，完善程序并保存。，完善程序并保存。实现功能：实现功能：在在 Text1Text1 中输入一个代表秒数的整数后，单击中输入一个代表秒数的整数后，单击“计算计算”按钮后，在按钮后，在Label1Label1、Label2Label2、Label3Label3 中显示对应的小时、分钟和秒数。如在中显示对应的小时、分钟和秒数。如在 Text1Text1 中输中输入入“36723672”，Label1Label1、Label2
13、Label2、Label3Label3 中分别显示中分别显示“1 1”、 “1 1”、 “1212”，即，即 1 1 小时小时 1 1分分 1212 秒秒。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_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
14、 Sub4 4、打开、打开“考生文件夹考生文件夹5050工程工程1.vbp1.vbp”，完善程序并保存。完善程序并保存。实现功能实现功能：在文本框在文本框text1text1、text2text2、text3text3中输入中输入3 3根小木棒的长度根小木棒的长度( (假设都是假设都是整数整数) )，判断能否用它们搭成一个三角形，并把结果输出到文本框，判断能否用它们搭成一个三角形，并把结果输出到文本框text4text4中。中。操作要求：操作要求：（1 1）在窗体中加载）在窗体中加载“CommandButtonCommandButton”控件，命名为控件，命名为“Command1Command
15、1”并设置该控件并设置该控件“CaptionCaption”属性值为属性值为“判断判断”； text1.text ss3600 60999 i mod 10 end if 67008 x Next x祝您考试成功！祝您考试成功！第 4 页 共 19 页（2 2）完善程序，执行）完善程序，执行 command1_clickcommand1_click 事件，判断出结果，如果能搭成三角形事件，判断出结果，如果能搭成三角形则在文本框则在文本框 text4text4 中输出中输出“OKOK”，否则输出，否则输出“NONO”。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善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) ThenLet Text4.Text = “OK“ElseLet Text4.Text = “NO“End Sub5 5、打开、打开“考生文件夹考生文件夹4040工程工程1.vbp1.vbp”，完善程序并保存。，完善程序并保存。实现功能：实现功能：将一张将一张 100100 元面
