|
发表于 2011-3-11 17:11:25
|
显示全部楼层
广东省深圳市
[e].版本 2
.子程序 _按钮1_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 姓名, 文本型
.局部变量 临时文本, 文本型
.计次循环首 (列表框1.取项目数 (), x)
姓名 = 列表框1.取项目文本 (x - 1)
临时文本 = “”
.计次循环首 (取文本长度 (姓名) ÷ 2, y)
临时文本 = 临时文本 + 取拼音 (取文本中间 (姓名, y × 2 - 1, 2), 1)
.计次循环尾 ()
列表框2.加入项目 (临时文本 + “@126.com”, )
.计次循环尾 ()
子程序1 ()
.子程序 子程序1
.局部变量 文本数组, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 临时文本, 文本型
文本数组 = 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (文本数组), x)
临时文本 = “”
.计次循环首 (取文本长度 (文本数组 [x]) ÷ 2, y)
临时文本 = 临时文本 + 取拼音 (取文本中间 (文本数组 [x], y × 2 - 1, 2), 1)
.计次循环尾 ()
编辑框2.加入文本 (临时文本 + “@126.com” + #换行符)
.计次循环尾 ()[/e] |
|