µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
VB »P VB.Net
» ³]©w«½Æ¿é¥X¤@Ó¦r¦ê (VB.net ª©)
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
³]©w«½Æ¿é¥X¤@Ó¦r¦ê (VB.net ª©)
ivanyung
µoµu®ø®§
¥[¬°¦n¤Í
ivanyung
·í«eÂ÷½u
UID
1084
©«¤l
49
¥DÃD
5
ºëµØ
0
¿n¤À
92
ª÷¿ú
92
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 2007
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
15 ¤p®É
µù¥U®É¶¡
2010-7-31
³Ì«áµn¿ý
2011-10-19
¤¤¾Ç¥Í
©«¤l
49
¥DÃD
5
ºëµØ
0
¿n¤À
92
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 2007
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2010-7-31
³Ì«áµn¿ý
2011-10-19
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2010-8-20 21:25
|
¥u¬Ý¸Ó§@ªÌ
³]©w«½Æ¿é¥X¤@Ó¦r¦ê (VB.net ª©)
¥»©«³Ì«á¥Ñ ivanyung ©ó 2010-8-20 21:36 ½s¿è
°µ¤F¨âÓ¥j©Çªº¤pµ{¦¡...............
Recursion
Function ReptStr(ByVal MyChar As String, ByVal MyNo As Integer) As String
If MyNo > 0 Then ReptStr = ReptStr(MyChar, MyNo - 1) & MyChar
End Function
½Æ»s¥N½X
³ºµM¦³¤@¨Ç¦r¬O¥X¤£¨ì ..............
¤U¸ü
(4.72 KB)
2010-8-20 21:35
Array method.
Function ReptStr2(ByVal MyChar As String, ByVal MyNo As Integer) As String
Dim MyArr() As String
ReDim MyArr(MyNo)
ReptStr2 = Join(MyArr, MyChar)
End Function
½Æ»s¥N½X
¼Ó¥D¼ö©«
Print Screen µ{¦¡
¥Î vba ¼g 16 ¶i¨î¨ì 2 ¶i¨î function
MD5 pºâ¾¹
¥Î°}¦C°µ¦r¦ê¤À³Î
¦¬ÂÃ
¤À¨É
ÀR«ä¦Û¦b :
¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
Excel£¸¯ë°Ï
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·