标题:如何编写程序实现“123456654321123456654321”如此重复
只看楼主
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
结帖率:55.56%
已结贴  问题点数:20 回复次数:11 
如何编写程序实现“123456654321123456654321”如此重复
请教各位老师,帮忙解决。
搜索更多相关主题的帖子: 编写程序 如何 
2014-05-16 15:02
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
得分:3 
要循环多少次?

相互学习,互相交流,共同提高。
2014-05-16 15:07
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:649
专家分:2156
注 册:2014-2-7
得分:3 
nNum = 6        && 最大的数字
nTimes = 2      && “123456”重复的次数
clear
for i = 1 to nTimes
    for j = 1 to nNum
        ?? TRAN(j)
    next
    for j = nNum to 1 step -1
        ?? TRAN(j)
    next
next

泉城飞狐
2014-05-16 15:26
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
得分:0 
是只显示变化的6位数字,还是每次增加6位数字?

相互学习,互相交流,共同提高。
2014-05-16 15:28
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
得分:0 
1到n,n到1,如此反复
2014-05-16 15:35
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
得分:0 
回复 2 楼 qjbzjp
1到n,n到1,如此重复,重复的次数由记录总数决定,比如n=9,则在记录中依次生成123456789987654321 123456789987654321 ……,请帮忙解决。
2014-05-16 15:40
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
得分:0 
是这样吗:
clea
n=9
FOR j=1 TO 7  &&运行7次
    ?me(1,n,1)-me(n,1,-1)
NEXT

FUNCTION me
PARAMETERS x,y,z
    sn=""
    FOR i = x TO y STEP z
        sn=sn+TRANSFORM(i)
    NEXT
    RETURN sn
ENDFUNC

相互学习,互相交流,共同提高。
2014-05-16 17:24
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
得分:0 
……

相互学习,互相交流,共同提高。
2014-05-16 17:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:3 
程序代码:
lcStr="123456654321"
lcStr1=""
For lnI=1 To 4
    lcStr1=lcStr1+Iif(lnI%2=1,Left(lcstr,6),Right(lcstr,6))
EndFor
=Messagebox(lcStr1)

坚守VFP最后的阵地
2014-05-16 18:54
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:3 
此类题目明显是作业题,考查学员的基本编程能力。

活到老,学到老! http://www. E-mail:hu-jj@
2014-05-16 19:51



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




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

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