UC知道VB的菜鸟级问题!高手进来下啊!
来源：百度知道 编辑：UC知道 时间：2024/09/21 05:43:50
Dim numbers(1 To 10) As Integer
Dim total As Integer
Dim max, min, avg As Integer
total = 0
For i = 1 To 10
numbers(i) = lstNum.List(i - 1)
Next i
max = maximum(numbers)
min = minimum(numbers)
avg = average(numbers)
txtMax.Text = Str(max)
txtMin.Text = Str(min)
txtAverage.Text = Str(avg)
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
max = n(i)
End If
Next i
maximum = max
End Function
Function minimum(n() As Integer) As Integer
Dim min As Integer
Dim i As Integer
min = n(1)
For i = 1 To 10
If min > n(i) Then
min = n(i)
Dim total As Integer
Dim max, min, avg As Integer
total = 0
For i = 1 To 10
numbers(i) = lstNum.List(i - 1)
Next i
max = maximum(numbers)
min = minimum(numbers)
avg = average(numbers)
txtMax.Text = Str(max)
txtMin.Text = Str(min)
txtAverage.Text = Str(avg)
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
max = n(i)
End If
Next i
maximum = max
End Function
Function minimum(n() As Integer) As Integer
Dim min As Integer
Dim i As Integer
min = n(1)
For i = 1 To 10
If min > n(i) Then
min = n(i)
以为你自己定义了maximum函数,minimum函数和average函数
在我们用VB中它默认定义好的给你我们不都是ABS(NUMBER)
NUMBER里面要输入数值
就像你定义的一样n() As Integer 中 你把N数组定义了整型变量,所以我们只能输入数值
Dim numbers(1 To 10) As Integer 你也在这里定义了,那100%是数值
在调用的时候里面的参数要和你定义的要一样,这是里面的规定
我们也可以改 比如Dim numbers(1 To 10) As string
那么我就要更改n() As string就是这样的道理 明白了吗
maximum/minimum/average是自定义函数
功能是求numbers数组的最大/最小/平均值
加(numbers（）)可以吗？
No