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

king8462 · 发表于 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

afan · 发表于 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)

zghwelcome · 发表于 2017-7-21 22:15:29

afan 发表于 2017-7-21 19:53

厉害了

king8462 · 发表于 2017-7-21 22:45:37

本帖最后由 king8462 于 2017-7-21 22:54 编辑

回复 2# afan

多谢A版！

yamakawa · 发表于 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)

yamakawa · 发表于 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)

		自动登录	找回密码
密码			加入

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

本帖子中包含更多资源