GBKEE

¦^´_ 1# snakei14702
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR, I
   
4.     AR = Array(1, 2, 3, 4)
   
5.     For I = 0 To UBound(AR)
   
6.         AR(I) = AR(I) * 4
   
7.     Next
   
8. End Sub

½Æ»s¥N½X