首先,传统的VB没有filestream的,它是vb.net或c#中的其次,filestream是个类,把它直接转成integer没有任何意义若是要用filestream读入integer变量,可用以下例程 Dim fs As FileStream    Dim b As Integer    Dim d As Integer    fs = File.OpenRead("D:\temp\11.txt")    b = 0    d = 0    b = fs.ReadByte    While b <> -1      If (b <> 10 And b <> 13) Then        d = d * 10 + b - 48      End If      If (b = 13) Then        TextBox1.Text = TextBox1.Text + CStr(d) + vbCrLf '这里的d就是一个整形数        d = 0      End If      b = fs.ReadByte    End While