.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 a
.局部变量 b, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 c, 整数型
a = 打开文件 (“C:\1.txt”, , )
b = 读入文本 (a, )
c = 3 ' 这里是你要读的行数
文本数组 = 分割文本 (b, #
换行符, )
.判断开始 (c > 取数组成员数 (文本数组))
信息框 (“总行数为:” + 到文本 (取数组成员数 (文本数组)) + “行,不能读取超过” + 到文本 (取数组成员数 (文本数组)) + “行,呵呵!”, 0, )
.默认
信息框 (文本数组 [c], 0, )
.判断结束
关闭文件 (a)
追问谢谢你,我已经弄好了。