vb 求最大值

编写函数fun,其功能是求一维数组中前n个数的最大值,最大值作为函数返回值。用VB语言实现:functionfun(a()asinteger,nasinteger)asi... 编写函数fun,其功能是求一维数组中前n个数的最大值,最大值作为函数返回值。

用VB语言实现:function fun(a() as integer,n as integer) as integer

请提供完整的编程,谢谢
展开
 我来答
VB妮可
2007-10-16 · TA获得超过3333个赞
知道大有可为答主
回答量:2574
采纳率:0%
帮助的人:0
展开全部
Function fun(a() As Integer, n As Integer) As Integer
Dim i%, max%
For i = 1 To n
max = IIf(a(i) > max, a(i), max)
Next
fun = max
End Function

Private Sub Command1_Click()
Dim tmp%(1 To 30), i%
For i = 1 To 30
tmp(i) = Int(Rnd * 100)
Next

Print fun(tmp(), 10)
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式