怎么用VFP实现输入行数 来得到菱形*阵？
题目是这样的
用键盘输入行数
运行程序后显示为一个上三角和一个下三角
比如说 输入5 得到
第一行是两个空 然后一个*
第2行是一個空 然后三个*
第3行直接就是5个*
第4行和第2行一样
第5行和第1行一样
成一个菱形
*
***
*****
***
*
(其中中间那行在*前没有空格 紧贴左边的）
问题点数：100、回复次数：2Top
1 楼zsjiaming（路口就在不远处）回复于 2005-10-30 18:09:00 得分 100
方法多种:
Clear
Input "Please input a number:" To aaa
k=-1
For i=1 To aaa
If i<aaa/2+1
k=k+2
Else
If i>aaa/2+1
k=k-2
Endif
Endif
? Space(20-k/2)+Replicate('*',k)
Endfor
return
*不用整串打也可以这样
Input "Please input a number:" To aaa
k=-1
For i=1 To aaa
If i<aaa/2+1
k=k+2
Else
If i>aaa/2+1
k=k-2
Endif
Endif
?? Space(20-k/2)
For j=1 To k
?? '*'
Endfor
? ''
Endfor
ReturnTop
2 楼zsjiaming（路口就在不远处）回复于 2005-10-30 18:10:17 得分 0
如果是偶数,中间的会有二个相同长度的***Top
