如何把类似这种子程序封装成模块【求例程，正学习】

psyche

1. .版本 2
   
2. 
   
3. .局部变量 I
   
4. .局部变量 字节集, 字节集
   
5. .局部变量 结果, 文本型
   
6. 
   
7. 字节集 ＝ 到字节集 (文本编辑框.内容)
   
8. .计次循环首 (取字节集长度 (字节集), I)
   
9.     结果 ＝ 结果 ＋ 到文本 (字节集 [I]) ＋ “,”
   
10. .计次循环尾 ()
    
11. 字节集编辑框.内容 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)
    

复制代码

SalHe

[e]
.版本 2

.子程序 子程序_程序名自定, 文本型
.参数 文本, 文本型
.局部变量 I, 整数型
.局部变量 字节集, 字节集
.局部变量 结果, 文本型

字节集 ＝ 到字节集 (文本)
.计次循环首 (取字节集长度 (字节集), I)
    结果 ＝ 结果 ＋ 到文本 (字节集 [I]) ＋ “,”
.计次循环尾 ()
返回 (取文本左边 (结果, 取文本长度 (结果) － 1))
[/e]

SalHe

用返回不就行了？

Xiao白

你要的。。
模块_例.rar (1.21 KB, 下载次数: 15)

2013-7-24 21:04 上传

点击文件名下载附件