VB中怎么用函数MAX和MIN 求出一组数据的最大值和最小值
b=max(a,a)c=Min(a,a)这样为什么不行子程序或者函数未定义?????、为什么...
b = max(a, a)
c = Min(a, a) 这样为什么不行 子程序或者函数未定义?????、为什么 展开
c = Min(a, a) 这样为什么不行 子程序或者函数未定义?????、为什么 展开
5个回答
展开全部
您好,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
给你一个求随机产生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
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)
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)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
VB自带的函数中没有你说的max和min函数。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-04-19
展开全部
max(a, b) 换成iif(a>b,a,b)就成了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
b=Dmax(a,a)
c=Dmin(a,a)
自己录个宏看看就明白了
c=Dmin(a,a)
自己录个宏看看就明白了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询