[VBA ] Function中寫入矩陣

看板Visual_Basic作者Alfie24 (阿飛)時間16年前 (2009/12/10 02:26)推噓1(1推 0噓 4→)

留言5則, 2人參與討論串1/2 (看更多)

這是今天的小考不過沒人做出來所以當作業老師要我們寫一個巨集產生100個亂數儲存在A1到A100 以下是我的程式碼 ======================= Sub ra() Dim i As Integer For i = 0 To 99 ActiveCell.Offset(i, 0) = Rnd Next i End Sub ======================= 第二題就頭痛了找最大最小值構想是用迴圈去跑例如 ============================ max=0 min=999 for i = 0 to 99 if (activecell.offset(i,0)>max)then max=activecell.offset(i,0) elseif (activecell.offset(i,0)<min)then min=activecell.offset(i,0) end if next i ============================== 輸出max跟min為最大最小值這個我會但是老師要我們用"Function跟""矩陣"去寫再用MsgBox輸出給的Function表頭是 Function myMax(n As Integer,A() As Double)As Double 想了很久實在是不知道要如何下手主要還是沒學過矩陣的用法更不知道n跟A()這兩個變數是要幹什麼的... 好像是控制大小　譬如說A是一個1x100的矩陣若n=50的話就是取前50個值去找最大最小值謝謝 -- ┌───┬┬┐ ├─┬┐└─┤ ├ ┘└─┬┤ └┐│┌┐│┤ ┌┘│││└┤ └─┴┘└─┘ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.45.48.18

推

sueadolph

12/10 03:12, , 1^F

12/10 03:12, 1^F

→

Alfie24

12/10 03:13, , 2^F

12/10 03:13, 2^F

→

Alfie24

12/10 03:13, , 3^F

12/10 03:13, 3^F