ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤£ª¾¹D°}¦C¤ºªº³Ì¤j­È»P³Ì¤p­È½d³ò

¤£ª¾¹D°}¦C¤ºªº³Ì¤j­È»P³Ì¤p­È½d³ò

¦p¼ÐÃD¡G¤£ª¾¹D°}¦C¤ºªº³Ì¤j­È»P³Ì¤p­È½d³ò

¡@¡@arr(1 to 1000)

¡@¡@¥ÎÀH¾÷²£¥Í¼Æ¦r¥¿­t¼Æ³£¦³¦Ü°}¦C

¡@¡@²£¥Í¥X¨Ó§Ú¤£ª¾¹D°}¦C½d³òªº±¡ªp¤U¡A­n«ç»ò¥h§ä¥X°}¦Cªº³Ì¤j­È³Ì¤p­È¡C

¡@¡@³Â·Ð¦U¦ì¤j¤j

¦^´_ 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

TOP

http://blog.xuite.net/hcm19522/twblog/430280707

TOP

¦^´_ 1# EGBT


°}¦C½d³ò
dim arr:redim arr(1 to 10)
Ubound(arr)=10
Lbound(arr)=1
PKKO

TOP

¦^´_ 4# PKKO


    «ÜÁÂÁ¤j¤jªºÀ°¦£~§Ú¤£ª¾¹D°}¦C¤j¤p½d³ò¤£¬O°}¦Cªº¤W¤U­­¡A¦Ó¬O°}¦Cªº¤º®e

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD