VFP经典有趣小程序 -

2022-05-20 00:25:12 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VFP经典有趣小程序 -》，欢迎阅读！
有趣,程序,经典,VFP
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---------------

-------------------【版权所有，翻版必究】-------------------