[µo°Ý] ¨ú¥N¦r¦ê?

thjh159

±ý±N©m¦W
¤ý¬Y                  ¨ú¥N¦¨     ¤ýO
³¯¬Y¬Y              ¨ú¥N¦¨      ³¯O¬Y
»¯¬Y¬Y¬Y         ¨ú¥N¦¨       »¯OO¬Y
®]¬Y¬Y¬Y¬Y    ¨ú¥N¦¨        ®]OOO¬Y

À³¦p¦ó
¨D¸Ñ
ÁÂÁÂ

GBKEE

¦^´_ 1# thjh159
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), i As Integer, S As Integer
   
4.     AR = Array("¤ý¤j", "¤ý¤j¤@", "¤ý¤j¤j¤G", "¤ý¤jAB¤T")
   
5.     For i = 0 To UBound(AR)
   
6.         S = IIf(Len(AR(i)) > 2, Len(AR(i)) - 2, 1)
   
7.         AR(i) = Mid(AR(i), 1, 1) & String(S, "¡³") & IIf(Len(AR(i)) > 2, Right(AR(i), 1), "")
   
8.     Next
   
9.     MsgBox Join(AR, vbLf)
   
10. End Sub

½Æ»s¥N½X

mmxxxx

¤À¦¨¨âÃþ, ©m¦W¬°¨â­Ó¦r¤Î¤j©ó¨â¦r.
1. ­Y¨â­Ó¦r,«h¨ú¥N³Ì«á¤@­Ó¦r¬°O.
2.­Y¨â­Ó¦r¥H¤W,«h³B²z¤è¦¡¬Û¦P, ¦hºØ, ¨ä¤@¥ý±N²Ä¤@­Ó¥H«áªº¦rÅܧאּO...¬Y

©Ò¥HÀ³¨Ï¥ÎIIF¥[¤W¤@±ø¥ó§Y¥i¹F¦¨»Ý¨D.

luhpro

±ý±N©m¦W
¤ý¬Y                  ¨ú¥N¦¨     ¤ýO
³¯¬Y¬Y              ¨ú¥N¦¨      ³¯O¬Y
»¯¬Y¬Y¬Y      ...
thjh159 µoªí©ó 2014-11-8 14:34

°Ñ¦Ò GBKEE ¤j¤jªºµ{¦¡­×§ï :

1. Sub nn()
   
2.     Dim AR(), i%
   
3.     AR = Array("¤ý¤j", "¤ý¤j¤@", "¤ý¤j¤j¤G", "¤ý¤jAB¤T")
   
4.     For i = 0 To UBound(AR)
   
5.       AR(i) = Left(AR(i), 1) & String(Len(AR(i)) - (Len(AR(i)) = 2) - 2, "¡³") & Right(AR(i), -(Len(AR(i)) > 2))
   
6.     Next
   
7.      MsgBox Join(AR, vbLf)
   
8. End Sub

½Æ»s¥N½X

thjh159

·PÁ´£¨Ñ¸ÑÃÄ