《BB平台日常测试循环.docx》由会员分享，可在线阅读，更多相关《BB平台日常测试循环.docx（87页珍藏版）》请在三一文库上搜索。
1、实用文档问题1得0分,总分值20分单击窗体,找出1099之间所有的同构数,显示在窗体上.所谓同构数是指一 个数出现在它的平方数的右端,如25在25的平方625的右端,那么25为同构数,窗体上显示“ 25是同构数.正确答案所选答案/1. Private Sub Form_Click()/2. Dim i As IntegerZ3. For i = 10 To 99/4. If i = (i A 2) Mod 100 Then/5. Print i & 是同构数Z6. End IfZ7. Next iZ8. End SubX-未给定X-未给定X-未给定X-未给定X-未给定X-未给定X-未给定X-未
2、给定问题2得0分,总分值20分编制Form_Click ()过程,从输入框InputBox 输入行数n(5 n= 5 And n 10J5.For i = 1 To n/6.Print Tab(n + 1 - i);所选答案X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定乂 未给文案大全实用文档X 未给-定X 未给-定X 未给-定X 未给-定X 未给-定X 未给-定得0分,总分值20分所选答案X 未给-定X 未给- 定乂 未给- 定乂 未给- 定X 未给-定X 未给-定x X 未给X 未给J7.For j = 1 To nJ8.Print *;J9.Next j/ Pri
3、nt10.NNext i11.EEnd Sub12.问题13.编制Form_Click ()过程,有10元、20元、50元纸币假设干张,从中取出20张纸币使其面额总值为 600元,求出取法的总数量以及每一种取法的10元、20元、50元纸币张数,并显示在窗体上.正确答案Z1.Private Sub Form_Click()s/2.Dim x As Integer, y As Integer, z AsInteger, n As IntegerZ3.For x = 0 To 600 50J4.For y = 0 To 20 - x/5.z = 20 - x - y.If z * 10 + y *
4、20 + x * 50 = 600 ThenZ7.Print 10 元:； z, 20 元:；y, 50 元:;78.n = n + 1文案大全实用文档应End IfNNext y10.N Next x11.PPrint 总共有：& n &12.EEnd Sub13.问题乂 未给- 定X 未给- 定X 未给- 定种取法X 未给X 未给- 定得0分,总分值20分单击窗体,从输入框InputBox 输入x和n,并计算以下表达式的值,结 果显示在窗体.所选答案正确答案x As Single,请输入x) 请输入n)力.Private Sub Form_Click()J2.Dim s As Single
5、,n As IntegerZ3.x = Val(InputBox(n = Val(InputBox( s = 1a = 1/5.For i=1 To ns/6.a = a * x / iC. s = s + a/8.NextX 未给- 定a As Single, X 未给X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给文案大全实用文档y9.Print s=; sX 未给-定问题5文案大全/ End Sub10.X 未给-定得0分,总分值20分从输入框InputBox 输入n ,再从输入框输入这 n个整数,要求以每行 5 个的形式输出这n个数其中的偶数用红色显示,计
6、算它们的平均值并 显示在窗体上.正确答案H. Private Sub Form_Click()j-2.Dim n As Integer, x As Integer, ave AsSingle, s As Single33.n = Val(InputBox(n)s/4.For i = 1 To nx = Val(InputBox(x),/5.If x Mod 2 = 0 Thens/6.Forml.ForeColor = vbRedElsey8.Forml.ForeColor =vbBlack79.End If/Print x;10. If i Mod5 =0 ThenPrints = s +
7、xNNext i11.aave = s / n12. Print所选答案X 未给- 定X 未给- 定X 未给- 定X 未给-定X 未给- 定X 未给- 定X 未给- 定X 未给-定X 未给-定X 未给-定X 未给-定X 未给-定问题1X 未给-定X 未给-定所选答案X-未给定X-未给定X-未给定X-未给定X-未给定X-未给定X-未给定X-未给定X-未给定得0分,总分值20分实用文档PPrint 平均值为：& ave13.EEnd Sub14.得0分,总分值20分实现文本框的复制(Command1 )、剪切(Command2)、粘贴(Command3 )、 删除(Command4 )功能.编制F
8、orm_Click()过程,从输入框 InputBo正确答案/1. Private Sub Command1_Click()/2. Clipboard.ClearClipboard.SetText Text1.SelText End Sub.y./3. Private Sub Command2_Click()U ,一/4. Clipboard.ClearClipboard.SetText Text1.SelText/5. Text1.SelText =End SubJ6. Private Sub Command3_Click()/7. Text1.SelText = Clipboard.Get
9、Text End Sub/8. Private Sub Command4_Click()Text1.SelText =/9. End Sub问题2编制Form_Click() 过程,计算下式的和并显示在窗体上,变量x与n的数值用输入对话框InputBox 输入.文案大全实用文档正确答案所选答案Private Sub Form_Click()1.未给定DDim s As Single, x2. n As IntegerXx = Val(InputBox(3. n = Val(InputBox(a = 1s = 0/ For i = 2 To n + 14./ a = a * x / i5./ s
10、 = s + a6./ Next7.Z Print s=; s8.E End Sub9.问题3As Single, a As Single, X 未给请输入x)X 未给请输入n)-定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定得0分,总分值20分输入整数n,求n!的值,编制Form_Click() 过程,从输入框InputBox 并把结果打印在窗体上.正确答案所选答案Private Sub Form_Click()X未给1.-定Dim n As Integer,i As Integer,s As Long X未给2.-定n = Val(InputBox(
11、请输入 n)X未给3.s = 1-定For i = 1 To nX未给4.-定s = s * iX未给文案大全实用文档5.N Next i6.P Print n!= & s7.E End Sub8.问题4编制 Form_Click()过程,从输入框InputBox- 定X 未给- 定X 未给- 定X 未给- 定得0分,总分值20分输入行数n(5Wn10),然后在窗体上输出如以下图形.正确答案,1.Private Sub Form_Click()/2.Dim n As Integer, i As Integer, j AsIntegerZ3. Doj= 5 And n 0x = n Mod 10
12、n = n 10LoopPrint sEnd Sub所选答案X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给-定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给问题110.得0分,总分值20分偏、 编制Form_Click() 过程,从输入框InputBox输入行数n(5 n10),然倒后在窗体上输出n层数字金字塔.文案大全实用文档正确答案所选答案/1.Private Sub Form_Click()22.Dim n As Integer, i As Integer,Z3.Doj= 5 And n 10j6.For i = 1 To n77.Print Tab(
13、n + 1 - i);好.For j = 1 To 2 * i - 1质.Print Trim(Str(i);JNext j10./Print11.JNext i12.JEnd Sub13.问题j As IntegerX 未给-定X 未给-定X 未给X 未给- 定X 未给- 定X 未给- 定X 未给X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给得0分,总分值20分单击窗体,显示出所有的水仙花数.所谓水仙花数,是指一个3位正整数,其各位数字的立方和等于该数字本身.例如：153是水仙花数,由于153=1 3+53+33.文案大全实用文档正确答案P Private S
14、ub Form_Click()1.D Dim i As Integer, b As Integer, s As2. Integer, g As Integer/ For i = 100 To 9993.b b = i1004. s = (i Mod 100) 10g = i Mod 10/ If i = b A 3 + s A 3 + g A 3 Then5., Print i & 是水仙花数6.E End If7.N Next i8.E End Sub9.所选答案X 未给-定X 未给-定X 未给-定X 未给-定单击窗体,求 s=1!+2!+3!+.+10!X 未给-定X 未给-定X 未给-定
15、X 未给-定X 未给-定得0分,总分值20分的值,并把结果显示在窗体上.正确答案所选答案/ Private Sub Form_Click()1.D Dim i As Integer, a As Long, s As Long吗2.aa = 13. s = 0F Fori = 1 To 104.a a = a * i5.X 未给-定x 未给-定X 未给-定X 未给-定X 未给-定文案大全实用文档S s = s + a6.N Next i7.P Print s8.E End Sub9.问题4X 未给- 定X 未给- 定X 未给-定X 未给-定得0分,总分值20分所选答案X 未给- 定X 未给- 定
16、X 未给- 定X 未给- 定X 未给- 定X 未给-定X 未给-定X 未给-定X 未给-定X 未给编制Form_Click() 过程,从输入框InputBox输入行数n(5 n= 5 And n 10/5.For i = 1 To nZ6. Print Tab(n + 1 - i);门.For j= 1 To 2 * i - 188.Print*;Z9.Next jPPrint文案大全实用文档X 未给-定X 未给-定得0分,总分值20分/Next i10.EEnd Sub11.问题5单击窗体,产生 20个从1到600 显不在窗体上,最后在窗体上显不之间的随机整数,并以每行 5个把数据 20个数
17、据中的所有偶数之和.所选答案问题1X 未给- 定s as Long X 未给X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定正确答案, Private Sub Form_Click()1.D Dim i As Integer, x As Integer,2., s = 03./ For i = 1 To 20-4R Randomize5. x = Int(600*Rnd+1) Print x;/ If i mod 5 =0 Then Print6. If x Mod 2 = 0 Then s = s + xN Next i7.P Print s
18、=; s8.E End Sub9.得0分,总分值20分单击窗体,输出以下数字图案行数从输入框InputBox 输入.文案大全实用文档正确答案所选答案八Private Sub Form_Click()X-未给定Z2.Dim n As IntegerX-未给定Z3.n = InputBox(请输入行数)x-未给定八.For i = 1 To nX-未给定Forj = 1 To n/5.If j i ThenX-未给定Z6.Print n + 1- j;X-未给定Z7.ElseX-未给定/8.Print j - i + 1;X-未给定Z9.End IfX-未给定Z10.Next jX-未给定Z11.
19、PrintX-未给定/12.Next iX-未给定/13.End SubX-未给定问题2得0分,总分值20分文案大全编制Form_Click() 过程,从输入框然后在窗体上输出 n层数字金字塔.正确答案,1.Private Sub Form_Click()InputBox输入行数n(5n= 5 And n =10A(-5)4.a a = 1 / (2 * i + 1) 5. s = s + (-1)a i * a/ i = i + 1X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定得0分,总分值20分pi的近似值保存五位小数,并把
20、结所选答案X 未给-定As Single, a As Single X 未给X 未给-定X 未给-定X 未给-定X 未给文案大全实用文档6.L Loop7.P Print pi=; 4*s8.E End Sub9.问题4- 定X 未给- 定X 未给- 定X 未给- 定得0分,总分值20分单击窗体,从输入框InputBox 输入一个整数,判断其是否为素数.例如输入7,那么屏幕上显示“ 7是素数；如果输入的是 9那么屏幕上显示“ 9不 是素数.正确答案力. Private Sub Form_Click()/2.Dim i As Integer, n AsString/3.n = Val(Input
21、Box(n=)J4.If n n-1 Thenj*9.Prime=是素数/Else10.PPrime=不是素数11. End If所选答案X 未给- 定Integer, Prime As X 未给K 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给文案大全实用文档未给定12.End IfPrint n & Prime13.未给定d14.End Sub未给定问题5得0分,总分值20分编制Form_Click() 过程,从输入框InputBox输入两个任意正整数 n和m求出它们的最大公约数,并显示在窗体上.正确答案所选答案Priv
22、ate Sub Form_Click()未给定/2.Dim m As Integer, n As Integer, i As Integer, div As Integer未给定y3.Do未给定/5./9.m = Val(InputBox(m=) n = Val(InputBox(n=)Loop While m = 0 Or n = 0If n m Thendiv = nElsediv = m未给定未给定未给定未给定未给定未给定未给定10.End If文案大全Do Until m Mod div = 0 And n Mod div = 011.y12.div = div + 1未给定未给定实用
23、文档/ LoopX 未给/ Forml.Print m;和；n;的最大公约数是：; X 未给14. div-定/ End SubX 未给问题1得0分,总分值20分单击窗体,求s=1!+2!+3!+.+10! 的值,并把结果显示在窗体上.所选答案正确答案, Private Sub Form_Click()1./ Dim i As Integer, a As Long, s As Long2.aa = 13. s = 0/ Fori = 1 To 104./ a = a * i5.s s = s + a6.N Next i7.J Print s8.J End Sub9.X 未给-定X 未给-定X
24、未给X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给问题2丽得0分,总分值20分编制Form_Click 过程,求以下算式的值,并把结果显示在窗体.文案大全实用文档所选答案X 未给-定正确答案p Private Sub Form_Click()问题3D Dim i As Integer, a As Single,1.aa = 12. s = 1FFor i = 2 To193./ a = (-1) A (i - 1) / (i * (i + 1)4.5. s = s + a6.N Next i7.P Print s8.E End Sub9.s As Single
25、X 未给X 未给-定X 未给-定X 未给-定X 未给-定X 未给-定X 未给-定X 未给-定得0分,总分值20分文案大全所选答案X 未给- 定X 未给- 定X 未给- 定有30个人在用餐,其中有男士、女士和小孩；男士花 30元,女士花20 元,小孩花了 10元,30人共花了 500元.单击窗体,计算出男士、女士、 小孩各有几位,并把结果显示在窗体上.例如“男士 1位,女士 18位, 小孩11位.正确答案,1.Private Sub Form_Click(),2.Dim x As Integer, y As Integer, z AsIntegerw/3.For x = 1 To 50030Fo
26、r y = 1 To 50020实用文档j4.z = 30 - x - y/5.If 30 * x + 20 * y + 10*z = 500 Theny6.Print 男士 & x & 位,;位;小孩& z & 位 End IfJ8. Next yy9. Next x/ End Sub10.问题4单击窗体,输出以下图案行数X 未给- 定X 未给- 定女士 & y & X 未给- 定X 未给- 定X 未给- 定X 未给- 定X 未给- 定得0分,总分值20分n从输入框InputBox 输入.所选答案正确答案/1.Private Sub Form_Click()X-未给定/2.Dim n As
27、IntegerX-未给定73.n = InputBox(请输入行数)X-未给定/4.For i = 1 To nX-未给定Forj = 1 To n/5.If j 0Print sEnd SubX 未给-定x 未给x 未给-定X 未给-定X 未给X 未给-定X 未给-定X 未给得0分,总分值20分单击窗体,从输入框输入一个字符串,判断其是否为“回文 ( Wraptext ) 并在窗体上打印结果. “回文是指字符串顺读与倒读都是一样的,如“潮起潮落,落潮起潮.锄正确答案所选答案/1.Private Sub Form_Click()X 未给,2.Dim s As String ,n as IntegerX 未给文案大全实用文档Z3.s = InputBox(请输入