Question

vb里怎么在数组中删除一个值

数组在Listbox中，怎么删除一个值后把新的数组重新导入原来的Listbox

Answer 1

Private Sub Command1_Click()

Dim a(100) As Integer, k As Integer

n = 20

For i = 1 To n

  a(i) = i

  List1.AddItem a(i)

Next i

k = CInt(InputBox("要删除第几个数："))

For i = k To n - 1

  a(i) = a(i + 1)

Next i

List1.Clear

For i = 1 To n - 1

  List1.AddItem a(i)

Next i

MsgBox ("第" & k & "个数已经删除！")

End Sub

Answer 2

List1.RemoveItem List1.ListIndex 删除选中项