VFP经典有趣小程序 中国地质大学（武汉） 胡小强 制作 一、超级有趣 clea set talk off do while .t. clea do while .t. input space(10)+"请任意输入3-9的数字，然后按回车键"to s if s>9 .OR. s<3 loop else exit endif enddo i=6 p=60 for a=s to 1 step-1 n=p for b=1 to 2*a-1 @i,p+1 say alltrim(str(a)) p=p-1 next i=i+1 p=n-1 next p=p+1 for a=1 to s n=p for b=1 to 2*a-1 @i,p+1 say alltrim(str(a)) p=p+1 next i=i+1 p=n-1 next wait space(20)+"您要继续吗Y/N"to d if upper(d)<>"Y" clear @10,40 say "谢谢！" wait " " time(2) return else loop endif enddo Return 二、别出心裁的图形 do while .t. clear input"请输入2-8之间的任意一个数n:"to n do while n>8 or n<=1 "输入的数字不在2和8之间，请重新输入！！！" input"请输入2-8之间的任意一个数n:"to n enddo i=6 p=29 q=31 @i,p+1 say 1 pict "9" for m=2 to n i=i+1 @i,q say m pict "9" @i,p say m pict "9" p=p-1 q=q+1 endfor p=p+2 q=q-2 for m=n-1 to 2 step-1 i=i+1 @i,p say m pict "9" @i,q say m pict "9" p=p+1 q=q-1 endfor @i+1,p say 1 pict "9" ? wait space(20)+"您要继续吗Y/N"to n if upper(n)="Y" .or. upper(n)<>"N" loop else exit endif enddo Return 三、缘分测试 ?"测试一下你们的缘分吧！" input"请输入你的姓名笔画数:"to a input"请输入他或她的姓名笔画数:"to b i=1 do while i<500 clea x=rand( y=100*x z=int(y) ?"缘分指数" ??z ??"%" i=i+1 enddo if z>80 ?"胡小强建议：哇！你们很有缘哦！把握机会！" else if z<50 ?"胡小强建议：不要灰心哦，还需努力啊！" else ?"胡小强建议：还是有希望哦，多多努力！" endif endif ? ?"再确认你们婚姻指数吧！" input"请输入你的出生日期(如20130508):"to a input"请输入他或她的出生日期:"to b i=1 do while i<500 clea x=rand() y=100*x z=int(y) ?"缘分指数" ??z ??"%" i=i+1 enddo ? ? ?"哈哈，这你都相信！" ?"笑死我了，哈哈哈哈哈！" ?"不要打我........" 四、奇异造型 g=-1 gkz=2 FOR i=1 TO 5 IF i<=3 gkz=2 ELSE gkz=-2 ENDIF g=g+gkz REPLICATE("囧", g) at 10-g ENDFOR 五、字体渐变（一） i=11 do while i<127 "胡小强" _screen.fontsize=i i=i+1 Enddo 六、乘法口诀 "乘法口诀" i=1 j=1 for i=1 to 9 for j=1 to i str(i,1)+"*"+str(j,1)+"="+str(i*j,2)+" " endfor endfor 七、一元二次方程的解 input"请输入a的值:"to a input"请输入b的值:"to b input"请输入c的值:"to c t=b*b-4*a*c if t>0 x1=(-b+sqrt(t))/(2*a) x2=(-b-sqrt(t))/(2*a) x1,x2 else if t=0 x=(-b)/(2*a) x else "无解" endif endif 八、字体渐变（二） i=127 do while i>11 "胡小强" _screen.fontsize=i i=i-1 Enddo 九、运气测试 _screen.fontsize=20 "测试一下你今天的运气吧吧！" _screen.fontsize=12 input"请输入你的姓名笔画数:"to a input"请输入你的出生日期:"to b i=1 do while i<500 clea x=rand() y=100*x z=int(y) _screen.fontsize=20 ?"你今天的：" ? _screen.fontsize=12 ?" 桃花运概率" ??z ??"%" if z>50 ??" 今天可能有艳遇哦！" else ??" 今天不会有艳遇的！" endif h=rand() m=100*h j=int(m) ?"考试通过概率" ??j ??"%" if j>50 ??" 今天可能超长发挥哦！" else ??" 今天考试会很郁闷的！" endif o=rand() p=100*o q=int(p) ?"表白成功概率" ??q ??"%" if q>50 ??" 今天很有可能成功哦！" else ??" 今天有可能被拒绝！" endif i=i+1 l=rand() n=100*l r=int(n) ?"彩票中奖概率" ??r ??"%" if r>50 ??" 快去买彩票吧！" else ??" 今天别买彩票！" endif L=rand() N=100*L R=int(N) ?"走路摔跤概率" Q=RAND()*10 S=INT(Q) ??S ??"%" ??" 今天很安全哦" ?"生命危险概率" U=RAND() ??U ??"%" ??" 今天很安全哦" Enddo ------------更多有趣小程序，请加QQ：1113847281--------------- -------------------【版权所有，翻版必究】------------------- 本文来源：https://www.wddqw.com/doc/015bc61a55270722192ef769.html