c_c_lai

¦^´_ 1# EGBT

1. Sub Ex()
   
2.     Dim ar(), x As Integer, y As Integer
   
3.    
   
4.     ar = Array(2, 5, 8, 4, 9, 10, 1, 3, 7, 6, 12, 11)
   
5.     x = WorksheetFunction.Min(ar)
   
6.     y = WorksheetFunction.Max(ar)
   
7.     MsgBox "x = " & x & ", y = " & y
   
8. End Sub

½Æ»s¥N½X