作者OPOQ (OPOQ)
看板Visual_Basic
标题Re: [VBA ] Function中写入矩阵
时间Thu Dec 10 09:08:11 2009
※ 引述《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
1F：推 A1pha:泡泡方法 :D 07/29 13:49