返回列表 上一主題 發帖

不知道陣列內的最大值與最小值範圍

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-7-7 10:06 | 只看該作者

不知道陣列內的最大值與最小值範圍

如標題：不知道陣列內的最大值與最小值範圍

　　arr(1 to 1000)

　　用隨機產生數字正負數都有至陣列

　　產生出來我不知道陣列範圍的情況下，要怎麼去找出陣列的最大值最小值。

　　麻煩各位大大
收藏 分享

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
5#
發表於 2016-7-8 11:13 | 只看該作者
回復 4# PKKO


    很謝謝大大的幫忙~我不知道陣列大小範圍不是陣列的上下限，而是陣列的內容

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2016-7-8 09:30 | 只看該作者
回復 1# EGBT


陣列範圍
dim arr:redim arr(1 to 10)
Ubound(arr)=10
Lbound(arr)=1
PKKO

TOP

hcm19522

帖子
1804 
主題
188 
精華
0 
積分
1997 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
100 
性別
男 
註冊時間
2015-9-11 
最後登錄
2026-10-11 

熱烈參與勳章
3#
發表於 2016-7-7 13:52 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/430280707

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2016-7-7 12:24 | 只看該作者
回復 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
複製代碼

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題