vb 用数组输入五个整数，找出最大数

'任意长度数组获取最大值

Private Function getMax()

    Dim arr() As Long

    Dim max As Long

    arr = getArr 'getArr可以是任意获取数组的方法

    max = arr(0)

    For i = 1 To UBound(arr)

        If arr(i) > max Then

            max = arr(i)

        End If

    Next i

End Function

这个方法可以获取任意大小一维数组的最大项

中间的getArr 方法可以指定获取数组的方法，嫌麻烦可以直接在这里初始化一个

vb没有max和min函数，需要自己编写

Private Sub Command1_Click()

Dim arr(1 To 100) As Integer

Randomize

For i = 1 To 100

arr(i) = Int(Rnd 10000)

Print Format(arr(i), "@@@@ ");

If i Mod 10 = 0 Then Print

Next

Print

Print "最大值=" & max(arr)

Print "最小值=" & min(arr)

End Sub

Private Function max(ByRef a() As Integer)

max = a(LBound(a))

For i = LBound(a) To UBound(a)

If max < a(i) Then max = a(i)

Next

End Function

Private Function min(ByRef a() As Integer)

min = a(LBound(a))

For i = LBound(a) To UBound(a)

If min > a(i) Then min = a(i)

Next

End Function

以上就是关于vb 用数组输入五个整数，找出最大数全部的内容，包括:vb 用数组输入五个整数，找出最大数、在VB中寻找一个数组的最大值或最小值，可否用Max或Min函数、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！