昨天看VB，谁能用AU3搞出这个99乘法表？

itljl

嘿嘿

[ 本帖最后由 itljl 于 2008-9-9 22:04 编辑 ]

pcbar

数学问题,用循环可以轻松搞定

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;;pcbar 2008.09.09
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("九九乘法表 -- By Pcbar", 480, 160, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 460, 148, BitOR($ES_READONLY, $ES_WANTRETURN), 0)
GUISetState(@SW_SHOW)
#EndRegion ### START Koda GUI section ### Form=
GUICtrlSetData($Edit1, "========================================================================"&@CRLF, 0)

For $i = 1 To 9
        $a = ''
        For $j = 1 To $i
                $a &= $j & 'x' & $i & '=' & $j * $i & @TAB
        Next
        GUICtrlSetData($Edit1, $a & @CRLF, 0)
Next
GUICtrlSetData($Edit1, "========================================================================"&@CRLF, 0)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

pcbar

希望有高手写个pi小数点后500位的程序,供大家学习

ken0137

原帖由 pcbar 于 2008-9-9 20:21 发表
希望有高手写个pi小数点后500位的程序,供大家学习

你不就是高手啊？

itljl

原帖由 pcbar 于 2008-9-9 20:16 发表
数学问题,用循环可以轻松搞定
1417

[au3]#include
#include
#include
;;pcbar 2008.09.09
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("九九乘法表 -- By Pcbar", 480, 160, -1,  ...

你太有才了！！！

pcbar

原帖由 ken0137 于 2008-9-9 21:09 发表

你不就是高手啊？

我试过,没弄出来

Sunrise95

好复杂，高级语言里很容易写出来，不过还是学习了，入乡随俗，楼主好贴！