| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1057 人关注过本帖
标题: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
快速回复:VFP高手请进!!!!!!!!!!
数据加载中...
 
   



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

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