易语言怎么写点击按钮1,弹出信息框的内容=编辑框1的内容
1个回答
展开全部
.版本
2
.程序集
窗口程序集1
.程序集变量
组1,
文本型,
,
"0"
.程序集变量
组2,
文本型,
,
"0"
.子程序
__启动窗口_创建完毕
组1
=
分割文本
(编辑框1.内容,
到文本
(#换行符),
)
组2
=
分割文本
(编辑框2.内容,
到文本
(#换行符),
)
.子程序
_按钮1_被单击
.局部变量
已循环次数记录变量,
整数型
.局部变量
已循环次数记录变量2,
整数型
.局部变量
临时变量,
文本型
.局部变量
判段值,
文本型
已循环次数记录变量
=
1
.计次循环首
(取数组成员数
(组2),
已循环次数记录变量)
已循环次数记录变量2
=
1
.计次循环首
(取数组成员数
(组1),
已循环次数记录变量2)
.如果
(文本替换
(组2
[已循环次数记录变量],
1,
2,
“”)
=
文本替换
(组1
[已循环次数记录变量2],
1,
2,
“”))
判段值
=
“(自动)”
跳出循环
()
.否则
判段值
=
“(未选)”
.如果结束
.计次循环尾
()
'
临时变量
=
临时变量
+
组1
[已循环次数记录变量2]
+
“(自动)”
临时变量
=
临时变量
+
组2
[已循环次数记录变量]
+
判段值
+
#换行符
.计次循环尾
()
信息框
(临时变量,
0,
)
2
.程序集
窗口程序集1
.程序集变量
组1,
文本型,
,
"0"
.程序集变量
组2,
文本型,
,
"0"
.子程序
__启动窗口_创建完毕
组1
=
分割文本
(编辑框1.内容,
到文本
(#换行符),
)
组2
=
分割文本
(编辑框2.内容,
到文本
(#换行符),
)
.子程序
_按钮1_被单击
.局部变量
已循环次数记录变量,
整数型
.局部变量
已循环次数记录变量2,
整数型
.局部变量
临时变量,
文本型
.局部变量
判段值,
文本型
已循环次数记录变量
=
1
.计次循环首
(取数组成员数
(组2),
已循环次数记录变量)
已循环次数记录变量2
=
1
.计次循环首
(取数组成员数
(组1),
已循环次数记录变量2)
.如果
(文本替换
(组2
[已循环次数记录变量],
1,
2,
“”)
=
文本替换
(组1
[已循环次数记录变量2],
1,
2,
“”))
判段值
=
“(自动)”
跳出循环
()
.否则
判段值
=
“(未选)”
.如果结束
.计次循环尾
()
'
临时变量
=
临时变量
+
组1
[已循环次数记录变量2]
+
“(自动)”
临时变量
=
临时变量
+
组2
[已循环次数记录变量]
+
判段值
+
#换行符
.计次循环尾
()
信息框
(临时变量,
0,
)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |