推 A1pha:泡泡方法 :D 07/29 13:49
※ 引述《Alfie24 (阿飛)》之銘言：
: 這是今天的小考 不過沒人做出來所以當作業
: 老師要我們寫一個巨集產生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個值去找最大最小值
: 謝謝
應該改一下就可以了
Function myMax(n As Integer,A() As Double)As Double
{
dim i as intrger
dim max as Double
max=A(0)
for i = 1 to n-1
if (A(i)>=max)then
max=A(i)
end if
next i
myMax=max
}
Function myMin(n As Integer,A() As Double)As Double
{
dim i as intrger
dim min as Double
max=A(0)
for i = 1 to n-1
if (A(i)<=min)then
min=A(i)
end if
next i
myMin=min
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.217.68