vb 这个怎么改

Question

If Form50.List1.ListCount > 0 Then 
For ii = 0 To Form50.List1.ListCount - 1 
Form50.List1.ListIndex = ii 
For w = 0 To 18 
If Form50.Check1(w).Value = 1 Then k = w - 9 
For i = MSFlexGrid1.Rows - 1 To 1 Step -1 
dd = MSFlexGrid1.TextMatrix(i, 1) 
j = Val(Mid(dd, 1, 1)) - Val(Mid(dd, 3, 1)) 
If Form50.Option1(0) = True Then 
If j = k And Form50.Check1(w).Value Then MSFlexGrid1.RemoveItem i 
End If 
现在想求p 
想加一段 ElseIf Form50.Option1(1) = True Then 
If j = k And Form50.Check1(w).Value Then MSFlexGrid1.RemoveItem p 
p=在原始i中抛去计算完的i 
如原始i为1 to 56， 计算完的i（ If j = k And Form50.Check1(w).Value Then MSFlexGrid1.RemoveItem i 
）分别等于2，4，5，6，11，19 
那么p就应该分别等于在1到56中的56个数抛去，2，4，5，6，11，19这6个数 
这个p该怎么写

Answer 1

你应当想办法把问题表述清楚，不是一个又一个发帖
注意“在线聊天”