VB中怎么用函数MAX和MIN 求出一组数据的最大值和最小值

b=max(a,a)c=Min(a,a)这样为什么不行子程序或者函数未定义?????、为什么... b = max(a, a)
c = Min(a, a) 这样为什么不行 子程序或者函数未定义?????、为什么
展开
 我来答
幼霸禾031aa
2015-10-21 · TA获得超过9673个赞
知道大有可为答主
回答量:6703
采纳率:81%
帮助的人:987万
展开全部
您好,VB中枣衡没纯察有MAX和MIN函数,不过你可以自己编程实现。
给你一个求随机产生6个凳裤做两位正整数的例子:
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
Randomize
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Print
Max = a(1)
Min = a(1)
For i = 1 To 6
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
Print "最大值为:" & Max
Print "最小值为:" & Min
End Sub
匿名用户
2013-04-19
展开全部
'max和min不是自带的系统函数,你或宽必须自己定义:Function Max(a() As Integer)As Integer Dim max As Integer =a(1) //假设你数组在外部是这样定义的:Dim a(1 To 10)什么的…… Dim I As Integer For I=2 To UBound(a) If (max<a(I)) Then max = a(I) End If Next

Return maxEnd FunctionFunction Min(a() As Integer) Dim min As Integer =a(1) //假迹迅设你数组在外部姿团此是这样定义的:Dim a(1 To 10)什么的…… Dim I As Integer For I=2 To UBound(a) If (min>a(I)) Then min = a(I) End If Next Return min
End Function
外部调用:Dim a(1 To 10)b=Max(a)c=Min(a)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ricky43
2013-04-19 · TA获得超过2354个赞
知道大有可为答主
回答量:1687
采纳率:66%
帮助的人:690万
展开全部
VB自带的函数中没有你说的max和min函数。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-04-19
展开全部
max(a, b) 换成iif(a>b,a,b)就成了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zhang5810929
2013-04-19 · TA获得超过146个赞
知道小有建树答主
回答量:347
采纳率:50%
帮助的人:68.4万
展开全部
b=Dmax(a,a)
c=Dmin(a,a)
自己录个宏看看就明白了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式