找回密码
 加入
搜索
查看: 1446|回复: 7

[AU3基础] [已解决]求个金字塔数字循环代码

[复制链接]
发表于 2017-7-21 19:40:45 | 显示全部楼层 |阅读模式
本帖最后由 king8462 于 2017-7-22 14:40 编辑

假设6行,如下图,搞了半天不会写了,求高手帮忙,谢谢!

for $i=1 to 6
       for $k=1 to 21
       MsgBox(0,"",$i&@CRLF&$k&@CRLF)
       next
next


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2017-7-21 19:53:57 | 显示全部楼层
Local $sOut = '', $stmp = 0, $ii, $jj
For $ii = 1 To 6
        For $jj = 1 To $ii
                $stmp += 1
                $sOut &= $stmp & @TAB
        Next
        $sOut &= @CRLF
Next
MsgBox(0, '', $sOut)
发表于 2017-7-21 22:15:29 | 显示全部楼层
afan 发表于 2017-7-21 19:53



    厉害了
 楼主| 发表于 2017-7-21 22:45:37 | 显示全部楼层
本帖最后由 king8462 于 2017-7-21 22:54 编辑

回复 2# afan


多谢A版!
发表于 2017-7-21 22:55:26 | 显示全部楼层
想了半天,还是想不出金字塔的该怎么写。。。。。a版那种的倒是简单
发表于 2017-7-22 14:44:18 | 显示全部楼层
这个用C写最方便了
这里用StringFormat代替
Local $iLine = 10, $sOut = '', $iNum = 0
For $ii = 1 To $iLine
        For $jj = $ii To $iLine - 1
                $sOut &= "   "
        Next
        For $jj = 1 To $ii
                $iNum += 1
                $sOut &= StringFormat("%-4d", $iNum)
        Next
        $sOut &= @CRLF
Next
MsgBox(0, '', $sOut)
发表于 2017-7-22 15:04:20 | 显示全部楼层
回复 6# 帆船


            For $jj = $ii To $iLine - 1
                $sOut &= "   "
        Next

咳。。看了才发现原来好简单,,,脑残了俺。。太久没用了。。
发表于 2017-7-22 15:05:25 | 显示全部楼层
再优化一下,另外用ConsoleWrite输出更整齐

Local $iLine = 20, $sOut = "", $iNum = 0
For $Num = 0 To $iLine - 1
        $iNum += 1
        $sOut &= StringFormat("%" & (($iLine - $Num) * 2) & "d", $iNum)
        For $Mum = 1 To $Num
                $iNum += 1
                $sOut &= StringFormat("%4d", $iNum)
        Next
        $sOut &= @CRLF
Next
ConsoleWrite($sOut & @CRLF)
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 21:29 , Processed in 0.074050 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表