《计算机VB期末考试题库.pdf》由会员分享，可在线阅读，更多相关《计算机VB期末考试题库.pdf（64页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、基本题1 V isu a l Ba sic 程序中语句行的续行符是(D )。设a=2,b=3,c=4,d=5,下列表达式的值是(B).2A b AND c d OR 2*a c3 用作字符串连接符时，下列说法正确的是(C)。“+”用作字符串连接符时，下列说法正确的是(B)。5 X 是小于100的非负数”，用 V B表达式表示正确的是(C)。6 2*S qr(4)的值是(A)。7 Ab s(-3.14)的值是(D)。8 D o 循环语句是根据条件决定循环的语句的，下列说法正确的是(B)。Fo r语句的格式如下，下列说法错误的是(A)Fo r 循环变量=初值t o 终值 st ep 步长 9 循环
2、体 ex it f o rNex t 循环变量 10 I npu t Bo x 函数返回值的类型是(B)o11 I nt (2 3.5 12)的值为(D)。12131415161718192 02 12 22 3242 52 62 72 82 93 03 13 23 33 43 5Len(a b 湖南长沙)的值是(B)。s$=a b c d ef ghij k”,l ef t$(s$,4)的值是(C)。s$=a b c d ef ghij k”,Mid$(s$,1,4)的值是(C)。s$=a b c d ef ghij k”,Right$(s$,4)的值是(B)。U Ca se$(Ab c )
3、的值为(C)0V B 窗体默认的坐标单位是(C)。V B6.0中专门为程序代码的书写提供了一个(A)窗口。V B 把开发一个应用程序视为一项工程，用创建工程的方法来创建一个应用程序，并利用(A)窗口来彳V isu a l Ba sic 窗体设计器的主要功能是(A)。变量x的值为3,y的值为4,执行下列哪个语句后，可输出表达式：3+4=7 (A)。标签所显示的内容，由(C)属性值决定。表达式11 Mo d 4/2的值是(D)o表达式I nt(9 0*rnd()+10的值的范围是(D )0表达式中包含下述多种运算时，计算机会最后进行(D )运算。不属于V B三种工作模式的是(C)。窗体标题栏显示的
4、内容由窗体对象的(D )属性决定。从功能上讲,V isu a l Ba sic 6.0有 3 种版本,下列不属于这3 种版本的是(B)。粗体字由(D)属性设置。单选按钮的控件名称为(D)o当窗体被启动时，(A)事件将会发生。当窗体的被移动时，将会发生的事件是(A)o定时器的定时间隔单位是(C)O关于V B源代码的编写，下列说法错误的是(D)。关于V B中程序运行的方式，以下说法正确的是(D )03 6关于V isu a l Ba sic 中事件的说法中，不正确的为（D ）。3 73 83 94 04 14 24 34 44 54 64 74 84 95 05 15 25 35 4关于逻辑型数据
5、，下列说法错误的是（B）o关于条件语句，下列说法错误的是（D）o函数过程是以（A）保留字开始的。假定窗体的名称（Na me属性）为Fo rml,则把窗体的标题设置为“V B T est”的语句为（B）。将数值型数据转换成字符串型数据的函数是（B）o将数字字符串转换成数值型常数的函数是（D）。命令按钮的标题文字由（B）属性来设置。默认情况下，语句：D i m s t u d e n t （1 0,5）定义的数组有（B）个元素。默认情况下，语句：D i m s t u d e n t（1 0 0）定义的数组有（D）个元素。某一变量要求在程序各模块中均可使用，应 在（C ）中用P u b l i c
6、 声明该变量。清除当前V B 窗体上文本信息的方法是（A）。求字符串长度的函数是（A）o闰年的条件是年号（y e a r）能被4 整除，但不能被1 0 0 整除，或者能被4 0 0 整除。则闰年的布尔表达式/（B）o若要获得滚动条的当前值，可通过访问（B）属性来实现。若要将隐藏的窗体显示出来，实现的方法为（O O若要求向文本框输入密码时，只在文本框中显示*号，则应当在此文本框的属性窗口中设置（D）若要设置定时器的定时间隔设为2 秒，应将I n t e r v a l 属性值设为（C）。若要设置文本框中的文本，可通过文本框对象的（A）属性来实现。5 5 若要设置文本框最大可接收的字符数，可通设置
7、（D）属性值来实现。5 6 若要使定时器起作用，应将其（D）属性设置值设为Tr u e。5 7 若要使命令按钮在运行时不可见，可通过设置（A）属性的值为F a l s e 来实现。5 8 若要文本框在失去控制焦点后，执行某一动作，可以对（D）事件进行编程。设 a,b,c 为整型变量，其值分别为1,2,3,以下程序段的输出结果是（D ）。5 9 a=b:b=c:c=aP r i n t a;b;c设a=2,b=3,c=4,d=5,下列表达式的值是（B）。603 2*b O R a=c A N D b O c O R c m the n m=bi f c m the n m=cM a x=mEn
8、d Fun c ti o n已知一窗体中有如下函数过程和一命令按钮Co m m a n d l,且 Co m m a n d l 的Cl i c k事件中只有-.行命令：P ri n t M i n(1 0,2 0,3 0),则单击Co m m a n d l 时,输出结果 为(1 0 )0P ri va te Fun c ti o n M i n(a,b,c)m=a1 7i f b m the n m=bi f c=y the n a=y e l se a=a-y-1 7P ri n t a以下程序段的输出结果是（B）oS c o re=i n t（rn d*5）+80S e l e c t
9、 Ca se sc o reCa se 6 0 to 6 9：a$=“D”Ca se 7 0 toa$=“C”Ca se 80 to 89:a$=“B”Ca se e l se:a$=“A”En d se l e c tP ri n t a$以下程序段的输出结果是（2 1 ）oA=l：b=2：t=0i f a b the n t=a:a=b:b=tP ri n t a;b以下程序段的输出结果是(1 )ON=1 3:a=2m=n m o d 1 0S e l e c t Ca se m3 2 Ca se i s0:a=lEn d se l e c tP ri n t a以下程序段的输出结果是(1
10、 1 1 )OFo r k=l to 3i f k =1 the n a=33 3i f k =2 the n a=2i f k =y the n a=y e l se a=a-yP ri n t a以下程序段的输出结果是（5 1 5 1 ）oWhi l e n 43 7x=x*y：y=y+1l o o pP ri n t x以下程序段的输出结果是（1 5 ）。A=0Fo r j=l T O 1 53 8a=a+（j M O D 3）N e xt jP ri n t a以下程序段的输出结果是（2 3 ）oA=2 33 9whi l e a*2 O a+4 6a=a+lwe n da=a-2 3
11、P ri n t a以下程序段的输出结果是（5 0 5 0 ）oN=1:s=0d o4 0s=s+n :n=n+ll o o p un ti l n 1 0 0P ri n t s以下程序段的输出结果是（5 0 5 0 ）oN=l:s=0d o4 1s=s+n :n=n+1l o o p whi l e n=1 0 0s=s+n :n=n+ll o o pP ri n t s以下程序段的输出结果是（5 ）oN=4：k=l：1=0Fo r 1=1 to n4 3k=k*IN e xt IP ri n t I以下程序段的输出结果是（2 4 ）oN=4：k=l：1=0Fo r 1=1 to n4 4
12、k=k*IN e xt IP ri n t k以下程序段的输出结果是(1 2 3)oN um 二 0Whi l e n um=2n um=n um+1P ri n t n um;We n d以下程序段的输出结果是(1 23 )。P ri n tP ri n t 3 以下程序段的输出结果是(1 2 3)o4 7 P ri n tP ri n t 3 以下程序段的输出结果是(1 23 )。P ri n t 1;2P ri n t 3以下程序段的输出结果是（1 0 ）。S um 二 0Fo r j=l to 1 0i f j=1 0 the n4 9sum=sum+je n d i fN e xt
13、jP ri n t sum以下程序段的输出结果是(2 )oX=0:n=0Do Whi l e x5 05 0 x=(x+2)*(x+3)n=n+lL o o pP ri n t n以下程序段的输出结果是（7 2 ）oX=0:n=0Do Whi l e xn the n m a x=bi f c n the n m a x=cP ri n t n以下程序段运行的结果为()。Di m m(l),s：s=05 3 Fo r 1=1 to 5m(I)=Is=s+m(I)N e xt IP ri n t s以下程序段运行的结果为（2 5）。Di m m(1 0)Fo r 1=1 to 55 4N e x
14、t IP ri n t m（I-l）以下程序段运行的结果为（1 6 ）。Di m m(1 0)Fo r 1=1 to 55 5m(I)=I*IN e xt IP ri n t m（I-2）以下程序段运行的结果为（1 5）。5 6Di m m(1 0),s:s=0Fo r 1=1 to 5m(I)=Is=s+m(I)N e xt IP ri n t s执行如下程序段后，s 的值为(2 3 )。5 7 Di m 1%,j%,s As stri n gI=2:j=3:s=I&j执行下列语句：i n ti%=2 85 8 i f i n tl 3 0 the n P ri n t i n tl=3 0
15、”其输出结果为(i n tl=3 0 ).执行下面的程序段后，a的 值 为(1 4 )oFo r 1=1 T o 35 9Fo r j=l T o IFo r k=j T o 3a=a+lN e xt k,j,I执行下面的程序段后，I的 值 为（1 2 ）。X=5Fo r 1=1 T o 1 0 S te p 2x=x+（I 3）N e xt Ip ri n t I执行下面的程序段后，I的值为（5 ）oS =5Fo r I =2.5 T o 4.6 S te p 0.5s=s+1N e xt Ip ri n t I执行下面的程序段后，s的值为（1 0 ）oS =56 2Fo r I =2.5
16、T o 4.6 S te p 0.5S=s+1N e xt Ip ri n t S执行下面的程序段后，x 的 值 为(9)：x=5Fo r 1=1 T o 1 0 S te p 26 3x=x+(I M o d 3)N e xt IP ri n t x程序改错1、程序功能：把一张百元钞票，换成一元、二元和五钞票，每种至少8 张，求对换方案数。程序中有两行有错误。改正错误，使它能输出正确的结果 80种Private Sub Commandl_Click()n=0下一行程序有错！Forx=1 To 100 改成 For x=8 tolOOFor y=8 To 50For z=8 To 20下一行程
17、序有错！If x+y+z=100 Then n=n+1 改成 If x*l+y*2+z*5=100 thenNext zNext yNext xEnd sub2、程序功能：猴子第1 天摘下若干桃子，当即吃掠半，又多吃个，第二天将剩余的部分吃掉一半还多一个；以此类推，到 第 10天只剩余1个。问 第 1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果 1534Private Sub Form_Click()Dim day As Integer,sum As Integer 下一行程序有错！day=10;sum=1 改 成：不是；Do While day 1 下一行程序有错！s
18、um=sum*2-2 改成 sum=(sum+l)*2day=day-1LoopPrint sumEnd Sub3、程序功能：计 算 y=1+2/3+3/5+4Z7+-+n/(2*n-1 )(n=50),要求：按四舍五入的方式精确到小数点后第二位。程序中有一处错误。改正错误，使它能输出正确的结果 26.47Private Sub Commandl_Click()Dim s As SingleDim n As Integers=0For n=1 To 50下一行程序有错s=s+n/2*n-1 改成 s=s+n/(2*n-l)Next nPrint Round(s,2)End Sub4、程序功能：
19、计算两个数的最大公约数。程序中有一处错误，改正错误，使程序能输出正确结果 13Private Sub Command l_Click()Print fun(14339,507)End SubPrivate Function fun(u,v)m=uFori=mTo 1 Step-1If v Mod I=0 And u Mod I=0 Then 下一行程序有错！Fun=1 改成 Fun=IExit ForEnd IfNext IEnd Function5、程序功能：计算两个数的最小公倍数。程序中有一处错误，改正错误，使程序能输出正确结果 26288Private Sub Command 1 _Cl
20、ick()Print fun(248,848)End SubPrivate Function fun(u,v)t=uDo While t Mod u 0 Or t Mod v o 0t=t+uLoop 下一行程序有错fun=u 改成 fun=tEnd Function6、程序功能：求11,130间所有整数的立方和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果 72505225Private Sub Command l_Click()下一行程序有错！Dim s As IntegerDim x As Integerx=1s=0不一行程序有错!改成 Dim s As LongDo W
21、hile x 130改成 DoW hilex=130s=s+x A 3X =X 4-1LoopPrint sEnd Sub7、程序功能：求 351,432之间既不能被3整除，也不能被8整除的正整数的个数。程序中有一处错误。改正错误，使它能输出正确的结果 47Private Sub Command l_Click()Dim c As IntegerDim x As IntegerFor x=351 To 432If x Mod 3 0 And x Mod 8 0 Thenc=c+1End If下一行程序有错Next cPrint c改 成Next xEnd Sub8、程序功能：求1 200之间的
22、能被7整除的数的平方和。程序有一处错误。改正错误，使它能输出正确的结果 377986Private Sub Command 1 _Click()Dim x As IntegerDim sum As Longx=1sum=0While x=200下一行程序有错If x/7=0 Then 改成 If x mod 7=0Thensum=sum+x 八 2End Ifx=x+1WendPrint sumEnd Sub9、程序功能：求 1 200之间能被7 整除的数的平方和。程序有一处错误。改正错误，使它能输出正确的结果 377986Private Sub Command l_Click()Dim x
23、As Integer 下一行程序有错Dim sum As Integer 改成 Dim sum As Longx=1sum=0While x=200IfxM od7=0Thensum=sum+x A 2End IfX =X +1WendPrint sumEnd Sub10、程序功能：求 160之间的所有整数的平方和。程序中有错误。改正错误，使它能输出正确的结果 73810Private Sub Commandl_Click()Dim s As LongDim x As Integers=0For x=1 To 60s=s+x A 2 下一行程序有错Next s 改成 Next xPrint s
24、End Sub11、程序功能：求 19 9 的平方根的和并输出结果。(保留小数点两位)，程序中有错误。改正错误，使它能输出正确的结果 661.46Private Sub Command 1 _Click()Dim x As Integer 下一行程序有错Dim sum As Integer 改成 Dim sum As Singlex=1Do While x=99sum=sum+Sqr(x)x=x+1LoopPrint Round(sum,2)End Sub12、程序功能：求 I 到 400间，同时能被3 和 7 整除的数的个数。程序中有一处错误。改正错误，使它能输出正确的结果 19Privat
25、e Sub Form_Click()Dim count As IntegerDim x As IntegerForx=1TO400 下一行程序有错If Mod(x,3)=0 And Mod(x,7)=0 Then 改成 If x mod 3=0 and x mod 7=0 Thencount=count+1End IfNext xPrint countEnd Sub13、程序功能：求 200到 400间，能被3 整除但不能被7 整除的数的个数。程序中有错误。改正错误，使它能输出正确的结果 57Private Sub Command l_Click()Dim count As IntegerDi
26、m x As Integercount=0 x=200While x=400If x Mod 3=0 And x Mod 7 0 Thencount=count+1End IfX =X 4-1 下一行程序有错Loop 改成 WendEnd sub14、程序功能:求S=l+l/2+l/3+1/100,程序中有两行错误。改正错误，使它能输出正确的结果 5.197278Private Sub Command 1 _Click()suml=sumd(100)Print sumlEnd SubPrivate Function sumd(n As Integer)As Singlei=0Doi=i+1S=
27、S 4-1 /I 下一行程序有错！Loop Until I n 下一行程序有错！Sumd=I 改为：sumd=sEnd Function15、程序功能：求 s=l+3+5+7+.直到s2000为止。程序中有一行有错误。改正错误,使它能输出正确的结果 2025Private Sub Command l_Click()Dim i As Integer,s As Longs=0i=1Do Until s 2000s=s+i 下一行程序有错i=i+1 改成 i=i+2LoopPrint sEnd Sub16、程序功能：求个位数是6,且能被3 整除的所有四位数之和。程序中有一行错误，改正错误，使程序能输
28、出正确的结果 1653300Private Sub Commandl_Click()Dim i%Dim s&s=0Fori=1000 To 9999 下一行程序有错！If i Mod 3=0 and i Mod 1000=6 Then 改成 If i mod 3=0 and I mod 10=6s=s+iEnd IfNext IPrint sEnd Sub17、程序功能：求所有符合算式ij*ji=130()的最小数ij。其中i、j 是 19 之间的一位整数。程序中有一行错误。改正错误，使它能输出正确的结果 25Private Sub Command 1 _Click()For i=1 To 9
29、Forj=1 To 9 下一行程序有错！Ifij*ji=1300 Then 改成 If(i*10+j)*(j*10+i)=1300 ThenPrint 10*i+jExit SubEnd IfNext jNext IEnd Sub18、程序功能：我国今年的国民生产总值为275600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?程序中有两行有错误。改正错误，使它能输出正确的结果。9Private Sub Commandl_Click()Dim p As Long,pl As LongDim n As Integern=0pl=275600P=P1Do 下一行程序有错！
30、p=p*(1+9)改成 p=p*(l+9%)八 nn=n+1 下一行程序有错！Loop Until p=2*pPrint nEnd Sub19、程序功能：有一堆零件(零件个数不超过1 0 0 0),如果分成4 个零件一组余2 个；7 个一组余3 个；9 个一组余5 个。求这堆零件的个数有几种可能。程序中有错误，改正错误,使程序能输出正确的结果。4Private Sub Command l_Click()Forx=ITo 1000 下一行程序有错！If x Mod 4=2 Or x Mod 7=3 Or x Mod 9=5 Then 改 成 把 or 改为 andi=i+1End IfNext
31、xPrint iEnd Sub20、程序功能：建 立 个 过 程 来 计 算 11的阶乘，程序中有错误，改正错误，使程序能输出正确的结果 39916800Private Sub Command l_Click()Call n(ll)End SubPublic Sub n(a As Integer)Dim i As IntegerDim f As Long 下一行程序有错f=0 改 成 f=lFor i=1 To af=f*iNext iPrint fEnd Sub21、程序功能：按以下递归公式求函数fun(10)的值。其中函数过程中有一处错误，改正错误，使它能输出正确结果。28n=l 时 fu
32、n(n)=10nl 时 fun(n)=fun(n-l)+2Private Sub Command l_Click()Print fun(10)End SubPrivate Function fun(n As Integer)As IntegerDim c As IntegerIfn=1 Thenc=10Elsec=fun(n-1)+2End If 下一行程序有错！F=c 改成 fun=cEnd Function22、程序功能：计 算 1000以内，既能被6 整除又能被8 整除的数的个数。程序中有一行错误。改正错误，使它能输出正确的结果 41Private Sub Command I_Click
33、()Dim n As IntegerDim x As Integerx=1n=0Do While x 1+3+3)。程序中有一行错误，改正错误，使程序能输出正确的结果。295Private Sub Form_Click()m=0Fori=100 To 500a=i 100b=i 10 Mod 10c=iMod 10Ifa*b*c a +b+c Then 下一行程序有错！m=m+i 改成 m=m+lEnd IfNext iPrint mEnd Sub24、程序功能：某班级有学生若干名(不超过50名)，依次编号为1,2,3,除去编号1与 2 的两名学生外，所有学生编号之和是100的整数倍，问共有学
34、生多少人。程序中有错误，改正错误，使程序能输出正确的结果 37Private Sub Commandl_Click()Dimk%,i%T为学生人数，K 为学生编号之和k=0For i=3 To 50 下一行程序有错！k=k 4-1 改成 i=i+lIf k Mod 100=0 Then 下一行程序有错！Exit Do 改成 Exit ForEnd IfNext iPrint iEnd sub25、程序功能：某试卷由26个问题组成，答对一题得8 分，答错一题扣5 分。今有一考生虽然回答了全部26个问题，但所得总分为零，问他答错多少题。程序中有错误，改正错误,使程序能输出正确的结果 16Priva
35、te Sub Command l_Click()Dimi%,j%i代表正确数，j 代表错误数For i=1 To 26j=26-i 下一行程序有错！If 8*i o 5*j Then Print j 改成 If 8*i-5*j=0 Then Print jNext iEnd Sub26、程序功能：求 10,1000 之间满足除以7 余 5、除以5 余 3、除以3 余 1 的所有整数的个数。程序中有错误。改正错误，使它能输出正确的结果 9Private Sub Commandl_Click()Dim x As IntegerDim n As Integern=0Forx=lOTo 1000 下一
36、行程序有错If x Mod 7=5 Or x Mod 5=3 Or x Mod 3=1 Then 改成把 or 改为 andn=n+1End IfNext xPrint nEnd Sub27、程序功能：求 当 N=20时，l/(l*2)+l/(2*3)+l/(3*4)+.+”(N*(N+l)的值。要求：按四舍五入的方式精确到小数点后第二位。程序中有一行错误。改正错误，使它能输出正确的结果 0.95Private Sub Command l_Click()下一行程序有错！Dim s As Integer 改成 Dim s As SingleDim n As Integers=0n=1Do Whi
37、le n 2000 Then 改成 If i*i2000 ThenPrint iExit ForEnd IfNext iEnd Sub29、程序功能：已知一个数列的前2 项 为 1、1,以后每项为前2 项的和，求此数列的第36项。程序中有两处错误。改正错误，使它能输出正确的结果 14930352Private Sub Command l_Click()Dim a(36)As LongDim i As Integera(l)=1:a(2)=1 下一行程序有错Fori=1 To 36 改成 Fori=3 To 36a(i)=a(I-1)+a(I-2)Next I 下一行程序有错Print a(i)
38、改成 Print a(36)End Sub程序填空1、求 1000,20000 之间最大的素数Private Sub Form_Click()Dim n As LongDim flag As Booleann=20000Doflag=TrueFor m=2 To Sqr(n)If n Mod m=0 Thenflag=falseExit ForEnd IfNextIf Not flag Thenn=n-1End IfLoop Until flagPrint nEnd Sub答案：199972、马克思曾经做过这样道趣味数学题：有 3 0 个人在一家小饭店里用餐，其中有男人、女人和小孩，每个男人花
39、了 3 先令，每个女人花了 2 先令，每个小孩花了 1先令，共花去 34先令。求小孩的人数Private Sub Command l_Click()n=0For m=1 To 28For w=1 To 28c=n+ls=m*3+w*2+cIf s=34 Then Print cNext wNext mEnd Sub此程序为解出，下面是另外设计的个程序Private Sub Commandl_Click()Dim m As Integer,w As Integer,c As IntegerFor m=1 To 28For w=1 To 28c=30-m-wIf m*3+w*2+c=34 Then
40、 Print cNext wNext mEnd Sub答案：273、“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如：153=1八 3+5八 3+3八 3c求 100至 999的范围内所有奇数中的水仙花数之和Private Sub Form_Click()Dim i%,a%,b%,c%,sum%FontSize=14:FontBold=TruePrint:Print:Printsum=01=100Doa=I 100b=I 10 Mod 10c=I Mod 10If a*a*a+b*b*b+c*c*c=I Thensum=sum+IEnd If1=1+1Loop While I=99
41、9Print sumEnd Sub答案：13014、编程，求所有符合算式ij*ji=1300的最大数ij(即 i*1 0+j)其中i、j 是 1一9 之间的一位整数Private Sub Form_Click()Dim i As Integer,j As IntegerFontSize=14Font Bold=TrueFori=9To 1 Step-1For j=9To 1 Step-1m=i*10+jIf(i*10+j)*(j*10+i)=1300 ThenPrint mExit SubEnd IfNext jNext iEnd Sub答案：525、编程计算sum=2!+4!+6!+(2X
42、n)!,其中n 是整数，设 n=7,求 sum的值Private Sub Command 1 _Click()Dim i%,s#,sum#sum=0s=1n=7For i=2 To 2*n Step 2s=s*i*(i-l)sum=sum+sNext iPrint sumEnd Sub答案：476609626666、编程求199的平方和并输出结果Private Sub Form_Click()Dim i As Integer,s As SingleFor i=1 To 99s=s+i-iNext iFontSize=12FontBold=TruePrint sEnd Sub答案：3283507
43、、编程求1 到 5000之间的能被5 整除的前若干个奇数之和，当和大于 500时，终止求和,并输出该和Private Sub Form_Click()Dim i As Integer,s As LongFontSize=14FontBold=TrueFor i=l To 5000 annd i mod 5=0If i Mod 2 0 Then s=s+iIfs500 Then Exit ForNext iPrint sEnd Sub答案：5298、编程求在10()0以内能被17或者23整除的正整数的个数Private Sub Commandl_Click()Dim count As Integ
44、erDim x As IntegerForx=1 To 1000If x Mod 23=0 or x Mod 17=0 Thencount=count+1End IfNext xPrint countEnd Sub答案：999、编程求在四位数的奇数中，所有各位数字之和是25的倍数的数之和Private Sub Form_Click()Dim m%a%,b%,c%,d%,s&s=0FontSize=14:FontBold=TruePrint:Print:PrintForm=1001 To 9999 Step 2a=Int(m/1000)b=Int(m-1000*a)/100)c=Int(m-10
45、00*a-100*b)/10)d=m Mod 10If(a+b+c+d)Mod 25=0 Thens=s+mend ifNext mPrint sEnd Sub答案：129851510、编程序求四位数的偶数中，所有各位数字之积(且不为0)是 60的倍数的数之和Private Sub Command l_Click()sum=0Fori=1000 To 9999 Step 2dl=i Mod 10d2=(i 10)Mod 10d3=(i 100)Mod 10d4=i 1000d=dl*d2*d3*d4If d mod 60=0 and dv 0 Thensum=sum+iend ifNext i
46、Print sumEnd Sub答案：283200611编写程序，求 1500,6789 之间的所有素数的个数Private Sub Command l_Click()Dim x As Long,Number,i As IntegerFontSize=14:FontBold=TrueNumber=0Forx=1501 To 6789 Step 2i=2:k=Int(x/2)Do While i k Then Exit Doi=i+1LoopIf i k ThenNumber=Number+1End IfNext xPrint NumberEnd Sub答案：634另解：Private Sub
47、Commandl_Click()Number=0Forx=1501 To 6789 Step 2i=2k=Int(x/2)Do While i k ThenNumber=Number+1End IfNext xPrint NumberEnd Sub12、编写一个程序，求一个最大的正整数N,使 N!=80Print nEnd Sub答 案:2115、求 1701,10000 之间最小的素数Private Sub Form_Click()Dim n As LongDim flag As Booleann=1701Doflag=TrueFor m=2 To Sqr(n)If n Mod m=OThe
48、nflag=FalseExit ForEnd IfNext mIf Not flag Thenn=n+1End IfLoop Until flagPrint nEnd Sub答案：170916、求 5000,6000 之间的最大素数Private Sub Form_Click()Dim n As IntegerDim m As IntegerDim nlsPrime As BooleanForn=6000 To 5000 step-1nIsPrime=TrueForm=2To Sqr(n)If n Mod m=0 ThennlsPrime=FalseExit ForEnd IfNext mIf
49、 nlsPrime ThenPrint nExit ForEnd IfNext nEnd Sub答 案:598717、求 11937和 32136的最大公约数 可以算出来的Private Sub Form_click()Dim a As IntegerDim b As IntegerDim i As IntegerDim t As Integera=11937b=32136If a bThen t=a:a=b:b=ti=aDo While gcd(a.b)i=i-1LoopPrint iEnd Sub另解：Private Sub Commandl_Click()Print fun(11937,
50、32136)End SubPrivate Function fun(u,v)As Integert=u Mod vWhile(t 0)u=vV=tt=u Mod vWendfun=vEnd Function答案：318、求 11937和 32136的最小公倍数 算出来的Private Sub Form_click()Dim a As IntegerDim b As IntegerDim i As Longa=11937b=32136i=aDo While a*b/gcd(a.b)_i=i+aLoopPrint iEnd Sub另解：Private Sub Command l_Click()Pr