itljl 发表于 2008-9-9 19:38:45

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

嘿嘿:face (29): :face (29):

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

pcbar 发表于 2008-9-9 20:16:53

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


#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 发表于 2008-9-9 20:21:55

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

ken0137 发表于 2008-9-9 21:09:49

原帖由 pcbar 于 2008-9-9 20:21 发表 http://www.autoitx.com/images/common/back.gif
希望有高手写个pi小数点后500位的程序,供大家学习
你不就是高手啊？

itljl 发表于 2008-9-9 22:02:15

原帖由 pcbar 于 2008-9-9 20:16 发表 http://www.autoitx.com/images/common/back.gif
数学问题,用循环可以轻松搞定
1417

#include
#include
#include
;;pcbar 2008.09.09
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("九九乘法表 -- By Pcbar", 480, 160, -1,...
你太有才了！！！

pcbar 发表于 2008-9-10 16:03:01

原帖由 ken0137 于 2008-9-9 21:09 发表 http://www.autoitx.com/images/common/back.gif

你不就是高手啊？
我试过,没弄出来:face (27):

Sunrise95 发表于 2013-10-13 15:20:56

好复杂，高级语言里很容易写出来，不过还是学习了，入乡随俗，楼主好贴！
页: [1]
查看完整版本: 昨天看VB，谁能用AU3搞出这个99乘法表？