Dim filepath As String
filepath = Application.StartupPath & "\kcjl.txt"
Dim mysr As IO.StreamReader
mysr = New IO.StreamReader(filepath)
TextBox1.Text = mysr.ReadToEnd()
运行后出现如图所事的情况

为什么会出现这种情况
是我代码的问题吗

编码问题

Dim filepath As String
filepath = Application.StartupPath & "\kcjl.txt"
Dim mysr As IO.StreamReader
mysr = New IO.StreamReader(filepath,encoding.****)
TextBox1.Text = mysr.ReadToEnd()