数值模拟 Private Sub readButton_Click()FileNumber = FreeFileOpen "D:\test.txt" For Input As #FileNumberDo While Not EOF(FileNumber) Line Input #FileNumber, TextLine temp = temp + TextLine + vbC VB 2024-08-13 33 点赞 0 评论 50 浏览