VB 菜鸟问题，高手进来下！！急！

Dim numbers(1 To 10) As Integer

Dim total As Integer

Dim max, min, avg As Integer

total = 0

' find the maximum and minimum number
' and calculate the average without caling any functions
For i = 1 To 10
numbers(i) = lstNum.List(i - 1)
Next i
' Or alternatively, we can write maximum and minimum
' functions to get the job done

max = maximum(numbers)
min = minimum(numbers)
avg = average(numbers)

txtMax.Text = Str(max)
txtMin.Text = Str(min)
txtAverage.Text = Str(avg)
' find all the prime numbers in the array
Call findPrimeNumbers(numbers())
End Sub
Function maximum(n() As Integer) As Integer
Dim max As Integer
Dim i As Integer
max = n(1)
For i = 1 To 10
If max < n(i) Then

VB菜鸟问题~高手请进下 菜鸟级的VB问题，高手帮忙解决下 VB菜鸟问题~高手进 vb高手进来看下!!! VB高手进来看下 VB 高手进来看下. VB编程高手进来下。 .. vb问题!很简单的,高手进来下! 高手进来一下，菜鸟问题： VB问题.高手进来看看。