Question

VB中求最小值问题

我编写的求最小值函数如下：
Public Function Min(ByRef SZtmp()) As Variant '求最小值函数
Min = SZtmp(LBound(SZtmp))
For j = LBound(SZtmp) + 1 To UBound(SZtmp)
If Min > Val(SZtmp(j)) Then Min = Val(SZtmp(j))
Next j
End Function
Private Sub Command1_Click()
Text2.Text = Min(b0())
End Sub
b0是一维数组，已经有数据在里面，可以确定里面最小值大于0，可是运行的结果是最小值等于0，这是为什么呢？想不明白，请大家给分析分析，谢谢！

Answer 1

Public Function Min(ByRef SZtmp()) As Variant '求最小值函数
Min = SZtmp(LBound(SZtmp))
For j = LBound(SZtmp) + 1 To UBound(SZtmp)
If Min > Val(SZtmp(j)) Then Min = Val(SZtmp(j))
Next j
End Function

Private Sub Command1_Click()
Dim b0(3)
b0(0) = 11
b0(1) = 12
b0(2) = 10
b0(3) = 1
MsgBox Min(b0())
End Sub

追问

这个求最小值函数我是懂了的，我想知道的是为什么我从TXT文件里读取的数据放入数组里，数组里的数都是正数，求出来的最小值确实0。

追答

我猜你的 b0(0)没有赋值 或者 其中一个元素是0 用循环检查你每个元素的值