VF之最常見編程題

1、16.求任意兩個數(shù)的最大公約數(shù)和最小公倍數(shù)Private Sub FormClick()m1 = InputBox("輸入m")n1 = InputBox("輸入n")If m1 n1 Then 為了求最小公倍數(shù).增加m.n變量m = m1: n = n1Elsem = n1: n = m1End If mnr = m Mod nDo While r 0m = nn = rr = m Mod nLoopPrint m1, ".", n1, "的最大約數(shù)為", nPrint "最小公倍數(shù)=". m

2、1 n1 / nEnd Sub17.1！+2！+。+100！=？ClearS=0n=1for i=1 to 100n*=is+=nendfor? 1！+2！+。+100！=,s1求100以內(nèi)所有能被3整除的整數(shù)的和clears=0for i=1 to 100  if i%3=0    s=s+i  endifendfor?"100以內(nèi)所有能被3整除的整數(shù)的和是：",s2輸出3-100之間的素?cái)?shù)clearfor m=3 to 100 step 2n=int(sort(m)for i=3 to nif mod(m,i)=0exi

3、tendiendfif i>n?mendiendf3.s= 1+3+5.+99？clears=0for i=1 to 100 step 2  s=s+iendfor?"100以內(nèi)的奇數(shù)之和為：",s4. 1-2+3-4+5·······=n.求n的值clears=0n=04,4 say 'input n:' get nreadfor i=1 to n    if i%2=0      s=s+i

4、     else      s=s-i     endifendfor?sReturn5.S=1+2+3+100set talk offcleart=1s=0do while t<=100s=s+tt=t+1enddost talk onreturn6.S=2+4+.+100set talk offcleart=2s=0do while t<=100s=s+tt=t+2enddo?sset talk onreturn7.S=2! +4! +6! +10

5、！set talk offcleart=2s=0do while i<=10t=2for j=1 to it=t*jendfors=s+tt=t+2enddo?tset talk onreturn8. 任意輸入一個數(shù)，計(jì)算從1到這個數(shù)的相加之和clearaccept "請輸入一個整數(shù):"to xhxh=int(xh)xy=1sum=0do while xy<=xhsum=sum+xyxy=xy+1enddo? "計(jì)算結(jié)果為： ""sum9. 三角形： *      

6、0;   *         *i=1s="  " （S為含有8個空格的字符常量）p=sdo while i<=4   j=1   ?p   do while j<=2*i-1       ?"*"       j=j+1   enddo

7、   i=i+1   p=substr(s,i)enddo10. 菱形：  *          *         *          *           *i=1s="&

8、#160;       "p=sdo while i<=4   j=1   ?p   do while j<=2*i-1       ?"*"       j=j+1   enddo   i=i+1   p=substr(s,i)enddo11. 五角星do

9、 while i>=1   j=1   ?p   do while j<=2*i-1       ?"*"       j=j+1   enddo   i=i-1   p=substr(s,i)enddo12將厚0.5mm,面積足夠大的紙折疊,問折疊多少次后其厚度可達(dá)到8848m? '0.5mm的紙折疊',i,

10、'次以后有',sum,'米'set talk offsum=0.0005i=0do while sum<8848i=i+1sum=sum+sumenddo  13. 輸入一年份，判斷是否為閏年?clearset talk offinput "請輸入年份:"to n msg="年不是閏年"  if mod(n,4)=0 and mod(n,100)<>0 or mod(n,400)=0    msg="年是閏年"     endif   ?n,msgset talk onset talk off14. 求1到100之間所有整數(shù)的平方和?set talk offb=0for i= 1 to 100b=i*i+bnext?b15. 編程求100-999之間的全部水仙花數(shù)。LOCAL lnI,lcZf,lnGw,lnSw,lnBwFOR lnI=100 to 999 lcZf=ALLTRIM(STR(m.ln