求 简单加入数组的例子

你的骄傲

求 简单加入数组的例子

题目就是现在有3个编辑框，编辑框1、2、3.内容分别是数字1、2、3、。然后依次判断编辑框1、2、3的数字是不是>0,如果是，则加入数组“发送内容”。

exit11

.版本 2

.子程序 _按钮1_被单击
.局部变量 整数数组, 文本型, , "0"

.如果真 (到整数 (编辑框1.内容) ＞ 0)
    加入成员 (整数数组, 编辑框1.内容)
.如果真结束
.如果真 (到整数 (编辑框2.内容) ＞ 0)
    加入成员 (整数数组, 编辑框2.内容)
.如果真结束
.如果真 (到整数 (编辑框3.内容) ＞ 0)
    加入成员 (整数数组, 编辑框3.内容)

exit11

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 x, 整数型
.局部变量 临时文本, 文本型
.局部变量 整数数组, 整数型, , "0"

a ＝ “123456789”
.计次循环首 (取文本长度 (a), x)
    临时文本 ＝ 取文本中间 (a, x, 1)
    .如果真 (到整数 (临时文本) ≥ 5)
        加入成员 (整数数组, 到整数 (临时文本))
    .如果真结束

.计次循环尾 ()
调试输出 (整数数组)

小马过河

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.如果 (到数值 (编辑框1.内容) ≠ 0)
    编辑框4.加入文本 (编辑框1.内容 ＋ #换行符)

.否则

.如果结束
.如果 (到数值 (编辑框2.内容) ≠ 0)
    编辑框4.加入文本 (编辑框2.内容 ＋ #换行符)

.否则

.如果结束

.如果 (到数值 (编辑框3.内容) ≠ 0)
    编辑框4.加入文本 (编辑框3.内容 ＋ #换行符)

.否则

.如果结束


你要的是这个效果吗？

你的骄傲

exit11 发表于 2011-5-24 10:25
.版本 2
.支持库 spec

是判断编辑框的内容，1、2、3.偏题了。

你的骄傲

小马过河 发表于 2011-5-24 10:27
.版本 2

.程序集 窗口程序集1

不是，需要的效果是 判断后加入数组。

airpppp

计次循环首(取文本长度(编辑框1.内容),计次)
单字符变量=取文本中间(编辑框1.内容,i,1)
如果真(单字符变量>0)
加入成员(发送内容,单字符变量)

exit11

你的骄傲 发表于 2011-5-24 10:28
是判断编辑框的内容，1、2、3.偏题了。

不解释。。。。。。。

airpppp

分割数组变量=分割文本(编辑框1.内容,"、")
计次循环首(取数组成员数(分割数组变量),计次)
如果真(分割数组变量[计次]>0)
加入成员(发送内容,单字符变量[计次])

exit11

直接 给你这个答案，你又能学到什么呢？？{:3_226:}