Question

VB实时错误‘5’无效的过程调用或参数 【求解答！

一运行就一直显示：
实时错误‘5’无效的过程调用或参数
求大神解释为什么QAQ

Dim min%, i%
min = List1.List(0)
For i = 1 To List1.ListCount - 1
If List1.List(i) < List1.List(min) Then
min = i
End If
Next i
List1.RemoveItem (min)
按调试之后：List1.RemoveItem (min)

这一句被标出来了。
但是我真的不造哪里错QAQ

Answer 1

把min=List1.List(0)改为min=0即可
源代码中List1.List(i)<List1.List(min)的结果永远为False，调试可以发现List1.List(min)的返回值为""

Answer 2

1、定义数据类型 Dim min% 及 min=List1.List(0) 存在问题。如果 List1中的项目是非数字怎么办？就无法比较了 ...
如果 List 中增加的项目为纯数字，可以定义数字变量并将 List1.List 值转换。
2、执行程序执行 List1.RemoveItem(Index) 语句时，Index 应为 List1 中的项目的索引号，非min 值。所以要想移除 List1 中项目需要记录判断结果中 List1 的项目索引值 Index
如：
dim j as integer

For i = 1 To List1.ListCount - 1
If List1.List(i) < min Then
j = i
min=List1.List(i)
End If
Next i
List1.RemoveItem (j)