请教VB最多能写多少行程序

可被加载到窗体、类或标准模块的代码总数限于 65,534 行。一行代码限于 1023 个字节。在一行中的实际文本之前最多只能有 256 个空格的前导，在一个逻辑行中最多只能有 25 个续行符 ( _)。

过程、类型和变量

对每个模块的过程数没有限制。每个过程可包含至乎州核多 64K 的代码。如果过程或模块超过这一限制，Visual Basic 便产生编译时间错误。如果遇到这岁掘种错误，可将特别大的过程分割成若干个较小的过程，或将模块级声明移到另一模块，来避免此类错误发生。

Visual Basic 用表来保存代码中的标识符名（变量、过程、常量等）。每个表限于 64K。

动态链接库声明表

每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约 40 个字节，表的大小限于 64K，形成每个模块大约有 1500 个声明。

工程名表

整个应用程序用一张包含所有名称的表。这些名称包括：

DLL 过程声明名

对工程名表总大小没有限制，但是区分大小写的条目不得超过 32K。如果超过了 32K 的限制，可以在不同的模块中重新使用 private 标识符以限制区分大小写的条目数到达 32K。

输入表

在不同的模迹野块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是 24 字节，但限于 64K，这样每个模块大约可以有 2000 个引用。

模块条目表

该表中每个模块最多达 125 个字节，但有 64K 的总限制，这样每个工程大约可以产生 400 个模块。

Line Input就是每次读取一行，n = n + 1就是每次读取一激禅行时就把n递增1，所以程序运行完毕后n就是行数了。陆铅陪

还有更简单的方法：

Open "c:\1.txtt" For Binary As #1

MsgBox "文件有 "早蠢 &UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 &" 条记录。", vbInformation

Close #1

三行即可

---