Dim a(N) 'N的正丛扮大举灶小根据情况郑改确定
贡山网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。创新互联建站公司2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
For i = 0 To List1.ListCount
a(i) = Val(List1.List(i))
Next
Private Sub Command1_Click()
Dim a() As String
ReDim a(List1.SelCount)
For i = 0 To List1.ListCount - 1
a(j) = List1.List(i)
Next i
For i = 0 To UBound(a) - 1
Debug.Print a(i)
Next i
End Sub
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListboxTotalItem As Integer = ListBox1.Items.Count - 1
Dim a(ListboxTotalItem) As String
For i As Integer = 0 To ListboxTotalItem
a(i) = i
Next
Label1.Text = a(5)
End Sub
End Class
-------------
一个Form1
一个Label1
一罩衫个Listbox1
一个Button1
在Listbox1中加入10个值
-------------
只是一物塌腔个演示,其他的要衫老靠自己。