定义一个2维数组或者一个数据表就OK了。看你的习惯。用文本框把所有的数据都显示出来还是现在指定行列的数据？ 在窗体上部署textbox1，下面代码里就可以实现你要得效果
textbox1.text = ReadList(ReadText)‘这是两个函数，用于支持
Private Function ReadText() As String()()
Dim pathstr = "c:/123.txt"
Dim sr As New StreamReader(pathstr)
Dim listA(26)() As String
Dim i As Inte...
