试试这段代码(它将所有项目转换为字符串数组,因此您可以跳过定义数组大小):
number.Items.Add("One") number.Items.Add("Two") number.Items.Add("Three") number.Items.Add("Four") number.Items.Add("Five") number.Items.Add("Six") number.Items.Add("Seven") 'convert all items to string array Dim Numbers = number.Items.Cast(Of String).ToArray()