《VF之最常见编程题.docx》由会员分享，可在线阅读，更多相关《VF之最常见编程题.docx（4页珍藏版）》请在三一办公上搜索。
1、VF之最常见编程题16.求任意两个数的最大公约数和最小公倍数 Private Sub FormClick m1 = InputBox(输入m) n1 = InputBox(输入n) If m1 n1 Then 为了求最小公倍数.增加m.n变量 m = m1: n = n1 Else m = n1: n = m1 End If mn r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop Print m1, ., n1, 的最大约数为, n Print 最小公倍数=. m1 n1 / n End Sub 17.1！+2！+。+100！=？ Cl
2、ear S=0 n=1 for i=1 to 100 n*=i s+=n endfor ? 1！+2！+。+100！=,s 1求100以内所有能被3整除的整数的和 clear s=0 for i=1 to 100 if i%3=0 s=s+i endif endfor ?100以内所有能被3整除的整数的和是：,s 2输出3-100之间的素数 clear for m=3 to 100 step 2 n=int(sort(m) for i=3 to n if mod(m,i)=0 exit endi endf if in ?m endi endf 3.s= 1+3+5.+99？ clear s=0
3、 for i=1 to 100 step 2 s=s+i endfor ?100以内的奇数之和为：,s 4. 1-2+3-4+5=n.求n的值 clear s=0 n=0 4,4 say input n: get n read for i=1 to n if i%2=0 s=s+i else s=s-i endif endfor ?s Return 5.S=1+2+3+100 set talk off clear t=1 s=0 do while t=100 s=s+t t=t+1 enddo st talk on return 6.S=2+4+.+100 set talk off clear
4、 t=2 s=0 do while t=100 s=s+t t=t+2 enddo ?s set talk on return 7.S=2! +4! +6! +10！ set talk off clear t=2 s=0 do while i=10 t=2 for j=1 to i t=t*j endfor s=s+t t=t+2 enddo ?t set talk on return 8. 任意输入一个数，计算从1到这个数的相加之和 clear accept 请输入一个整数:to xh xh=int(xh) xy=1 sum=0 do while xy=xh sum=sum+xy xy=xy
5、+1 enddo ? 计算结果为： sum 9. 三角形： * * * i=1 s= p=s do while i=4 j=1 ?p do while j=2*i-1 ?* j=j+1 enddo i=i+1 p=substr(s,i) enddo 10. 菱形： * * * * * i=1 s= p=s do while i=4 j=1 ?p do while j=1 j=1 ?p do while j=2*i-1 ?* j=j+1 enddo i=i-1 p=substr(s,i) enddo 12将厚0.5mm,面积足够大的纸折叠,问折叠多少次后其厚度可达到8848m? ? 0.5mm的
6、纸折叠,i,次以后有,sum,米 set talk off sum=0.0005 i=0 do while sum8848 i=i+1 sum=sum+sum enddo 13. 输入一年份，判断是否为闰年? clear set talk off input 请输入年份:to n msg=年不是闰年 if mod(n,4)=0 and mod(n,100)0 or mod(n,400)=0 msg=年是闰年 endif ?n,msg set talk on set talk off 14. 求1到100之间所有整数的平方和? set talk off b=0 for i= 1 to 100 b=i*i+b next ?b 15. 编程求100-999之间的全部水仙花数。 LOCAL lnI,lcZf,lnGw,lnSw,lnBw FOR lnI=100 to 999 lcZf=ALLTRIM(STR(m.lnI) lnGw=VAL(SUBSTR(m.lcZf,3,1) lnSw=VAL(SUBSTR(m.lcZf,2,1) lnBw=VAL(SUBSTR(m.lcZf,1,1) IF m.lnGw3+m.lnSw3+m.lnBw3=m.lnI then ?m.lnI ENDIF ENDFOR
