vb 数组赋值（vb net数组）

大家好，小城来为大家解答以上问题。vb 数组赋值，vb net数组很多人还不知道，现在让我们一起来看看吧！

1、数组的定义：

2、Dim strName(9) As String

3、Private Sub btnArrayElement_Click(sender As Object,

4、 e As EventArgs) Handles btnArrayElement.Click

5、 'Clear the list

6、 ClearList()

7、 'Declare an array

8、 Dim strFriends(4) As String

9、 'Populate the array

10、 strFriends(0)='Wendy'

11、 strFriends(1)='Harriet'

12、 strFriends(2)='Jay'

13、 strFriends(3)='Michelle'

14、 strFriends(4)='Richard'

15、 'Add the first array item to the list

16、 lstFriends.Items.Add(strFriends(0))

17、 End Sub

18、'Now create the following procedure:

19、Private Sub ClearList()

20、 'Clear the list

21、 lstFriends.Items.Clear()

22、End Sub

23、'Declare an array

24、Dim strFriends(4) As String

25、'Populate the array

26、strFriends(0)='Wendy'

27、strFriends(1)='Harriet'

28、strFriends(2)='Jay'

29、strFriends(3)='Michelle'

30、strFriends(4)='Richard'

31、'Add the first array item to the list

32、lstFriends.Items.Add(strFriends(0))

33、表单界面如下：

本文到此结束，希望对大家有所帮助。