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

发布网友发布时间：2022-06-18 01:36

共2个回答

热心网友时间：2023-11-24 00:09

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

热心网友时间：2023-11-24 00:10

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)

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

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