UC知道对下面的程序不是很理解，请高人指教下：
来源：百度知道 编辑：UC知道 时间：2024/06/21 12:27:53
Dim arr1
Dim min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
min = arr1(1)
For i = 2 To 8
If arr1(i) < min Then
t = arr1(i) ‘主要if then里面的语句看不懂
tarr1(i) = min
tmin = t
End If
Next i
Dim min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
min = arr1(1)
For i = 2 To 8
If arr1(i) < min Then
t = arr1(i) ‘主要if then里面的语句看不懂
tarr1(i) = min
tmin = t
End If
Next i
这是一个寻找数据中最小值得程序。个人改了改，认为有些地方欠妥。
Dim arr1
Dim min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) '初始化数组
min = arr1(1) '假设第一个元素是最小值
For i = 2 To 8 '遍历数组中剩余元素
If arr1(i) < min Then '如果该元素小于假定的那个最小值
min = arr1(i) '那么就让最小值等于那个数
End If
Next i