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

徐州经济技术开发区高级中学 信息组 祝您考试成功！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、“考生文件夹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 * 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() 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）在窗体中加载“CommandButton”控件，命名为“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 + 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 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”进行以下操作后并保存。某同学欲设计一个“水电费管理系统”，其功能如下：水按每吨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、打开“考生文件夹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() 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)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 SubPrivate Sub Form_Load() Randomize For i = 1 To 100 = Int(Rnd * 1000) Next iEnd Sub4、打开文件“考生文件夹725工程1.vbp”， 进行以下操作后保存。这是打印九九乘法表的程序，请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）这是打印乘法九九表的程序，请完善程序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善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。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善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 Integer text1.text 1 nh = Val()If h 3 Then If h Mod 2 = 0 Then n = h / 2 Else n = (h - 1) / 2 End IfElse n = End IfText2.Text = End Sub2、打开“考生文件夹729”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。运行程序能够显示数字金字塔，请完善程序。完成后按“Ctrl+W”保存程序。（详见样张）运行程序能够显示数字金字塔，请完善程序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 i print Print Tab(10 - i); For j = 1 To Print Str(i); Next j Next iEnd Sub3、打开“考生文件夹733”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。本题是在文本框Text1中输入一位十六进制数码（若是字母要大写），运行程序后能译出它表示的十进制数的程序。请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）本题是在text1中输入一位十六进制数码（若是字母要大写），运行程序后能译出它表示的十进制数的程序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() text1.text end select m Dim m As String m = Select Case m Case A m = 10 Case B m = 11 Case C m = 12 Case D m = 13 Case E m = 14 Case F m = 15 Text2.Text = End Sub4、打开“考生文件夹732”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。本题是从字符串中找出所有大写字母，并把找出的大写字母显示在text2中。请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）本题是从一串只含有字母或数字的字符串中找出所有大写字母，并把找出的大写字母显示在text2中。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 text1.text n yPrivate Sub Command1_Click() Dim x As String, y As String Dim i As Integer, n As Integer x = n = Len(x) For i = 1 To If Asc(Mid(x, i, 1) 64 Then y = y + Mid(x, i, 1) End If Next i Text2.Text = End Sub5、打开“考生文件夹730”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。运行程序能够显示数字金字塔，请完善程序。完成后按“Ctrl+W”保存程序。（详见样张） 运行程序能够显示数字金字塔，请完善程序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 j j next jPrivate Sub Form_Click()Dim i As Integer, j As IntegerFor = 1 To 5 Print Tab(10 - j); For i = 1 To Print Str(i); Next i Print End SubVb专项练习第4套1、打开“考生文件夹735”文件夹中的文件：“工程1.vbp” 进行以下操作后并保存。完善程序,使之在运行程序后，能在窗体上显示样张所示的图形。完成后按“Ctrl+W”保存程序。（详见样张）完善程序,使之在运行程序后，能在窗体上显示样张所显示的图形。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 200 255,0,0 600Private Sub Form_Click()Line (600, 200)-(1500, ), RGB(255, 0, 0)Line (1500, 200)-(1500, 1000), RGB(0, 0, 255)Line (1500, 1000)-(600, 1000), RGB()Line (, 1000)-(600, 200), RGB(0, 0, 255)End Sub2、打开“考生文件夹36工程1.vbp”，完善程序并保存。实现功能：给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性），输出三角形面积。三角形面积计算公式：请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() a sqr s Dim s As Single Dim q As Single Dim a As Single Dim b As Single Dim c As Single = Val(InputBox(请输入边长a的值：) b = Val(InputBox(请输入边长b的值：) c = Val(InputBox(请输入边长c的值：) q = (a + b + c) / 2 s = (q * (q - a) * (q - b) * (q - c) Print End Sub3、打开“考生文件夹60工程1.vbp”，完善程序并保存。实现功能：从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文本框t2中。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() dim t1.text s Const pi = 3.14 r, s as Single r = Val() s = pi * r * r T2.Text = End Sub4、打开“考生文件夹32工程1.vbp”，完善程序并保存。实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123”，输出结果为“321”。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer text1.text b text2.text Dim g As Integer a = Val() bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 = g * 100 + shi * 10 + bai = CStr(b)End Sub5、打开“考生文件夹736”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。该题求丢番图年龄问题：丢番图生命的1/6是童年，又过了生命的1/12长胡子，再过了生命的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。求丢番图年龄。完善程序,使之在运行程序后，能在text1中显示丢番图年龄。完成后按“Ctrl+W”保存程序。（详见样张） 该题是求丢番图年龄问题：丢番图生命的1/6是童年，又过了1/12长胡子，再过了的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。求丢番图年龄。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() n while text1.textDim n As Integern = 0Do = n + 1Loop n n / 6 + n / 12 + n / 7 + 5 + n / 2 + 4 = Str(n)End SubVb专项练习第五套1、打开“考生文件夹178工程1.vbp”，完善程序并保存。实现功能：用递归法求3!+5!+7!的值。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Public Function Fac(a As Integer) As IntegerIf a = 1 Then 1 Fac 5 Fac = Else Fac = a * (a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac() + Fac(7) Print S= & CStr(S)End Sub2、打开“考生文件夹122工程1.vbp”，完善程序并保存。王晓珊家距离学校S1公里，某天她和李明各自同时从家里步行出发上学，王晓珊步行V1公里/小时，李明步行V2公里/小时，结果他们同时到达学校。实现功能：输入S1,V1,V2，输出李明家与学校之间的距离S2。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 s1/v1 v2 s2Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S1 = Val(InputBox(请输入王晓珊家离学校的距离：) V1 = Val(InputBox(请输入王晓珊步行速度：) V2 = Val(InputBox(请输入李明步行速度：) T = S2 = * T Print End Sub3、打开“考生文件夹43工程1.vbp”，完善程序并保存。实现功能：用递归法求斐波那契数列1，1，2，3，5，8，第10项的值。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Public Function Fib(n As Integer) As Integer 1 end if 10 If (n = 1) Or (n = 2) Then Fib = Else Fib = Fib(n - 1) + Fib(n - 2) End FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fib() Print S= & CStr(S)End Sub4、打开“考生文件夹175工程1.vbp”，完善程序并保存。实现功能：用递归法求1+2+3+100的值。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Public Function S(n As Integer) As Integer 1 n 100 If n = 1 Then S = Else S = + S(n - 1) End IfEnd FunctionPrivate Sub Command1_Click() Dim Sum As Integer Sum = S() Print Sum= & CStr(Sum)End Sub5、打开“考生文件夹68工程1.vbp”，完善程序并保存。实现功能：在文本框Text1和Text2中分别输入两个整数，单击“交换”按钮后，两个文本框中的数字进行交换。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() b t a b Dim a As Integer Dim b As Integer Dim t As Integer a = Val(Text1.Text) b = Val(Text2.Text) t = a a = b = Text1.Text = Text2.Text = End SubVb专项练习第六套1、打开考生文件夹30工程1.vbp，完善程序并保存。实现功能：请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 x y end ifPrivate Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 = Val(InputBox(请输入x的值) If x 0 Then = x + 5 * a Else y = x - 2 * b Print y=; CStr(y)End Sub2、打开“考生文件夹596工程1.vbp”，完善程序并保存。实现功能：当在文本框Text1中输入圆的半径后，单击“计算”按钮，计算圆的周长，并在文本框Text2中显示出来。填空完成程序，使得当在Text1中输入圆的半径后，单击计算按钮，计算圆的周长，并在Text2中显示出来。注：请不要更改原程序结构，删除、，并在对应的位置填写正确代码Private Sub Command1_Click() text1.text r*2 text2.text Const pi = 3.14 定义符号常量 Dim c As Single 定义周长c为单精度型 Dim r As Single 定义半径r为单精度型 r = Val() c = pi * = CStr(c) End Sub3、打开“考生文件夹611工程1.vbp”，完善程序并保存。实现功能：当单击“显示”按钮后，Text1、Text2分别显示交换后的变量x、y值。填空完成程序，使得单击显示按钮时，Text1、Text2分别显示变量x、y的值。注：请不要更改原程序结构，删除、，并在对应位置填写正确的代码Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x y Then x t x 以下三条语句交换x,y的值 t = x = y y = End If Text1.Text = Text2.Text = CStr(y) End Sub4、打开“考生文件夹41工程1.vbp”，完善程序并保存。某超市为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。实现功能：输入购买的苹果公斤数，输出应付款。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim x As Single Dim cost As Single x*6.8 end if cost x = Val(InputBox(请输入苹果公斤数：) If x =10 x*0.8 s Dim x, s As Single x = Val(Text1.Text) If Then s = 4 * Else s = 4 * x End If Label1.Caption = CStr()End SubVb专项练习第七套1、打开“考生文件夹614工程1.vbp”，完善程序并保存。实现功能：当单击“显示”按钮后，随机产生10个属于区间0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数中的最大值。(注：学生运算结果有可能跟样图中数值不一致)(注：学生运算结果有可能跟样图中数值不一致。)注：请不要更改原程序结构，删除、，并在对应位置填写正确的代码Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer 9 a(i) max Me.Cls Print Randomize For i = 0 To Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max 60 end if t = Val() If Then Label1.Caption = 超重！不能参赛！ Else Label1.Caption = 合格，可以参赛！ End Sub4、打开“考生文件夹108工程1.vbp”，完善程序并保存。实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出在窗体上。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() x = Val(Text1.Text) x mod 5 x mod 7=4 x If x Mod 3 = 2 Then If = 3 Then If Then Print End If End If End IfEnd Sub5、打开“考生文件夹181工程1.vbp”，完善程序并保存。实现功能：从键盘输入10个学生的测试成绩，输出最高分和最低分。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim cj(10) As Single Dim i As Integer Dim max As Single Dim min As Single For i = 1 To 10 cj(i) = Val(InputBox(请输入10个学生的成绩, 成绩输入) Next i max = cj(1) min = cj(1) For i = 2 To 10 If cj(i) max Then max = cj(i) cj(i)min cj(i) End If If Then min = End If Next i Print CStr(max), CStr(min)End SubVb专项练习第八套1、打开“考生文件夹117工程1.vbp”，完善程序并保存。实现功能：当单击窗体后，计算224262N 1500 Print N= & CStr()End Sub2、打开“考生文件夹9工程1.vbp”，完善程序并保存。实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() s(i) -1 s(i) Dim s(9) As Single For i = 0 To 9 = Val(InputBox(请输入一个数) Next i For i = 9 To 0 Step Print Next iEnd Sub3、打开“考生文件夹87工程1.vbp”，完善程序并保存。实现功能：通过键盘输入10个数，统计这10个数的和。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 to 10 s=s+x sPrivate Sub Command1_Click() Dim x As Integer Dim s As Integer Dim i As Integer For i = 1 x = Val(InputBox(NO. & i) Print CStr(x) Next i Print total: & 4、打开“考生文件夹116工程1.vbp”，完善程序并保存。实现功能：计算1+3+5+99的值。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim i As Integer i i+2 s Dim s As Integer i = 1 s = 0 Do While i = 99 s = s + i = Loop Print s= & End Sub5、打开“考生文件夹80工程1.vbp”，完善程序并保存。一群猴子摘了一堆桃子，每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子可以吃了。实现功能：计算猴子最初一共摘了多少个桃子。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() 1 9 (tz+1) tz Dim tz As Integer tz是桃子数 Dim ts As Integer ts是天数 tz = For ts = 1 To tz = * 2 Next ts Print 最初共有桃子 & End SubVb专项练习第九套1、打开“考生文件夹601工程1