VB编程 分别求出数组中取得最大值和最小值的元素个数 并在窗体上显示（vb编程输入三个数求最大值）

Private Sub Form_Click()

Form1.AutoRedraw = True

Dim A()

Dim I As Integer, J As Integer, N As Integer

Dim MinG As Integer, MaxG As Integer

A = Array(0, 0, 3, 4, 12, 11, 34, 34, 34, 34)

For I = 0 To UBound(A) - 1

For J = I To UBound(A)

If A(I) > A(J) Then

N = A(I)

A(I) = A(J)

A(J) = N

End If

Next

Next

MinG = 1

MaxG = 1

For I = 1 To UBound(A) - 1

If A(I) = A(0) Then MinG = MinG + 1

If A(I) = A(UBound(A)) Then MaxG = MaxG + 1

Next

Print "数组为："

For I = 0 To UBound(A())

Print A(I);

Next

Print

Print "其中最小的元素为："; A(0); "，个数为："; MinG

Print "其中最大的元素为："; A(UBound(A)); "，个数为："; MaxG

End Sub

已经运行过。