一个简单的VB程序问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:47:40
分别用函数和子过程实现：求一维数组A中的最大值，主程序随机产生10个100－200之间的数，调用函数和子过程，分别显示最大值。

利用函数

Private Function GetMax(Data() As Double) As Double
Dim i As Long
GetMax = -100
For i = 1 To UBound(Data)
If Data(i) > GetMax Then GetMax = Data(i)
Next
End Function

Private Sub Command1_Click()
Dim A(10) As Double
Dim i As Long
For i = 1 To 10
Randomize Now
A(i) = 100 + Rnd() * 100
Next
MsgBox GetMax(A)
End Sub

利用子过程
Private Sub GetMax(Data() As Double)
Dim i As Long
Dim Max As Double
Max = -100
For i = 1 To UBound(Data)
If Data(i) > Max Then Max = Data(i)
Next
MsgBox Max
End Sub

Private Sub Command1_Click()
Dim A(10) As Double
Dim i As Long
For i = 1 To 10
Randomize Now
A(i) = 100 + Rnd() * 100
Next
Call GetMax(A)
End Sub