Dim s() As String, s1() As String
Open "数据.txt" For Binary As #1
s = Split(Input(LOF(1), #1))
Close #1
s1 = Split(s(1), "，") '第一行为s(0)，第二行为s(1)，依此类推
Text1.Text = s1(0)
Text2.Text = s1(1)
Text3.Text = s1(2)
Text4.Text = s1(3)
Text5.Text = s1(4)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024