VB 哪位高手能用循环结构自动处理下面的语句？

来源：百度知道 编辑：UC知道 时间：2024/05/28 09:23:46
代码：
If List1.Selected(29) Then
Call DeleteLine(App.Path & "\data\userdefined.txt", 1)
Call DeleteLine(App.Path & "\data\userdefined.txt", 2)
End If
If List1.Selected(30) Then
Call DeleteLine(App.Path & "\data\userdefined.txt", 3)
Call DeleteLine(App.Path & "\data\userdefined.txt", 4)
End If

If List1.Selected(31) Then
Call DeleteLine(App.Path & "\data\userdefined.txt", 5)
Call DeleteLine(App.Path & "\data\userdefined.txt", 6)
End If
If List1.Selected(32) Then
Call DeleteLine(App.Path & "\data\userdefined.txt", 7)
Call DeleteLine(App.Path & "\data\userdefined.txt", 8)
End If
……
以上都是用人工IF语句来判断的，能否用循环结构根据上面的规律自动判断？

该题的关键是Selected()增长1点时，call要增长2点，
for i=29 to X 'X为上限
If List1.Selected(i) Then
Call DeleteLine(App.Path & "\data\userdefined.txt", (i-29)*2+1)
Call DeleteLine(App.Path & "\data\userdefined.txt", (i-29)*2+2)
end if
next

for i=29 to 32
j=i-28
k=i-27
Call DeleteLine(App.Path & "\data\userdefined.txt", j)
Call DeleteLine(App.Path & "\data\userdefined.txt", k)
next

用select case