VFP经典有趣小程序 -

时间:2022-05-20 00:25:12 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
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

"输入的数字不在28之间,请重新输入!" 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



------------更多有趣小程序,请加QQ1113847281---------------

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


本文来源:https://www.wddqw.com/doc/015bc61a55270722192ef769.html