Question

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

b = max(a, a)
c = Min(a, a) 这样为什么不行 子程序或者函数未定义？？？？？、为什么

Answer 1

您好，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

Answer 2

'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)

Answer 3

VB自带的函数中没有你说的max和min函数。

Answer 4

max(a, b) 换成iif(a>b,a,b)就成了

Answer 5

b=Dmax(a,a)
c=Dmin(a,a)
自己录个宏看看就明白了