Dim stringArray As Array = Array.CreateInstance(GetType([String]), ComboBox2.Items.Count)
Dim num As Integer
Dim numEnd As Integer
numEnd = ComboBox2.Items.Count - 1
For num = 0 To numEnd
stringArray.SetValue(ComboBox2.Items(num), num) '将ComboBox2内的数据导入stringArray数组
Next num
Thread.CurrentThread.CurrentCulture = New CultureInfo("zh-CN") '针对特定区域性对数据进行比较和排序,可查MSDN
Array.Sort(stringArray) '对一维 Array 对象中的元素进行排序
ComboBox2.Items.Clear()
For num = 0 To numEnd
ComboBox2.Items.Add(stringArray(num))
Next num
Dim num As Integer
Dim numEnd As Integer
numEnd = ComboBox2.Items.Count - 1
For num = 0 To numEnd
stringArray.SetValue(ComboBox2.Items(num), num) '将ComboBox2内的数据导入stringArray数组
Next num
Thread.CurrentThread.CurrentCulture = New CultureInfo("zh-CN") '针对特定区域性对数据进行比较和排序,可查MSDN
Array.Sort(stringArray) '对一维 Array 对象中的元素进行排序
ComboBox2.Items.Clear()
For num = 0 To numEnd
ComboBox2.Items.Add(stringArray(num))
Next num