UC知道【VB】求最小值 程序报错 求错误原因
来源：百度知道 编辑：UC知道 时间：2024/06/21 17:31:09
Private Sub Form_Click()
Dim x, min As Integer
x = Array(12, 11, 17, 5, 9, 13, 15, 18, 16, 20)
min = x(1)
For i = 1 To 10
If x(i) < min Then
min = x(i)
End If
Next i
Print min
End Sub
还有正解 谢谢
Dim x, min As Integer
x = Array(12, 11, 17, 5, 9, 13, 15, 18, 16, 20)
min = x(1)
For i = 1 To 10
If x(i) < min Then
min = x(i)
End If
Next i
Print min
End Sub
还有正解 谢谢
在最前面加一句：Option Base 1
数组是从0开始的，故最大下标为9
改正如下：
Dim x, min As Integer
x = Array(12, 11, 17, 5, 9, 13, 15, 18, 16, 20)
min = x(0)
For i = 0 To 9
If x(i) < min Then
min = x(i)
End If
Next i
Print min
VB 的数组，第一个索引值是 0 吧？
所以，min = x(0)；