VB编写一个找出一维数组的最大元素与最小元素的通用过程,并调用此过程,找出由10个两位随机正整数组成的数组的最大元素和最小元素的程序.以下是我做的,请问怎么修改?PrivateSubmaxmin(a()As

Question

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中均赋值你这个数组的第一个元素即可【此假设是a(1),因为一般a(0)都不使用】：
Max =a(1) :Min =a(1)