推 sueadolph:陣列真的沒教？ 12/10 03:12
→ Alfie24:真的沒教...有教我剁LP....老師風格就這樣 12/10 03:13
→ Alfie24:不過他上個禮拜有說這週要考"矩陣找最大最小值" 12/10 03:13
→ Alfie24:用巨集寫我會 找最大最小值我會 就是不太懂怎麼去控制矩陣 12/10 03:14
→ Alfie24:跟這題到底要我們幹什麼.... 12/10 03:14
這是今天的小考 不過沒人做出來所以當作業
老師要我們寫一個巨集產生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