《2022年2022年湖南省计算机二级考试VB编程题 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年湖南省计算机二级考试VB编程题 .pdf（15页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一个数如果刚好与它的因子之和相等，则称完数。求5 到 100 间的完数之和，结果：34 Sum=0 For n=5 To 100 s=0 For i=1 To n-1 If n Mod i=0 Then s=s+i Next i If s=n Then Sum=Sum+n Next n Print Sum ijk+kji=1333,其中 i,j,k 的范围是 0 到 9，求有几组（i,j,k)满足条件，结果：6c=0 For i=0 To 9 For j=0 To 9 For k=0 To 9 If i*100+j*10+k+k*100+j*10+i=1333 Then c=c+1 Next
2、k,j,i Print c 宴会上共有1225 次握手，每一位参加的人对其他的人都有同样的礼节，那么与会人士有多少，结果：50人数握手数1 0 2 1 3 3 4 6 n 个人的握手数为：1+2+3+。+n-1=1225，解得 n=50 司机开车时里程表读数为一回文数12321 公里，开了 2 小时后里程表又是一个最小回文数，求司机的开车速度。结果：50 下一个最小回文数肯定是12421，（12421-12321）/2=50n=12321 Do n=n+1 a=n 10000 b=n 1000 Mod 10 c=(n Mod 100)10 名师资料总结-精品资料欢迎下载-名师精心整理-第 1
3、页，共 15 页 -d=n Mod 10 Loop While a d Or b c Print(n-12321)/2 好啊好+真的好-真的好啊如果是数字，求该四位数。结果：1098 For h=1 To 9 For a=0 To 9 For z=1 To 9 For d=0 To 9 If h*100+a*10+h+z*100+d*10+h=z*1000+d*100+h*10+a Then Print h;a;h Print z;d;h Print z;d;h;a End If Next d,z,a,h 求 500 以内含 500 能被 5 或 9 整除的所有自然数的倒数之和?按四舍五入的方
4、式精确到小数点后第二位1.48Private Sub Command1_Click()s=0 For i=1 To 500 If i Mod 5=0 Or i Mod 9=0 Then s=s+1/i Next i Print Round(s,2)End Sub 求 S=1/2+2/3+3/5+5/8 的前 30 项的和（注：该级数从第二项开始，其分子是前一项的分母，其分母是前一项的分子与分母的和）要求：按四舍五入的方式精确到小数后第二位结果：18.46 Private Sub Command1_Click()fz=1:fm=2:s=fz/fm For i=2 To 30 t=fz:fz=fm
5、:fm=t+fz:s=s+fz/fm Next Print Round(s,2)End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 15 页 -当 m 的值为 50 时，计算：t=1-1/(2*2)-1/(3*3)-1/(m*m)四舍五入精确到小数点第四位结果：0.3749 Private Sub Command1_Click()t=1 For n=2 To 50 t=t-1/(n*n)Next Print Round(t,4)End Sub 求1.50之间所有整数能构成直角三角形的三边的组数。例如；3*3+4*4=5*5.它构成直角三角形，所以3、4、5 为一组，但
6、视 4、3、5 与3、4、5 为同一组。结果：20 Private Sub Command1_Click()n=0 For a=1 To 50 For b=1 To 50 For c=1 To 50 If a 2+b 2=c 2 And b a And c b Then n=n+1:Print a,b,c Next c,b,a Print n End Sub 求100.900 之间相差为12 的素数对的对数,(难题)，结果：7 Private Sub Command1_Click()Dim a(800)num=0 For i=100 To 900 If isp(i)Then a(num)=i:
7、num=num+1 End If Next For i=1 To num If a(i)-a(i-1)=12 Then n=n+1 Next Print n End Sub Public Function isp(n)isp=True For i=2 To Sqr(n)If n Mod i=0 Then isp=False 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 15 页 -Next End Function 求200,300 之间的有奇数个不同因子的最大整数，（在计算因子个数时，包括1 和该数本身）结果：289 Private Sub Command1_Click()F
8、or n=300 To 200 Step-1 c=0 For i=1 To n If n Mod i=0 Then c=c+1 Next i If c Mod 2=1 Then Print n Next n End Sub 求（200,300）有奇数个不同因子的最小整数。（在计算因子个数时，包括1 和该数本身），结果：225 For n=200 To 300 c=0 For i=1 To n If n Mod i=0 Then c=c+1 Next i If c Mod 2=1 Then Print n Next n 求1000,2000范围内由小到大第100 个索数，结果：1721 Priv
9、ate Sub Command1_Click()n=0 For i=1000 To 2000 If isp(i)Then n=n+1 If n=100 Then Print i:Exit For End If Next i End Sub Public Function isp(n)isp=True For i=2 To Sqr(n)If n Mod i=0 Then isp=False Next End Function 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 15 页 -求具有 abcd=(ab+cd)2 性质的四位数的个数。结果：3n=0 For i=1000 To
10、 9999 ab=i 100 cd=i Mod 100 If i=(ab+cd)2 Then n=n+1 Next Print n 求四位奇数中，各位数之积（积不为0)是 60 的倍数的数之和。结果：3456254Sum=0 For n=1001 To 9999 Step 2 a=n 1000 b=n 100 Mod 10 c=n 10 Mod 10 d=n Mod 10 e=a*b*c*d If e 0 And e Mod 60=0 Then Sum=Sum+n Next n Print Sum S=1+1/(1+2)+1/(1+2+3)+,+1/(1+2+3+,n)，当 N 的值为 50时
11、，求 S得值，结果：1.96078Sum=0 s=0 For n=1 To 50 s=s+n Sum=Sum+1/s Next Print Sum 300,800范围内同时满足以下两个条件的十进制数，（1）其个位数与十位数字之和除以 10 所得的余数是百位数字；（2）该数是素数，求满足上述条件的最大的三位十进制数。结果：761 Private Sub Command1_Click()For n=800 To 300 Step-1 b=n 100 s=n 10 Mod 10 g=n Mod 10 If(g+s)Mod 10=b And isp(n)Then Print n 名师资料总结-精品资料
12、欢迎下载-名师精心整理-第 5 页，共 15 页 -Next End Sub Public Function isp(n)isp=True For i=2 To Sqr(n)If n Mod i=0 Then isp=False Next End Function 斐波那契数列的前二项是1、1 其后每一项都是前面两项之和，求：10000000 以内最大的斐波那契数？9227465a=1:b=1:c=a+b Do a=b:b=c:c=a+b Loop While c 2)名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 15 页 -求 f(0)到 f(50)的所有 51 个值中的最大
13、值？程序设计题：结果：598325Dim f(50)f(0)=1:f(1)=1:f(2)=0:Max=f(0)For n=3 To 50 f(n)=f(n-1)-2*f(n-2)+f(n-3)If f(n)Max Then Max=f(n)Next Print Max 已知：A1=1 A2=1/(1+A1)A3=1/(1+A2）A4=1/(1+A3).求 A50(按四舍五入的方式精确到小数点后第三位）观察：An=1/(1+An-1)，结果：0.618Dim A(50)As Double A(1)=1 For n=2 To 50 A(n)=1/(1+A(n-1)Next Print A(50)已
14、知 Fibonacci 数列：1,1,2,3,5,8.它可由下面公式表达：F(1)=1 if n=1 f（2）=1 if n=2 f(n)=f(n-1)+f(n-2)if n2 试求 f(45)值 提示：最好使用递推法求解（用递推法要用好长的时间还可能得不到解，下面是递推法）结果：1134903170 Private Sub Command1_Click()Print f(45)End Sub Public Function f(n)If n=1 Or n=2 Then f=1 Else f=f(n-1)+f(n-2)End If End Function 最好用下面方法：Dim x(45)A
15、s Long x(1)=1:x(2)=1 For i=3 To 45 x(i)=x(i-1)+x(i-2)Next Print x(45),有一个三位数满足下列条件（1）此三位数的三位数字各不相同（2）此三位数等于它名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 15 页 -的各位数字的立方和。试求所有这样的三位数之和(即水仙花数之和)，结果：1301Sum=0 For b=1 To 9 For s=0 To 9 For g=0 To 9 n=b*100+s*10+g If b s And s g And b g And n=b 3+s 3+g 3 Then Sum=Sum+n
16、End If Next g,s,b Print Sum 已知S1=2 S2=2+4 S3=2+4+6 S4=2+4+6+8 S5=2+4+6+8+10.求S=S1+S2+S3+S4+S5+.+S20 的值，(仔细观察得出：Sn=Sn-1+2*n)，结果：3080Sum=0 s=0 For n=1 To 20 s=s+2*n Sum=Sum+s Next Print Sum 一爱因斯坦上楼梯，一次跨2 级剩 1 级，一次跨4 级剩 3 级，一次跨5 级剩正好（其腿也太长），求楼梯最少有多少级？同题：韩信点兵，2 人一组剩1 人，4 人一组剩3 人，5 人一组正好，求这队士兵最少多少人？Priva
17、te Sub Form_Click()s=1 Do While s Mod 2 1 Or s Mod 4 3 Or s Mod 5 0 s=s+1 Loop Print s End Sub 二当 n=50 时，求下列级数和：S=1/（1*2）+1/（2*3）+,+1/（n*(n+1)按四舍五入的方式精确到小数点后第四位。结果：0.9804 Private Sub Form_Click()s=0 For n=1 To 50 s=s+1/(n*(n+1)Next n 名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 15 页 -Print Round(s,4)End Sub 三计算 y
18、=1+2/3+3/5+4/7+,+n/(2*n-1)的值，n=50,要求：按四舍五入的方式精确到小数点后第二位。结果：26.47 Private Sub Form_Click()y=0 For n=1 To 50 y=y+n/(2*n-1)Next n Print Round(y,2)End Sub 四水仙花数和。结果是：1301 Private Sub Form_Click()y=0 For b=1 To 9 For s=0 To 9 For g=0 To 9 n=100*b+10*s+g If n=b 3+s 3+g 3 Then y=y+n Next g,s,b Print y End
19、Sub 五把一张一元钞票，换成一分、二分和五分硬币，每种至少11 枚，有多少种方案？结果：13（同题：百马驮百瓦、百钱买百鸡。）Private Sub Form_Click()s=0 For a=11 To 100 For b=11 To 50 For c=11 To 20 If a+b*2+c*5=100 Then s=s+1 Next c,b,a Print s End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 15 页 -VB期末范围题总汇1 求随机 10 个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command
20、1_Click()Randomize Picture1.Print 产生的随机数为：For i=1 To 10 a(i)=Int(Rnd*99+1)Picture1.Print a(i);Next i Picture1.Print End Sub Private Sub Command2_Click()Dim max,min,ave max=a(1)min=a(1)ave=0.1*a(1)For i=2 To 10 If a(i)max Then max=a(i)If a(i)n1 Then 为了求最小公倍数，增加m,n 变量m=m1:n=n1 Else m=n1:n=m1 End If Do
21、 r=m Mod n If r=0 Then Exit Do m=n n=r Loop Print n1;,;m1;的最大公约数为;n Print 最小公倍数=,m1*n1/n End Sub 7.求逆序数（感觉题目类型太多）8.级数有限项求和问题（题目类型太多）9.求质因子问题Private Sub Command1_Click()Dim N As Integer,I As Integer N=Val(InputBox(请输入 2 的整数:)I=2 Do If N Mod I=0 Then Print I;名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 15 页 -N=N I
22、 Else I=I 1 End If Loop While N 1 End Sub 10.字符统计Option Base1 Option Explicit Private Sub Command1_Click()Dim i as integer，A(26)as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl)For i=1 To n S=Mid(Strl,i,1)If UCase(S)=”A”And UCase(S)=”Z”Then A(Asc(UCase(S)-64)+1 End If N
23、ext i For i=1 To 26 List1.Additem Chr(64+i)&“:”&A(i)Netx i End Sub Private Sub Command_Click()End End Sub 第二大题1.判定素数过程Function isprime(Num As Long)As Boolean If Num=B,A,B)x存入最大值Y=IIf(A a(j)Then t=a(j-1)a(j-1)=a(j)a(j)=t End If Next Next End Sub 4 顺序查找过程Private Sub Command1_Click()Dim i,j,t,a(1 To 10)Randomize Print 原数组:For i=1 To 10 a(i)=Rnd*10 Print a(&i&)=&a(i)&Space(2),If i Mod 2=0 Then Print Next i Print For i=1 To 9 For j=i+1 To 10 If a(j)a(i)Then t=a(i)a(i 名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 15 页 -