标题:VFP高手请进!!!!!!!!!!
只看楼主
永恒的传说
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2004-11-29
 问题点数:0 回复次数:2 
VFP高手请进!!!!!!!!!!

各位大虾,小弟刚学VFP,遇到个问题,想请教各位!

本人用*号组成了一个三角形,代码如下:

numline=10 for i = 1 to numline thestar="" for j=1 to 2*i-1 thestar=thestar + "*" next ?space(numline-i)+thestar next 请问在原来基础上怎么改成菱形?

搜索更多相关主题的帖子: VFP 
2004-11-29 23:51
tzhtang
Rank: 1
等 级:新手上路
帖 子:888
专家分:0
注 册:2004-8-30
得分:0 
以下是引用永恒的传说在2004-11-29 23:51:59的发言:

各位大虾,小弟刚学VFP,遇到个问题,想请教各位!

本人用*号组成了一个三角形,代码如下:

numline=10 for i = 1 to numline thestar="" for j=1 to 2*i-1 thestar=thestar + "*" next ?space(numline-i)+thestar next 请问在原来基础上怎么改成菱形?

numline=10 for i = numline to 1 step -1 thestar="" for j=1 to 2*i-1 thestar=thestar + "*" next ?space(numline-i)+thestar next

2004-11-30 10:57
huang
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2004-12-19
得分:0 

for i = 1 to 10 step 1 ? space(40-i)+repl("*",2*i-1)

endf

for i = 1 to 9 step 1 ? space(40+i)+repl("*",(10-i)*2-1)

endf

2004-12-19 20:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-8584-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.352344 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved