请指点一下这个回车换行自动填写行号的源码错误在哪里

尹鹏

做作业是有一个简单的程序，但我想实现在编辑框中，直接回车后，自动加入行号，但程序写出来后有问题，一是在第一行回车后，加入的行号在第一行的尾部，第二次回车后，能正确加入2这个数字，但焦点却跑到了第三行。我上传了附件，麻烦大家帮忙看一下————————————————————————————————————————————————————————————

.版本 2

.程序集 窗口程序集1

.子程序 _编辑框1_内容展示_字符输入, 整数型
.参数 字符代码, 整数型

取行数 ()
.如果 (字符代码 ＝ 13)
    编辑框1_内容展示.加入文本 (到文本 (行数 ＋ 1))
.否则

.如果结束


.子程序 取行数, 整数型

文本内容 ＝ 分割文本 (编辑框1_内容展示.内容, #换行符, )
行数 ＝ 取数组成员数 (文本内容)
返回 (行数)

睿思Online

如有帮助，请给最佳

鸿格

还要下载点啊你