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--------------- -------------------【版权所有，翻版必究】-------------------