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