Question

VB编写一个找出一维数组的最大元素与最小元素的通用过程

VB编写一个找出一维数组的最大元素与最小元素的通用过程，并调用此过程，找出由10个两位随机正整数组成的数组的最大元素和最小元素的程序。
以下是我做的，请问怎么修改？
Private Sub maxmin(a() As ingeter)
Dim i As Integer
Max = : Min = ————————不知道填什么……
For i = LBound(a) + 1 To UBound(a)
If a(i) > Max Then
Max = a(i)
ElseIf a(i) < Min Then
Min = a(i)
End If
Next i
End Sub

Private Sub Command1_Click()
Dim x(10) As Integer, maxv As Integer, minv As Integer
Dim i As Integer
For i = 1 To 10
x(i) = maxv
Text1 = Text1 & Str(x(i))
Next i
Call maxmin(x())
Text1 = maxv
Text2 = minv
End Sub

Private Sub Command2_Click()
Text1.Text = "": Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Answer 1

那个MAX要赋值你这数组里最小的数，MIN要赋值数组里最大的数。
如果你也不知道最大最小的数是多少，你可以估计一个。如你的数组里不可能有小于-30000，不可能有大于3000的数，就可以让MAX=-30000,MIN=30000。
这是因为第一次比较时，。。。你细想一下就知道了，我不说，还是让你想吧。。。

Answer 2

首先更正一下：楼上的回答是不对的。
从你上述的代码看，是采用的“比较法”比大小的，所以Max和Min中均赋值你这个数组的第一个元素即可【此假设是a(1)，因为一般a(0)都不使用】：
Max =a(1) : Min =a(1)