Dim Names(3) As String Names (0) = "杨国辉" Names (1) = "柯迎" Names (2) = "陈绍月" Names (3) = "朱志欣" Dim name As String For i As Integer = 0 To names.Length-1
name = name & "," & names(i) Next Output.Show(name.Trim(",") )
Dim na() As String na = name.Split(",") Output.show(na.length)