2013江苏省信息技术学业水平测试vb操作题带解析.docVIP

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 Single a = Val(①) b = Val(②) s = ③ Label4.Caption = Str(④) + 元 End Sub 2、打开“考生文件夹\723”文件夹中的文件：“工程1.vbp” 进行以下操作后并保存。 中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：首个0.5公斤收费210元，其余的重量按55元/千克计算，（总重不足0.5千克按210元收费）下面是自动计算寄费的程序，请完善程序。完成后按“Ctrl+W”保存程序。（详见样张） 中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是： 首个0.5公斤收费210元，其余的重量按55元/每千克计算，（总重不足 0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 Private Sub Command1_Click() 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 Sub 3、打开“考生文件夹\91\工程1.vbp”，完善程序并保存。 实现功能：随机生成100个整数，统计偶数的个数。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 Dim a(100) As Integer Private 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 Sub Private Sub Form_Load() Randomize For i = 1 To 100 ③ = Int(Rnd * 1000) Next i End Sub 4、打开文件“考生文件夹\725\工程1.vbp”， 进行以下操作后保存。 这是打印九九乘法表的程序，请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张） 这是打印乘法九九表的程序，请完善程序。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 Private Sub Form_click() Dim i As Integer, j As Integer For i = 1 To ① For j = 1 To ② Print Tab((j - 1) * 12); Print j; *; i; =; i * j; Next j Print ③ End Sub 5、打开“考生文件夹\4\工程1.vbp”，完善程序并保存。 实现功能：用穷举法找出所有的3位水仙花数的程序并保存。 3位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer 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 Sub Vb专项练习第二套题目 1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。 实现功能：假设有一个5位数密码。只记得