《VF程序设计编程题答案》由会员分享，可在线阅读，更多相关《VF程序设计编程题答案（15页珍藏版）》请在金锄头文库上搜索。
1、第六章 程序设计编程题(3)下面程序的运行结果是()2008年4月选择题14SETEXACTONS=ni+SPACE(2)IFs=niIFs=ni?oneELSE?twoENDIFELSEIFs=ni?threeELSE?fourENDIFENDIFRETURNA)oneB)twoC)threeD)four1. 求园的面积（要求判断半径是否合理）CleaInpu r= to rIf r0 S=3.14*r*r ?sElse ?半径错误！Endif2. 求分段函数Y的值Y=2x5 x0x x=0| x | x0 Y=2*x+5Else If x=0Y=x ElseY=abs(x) EndifEn
2、dif?y3. 输入一个百分制成绩判断其等级（优/良/中/及格/不及格）CleaInpu cj= to cjDo case Case cj=90?优 Case cj=80?良 Case cj=70?中 Case cj=60?及格 Orth?不及格Endcase4. 输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格）CleaInpu 请输入处理几个人的成绩： to nFor i=1 to nInpu cj= to cjDo case Case cj=90?优 Case cj=80?良 Case cj=70?中 Case cj=60?及格 Orth?不及格Endcaseendf
3、or5. 求S1+2+3. . . . . .+100CleaS=0For i=1 to 100 S=s+iEndfor?s 6. 求S123. . . . . .100Cleap=1For i=1 to 100 p=p*iEndfor?p7. 求S1+3+5. . . . .+99CleaS=0For i=1 to 99 step 2 S=s+iEndfor?s8. 求S12+34. . . . . .100CleaS=0For i=1 to 100 S=s+(-1)(i+1)*iEndfor?s9. 求S1+1/2+2/3+3/5. . . . . .前10项之和CleaS=0A=1B=1
4、For i=1 to 10 S=s+a/b T=a A=b B=t+bEndfor?s10. 求S1！+2！+3！. . . . . .+10！CleaS=0P=1For i=1 to 10P=p*i S=s+p Endfor?s11. 对学生表中所有入学成绩650分的学生免去贷款CleaUse 学生Scan for入学成绩=650 .and. 贷款否=.t. Repl贷款否 with .f.EndscanUse* * * * * * * * * * * * * * * * * * * * *12. 输出图形CleaFor i=1 to 4 For j=1 to i?* Endfor ?End
5、forCleaFor i=1 to 4 For j=1 to 4-i? &有一个空格 Endfor For j=1 to 2*i-1?* Endfor ?EndforCleaFor i=1 to 4 For j=1 to 4-i? &有一个空格 Endfor For j=1 to i?* Endfor ?Endfor13. 判断一个整数是否素数CleaInpu x= to xFor i=2 to x-1 If mod(x,i)0Loop ElseExitEndifEndforIf ix-1 ?x,是素数Else ?x,不是素数Endif14. 判断十个整数是否素数CleaFor j=1 to
6、10Inpu x= to xFor i=2 to x-1 If mod(x,i)0Loop ElseExitEndifEndforIf ix-1 ?x,是素数Else ?x,不是素数EndifEndfor15. 找出两个数的大数和小数CleaInpu x= to xInpu y to yIf xy ?x,大,y,小Else ?y,大,x,小Endif16. 找出三个数的最大数和最小数CleaInpu x= to xInpu y to yInpu z to zIf xy t=xx=yy=tElse If xz t=xx=zz=t endifendifif yz t=yy=zz=tendif?x,
7、是最大数,z,是最小数17. 找出十个数的最大数和最小数CleaDime a(10)For i=1 to 10 Inpu to a(i)EndforMax=a(1)Min=a(1)For i=2 to 10 If maxa(i) Min=a(i)Endif EndifEndfor?max,min18. 找出23矩阵中的最大数和最小数cleadime a(2,3)for i=1 to 2 for j=1 to 3input a(+str(I,2)+,+str(j,2)+)= to a(I,j) endforendformax=a(1,1)min=a(1,1)for i=1 to 2 for j=
8、1 to 3if max a(I,j) min= a(I,j) endifendif endforendfor?max=,max,min=,min19. 对三个整数从大到小排序ClearInput a= to aInput b= to bInput c= to cIf ab T=a A=b B=tElse If ac t=a A=cc=t endifendifIf bc T=b A=c c=tendif?a,b,c20. 对十个整数从大到小排序（用选择法和起泡法两种方法）选择法:ClearDime a(10)For i=1 to 10 Input to a(i)EndforFor i=1 to
9、 9 Max=a(i) Num=i For j=i+1 to 10If maxa(j) max=a(j) Num=jEndif Endfor If inum t=A(i) a(i)=a(num) a(num)=t EndifEndforFor i=1 to 10 ?a(i), Endfor起泡法：ClearDime a(10)For i=1 to 10 Input to a(i)EndforFor i=1 to 9 For j=1 to 10-i If a(j)a(j+1) t=A(j) a(j)=a(j+1) a(j+1)=t Endif endforEndforFor i=1 to 10
10、?a(i), Endfor21. 输出Fibonacci（斐波那契）数列的前十项ClearDime a(10)a(1)=1a(2)=1For i=3 to 10 a(i)=a(i-1)+a(i-2)EndforFor i=1 to 10 ?A(i)Endfor22. 输出杨辉三角的前十行ClearDime a(10,10)For i=1 to 10 A(I,1)=1 A(I,i)=1EndforFor i=3 to 10 For j=2 to i-1A(I,j)=a(i-1,j)+a(i-1,j-1) EndforEndforFor i=1 to 10 For j=1 to i?A(I,j)
11、Endfor ?Endfor23. 对23矩阵转置CleaDime a(2,3),b(3,2)for i=1 to 2 for j=1 to 3input to a(I,j) endforendforfor i=1 to 3 for j=1 to 2b(I,j)=a(j,i) endforendforfor i=1 to 3 for j=1 to 2?b(I,j) Endfor ?endfor24. 求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）Cleafor x=100 to 999 a=int(x/100) b= mod(int(x/10),10) c=mod(x,10) if x=a*a*a+b*b*b+c*c*c
