Private Sub Command1_Click()Dim a() As Stringa = Split(Text1.Text, ",")For i = 0 To UBound(a)Print a(i)NextEnd Sub意思是:将文本框里面的内容以","(逗号)处隔开!!输出到窗体上
