作者Alfie24 (阿飞)
看板Visual_Basic
标题[VBA ] 题目看不懂.....
时间Thu Dec 10 02:26:03 2009
这是今天的小考 不过没人做出来所以当作业
老师要我们写一个巨集产生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
1F：推 sueadolph:阵列真的没教？ 12/10 03:12
2F：→ Alfie24:真的没教...有教我剁LP....老师风格就这样 12/10 03:13
3F：→ Alfie24:不过他上个礼拜有说这周要考"矩阵找最大最小值" 12/10 03:13
4F：→ Alfie24:用巨集写我会 找最大最小值我会 就是不太懂怎麽去控制矩阵 12/10 03:14
5F：→ Alfie24:跟这题到底要我们干什麽.... 12/10 03:14