VF程序题库.doc

输入3 个数，大小排序 set talk off input 请输入第一个数： to a input 请输入第二个数： to b input 请输入第三个数： to c if ab t=a a=b b=t endif if ac t=a a=c c=t endif if bc t=b b=c c=t endif ?a,b,c Return Set talk on 100里能被3,5整除的数及个数 Set talk off clear n=0 i=1 Do while i=100 IF MOD(i,3)=0 .OR. MOD(i,5)=0 **int(i/3)=i/3 .OR. int(i/5)=i/5 ?? i n=n+1 Endif i=i+1 enddo ? 满足条件的数的个数为：,n Set talk on Return 计算n的阶乘 Set talk off Input 请输入n的值： to N S=1 For I=1 to N S=S*I Endfor ?S Set talk on Return 计算5 的阶乘 SET TALK OFF S=1 M=1 FOR M=1 TO 5 S=S*M ENDFOR ? S SET TALK ON RETURN 连乘积大于720退出 Set talk off s=1 S 表示积 I=1 Do while .T. s=s*i IF S720 EXIT ENDIF I=I+1 Enddo ? s=,s Set talk on 5个数中求最大值 Set talk off Input 请输入第一个数： to x For i=1 to 4 Input 请输入第+str(i+1)+个数：to y If yx x=y endif endfor ?x Set talk on Return 1到100的和 SET TALK OFF S=0 I=1 DO WHILE I=100 S=S+I I=I+1 ENDDO ?S SET TALK ON RETURN 用水量 SET TALK OFF INPUT 请输入用水量： TO W IF W5 X=0.8*W ELSE X=0.8*5+(W-5)*1.4 ENDIF ?应交水费为：+STR(X)+元 SET TALK ON RETURN 求1/2+。。。。。。。+1/100的和 SET TALK OFF clear i=1 n=2 s=0 do while n=100 s=s+1/n n=n+1 enddo ?1/2+1/3+......+1/100的和是：,s Return 统计zg表里男性和女性职工人数 set talk off use zg count for 性别=男 to b count for 性别=女 to b ?性别为男的职工人数是：,a ?性别为女的职工人数是：,b use set talk on return 求S=1!+2!+…+N! Clear s=1 y=0 input请输入N的值 to n for i=1 to n s=s*i y=y+s endfor ?y Return *【程序设计】 *------------------------------------------------------- *题目：从键盘上输入10个整数，将其中的奇数与偶数分别相加后 * 输出奇数和以及偶数和。请将下列程序填写完整。 * （提示：利用IF…ENDIF语句实现，判断某一个数m的奇偶， * 用m/2=int(m/2) ）。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK OFF CLEAR I=1 A=0 J=0 DIME NO(10) DO WHILE I=10 INPUT 输入整数： TO NO(I) **********Program********** IF NO(I)/2=INT(NO(I)/2) A=NO(I)+A ELSE J=J+NO(I) ENDIF ********** End ********** I=I+1 ENDDO ?奇数和：,J,偶数和：,A RETURN 定期存款 Set talk off nx=0 @5,10 say 输入定期年限 get nx read do case case nx1 11=0.03 case nx3 11=0.05 case nx5 110.07 otherwise @8,10 say 11 Set talk on *题目：用DO WHILE 循环语句编写程序。程序实现的功能为竖向 * 显示