易语言,A框初始=1,1,2,1 B框=2(A框首+末) C框为+,消除A框首末,A框...

发布网友 发布时间：2024-10-22 21:09

我来回答

共2个回答

热心网友 时间：10小时前

.版本 2
.支持库 spec

.子程序 _按钮_计算_被单击
.局部变量 文本组, 文本型, , "0"
.局部变量 B, 整数型
.局部变量 C, 文本型
.局部变量 i, 整数型
.局部变量 内容, 文本型

文本组 ＝ 分割文本 (子文本替换 (编辑框_A.内容, “,”, “.”, , , 真), “.”, )
B ＝ 到整数 (文本组 [1]) ＋ 到整数 (文本组 [取数组成员数 (文本组)])
C ＝ 子文本替换 (编辑框_C.内容, “—”, “-”, , , 真)
i ＝ 1
.判断循环首 (i ≤ 取文本长度 (C))
    内容 ＝ 取文本中间 (C, i, 1)
    .判断开始 (内容 ＝ “+”)
        删除成员 (文本组, 1, 1)
        删除成员 (文本组, 取数组成员数 (文本组), 1)
    .判断 (内容 ＝ “-”)
        加入成员 (文本组, 到文本 (B))
    .默认
        调试输出 (i, “非+-字符”, 内容)
    .判断结束
    .如果真 (取数组成员数 (文本组) ＝ 0)
        跳出循环 ()
    .如果真结束
    B ＝ 到整数 (文本组 [1]) ＋ 到整数 (文本组 [取数组成员数 (文本组)])
    i ＝ i ＋ 1
.判断循环尾 ()
编辑框_A.内容 ＝ “”
.计次循环首 (取数组成员数 (文本组), i)
    编辑框_A.加入文本 (文本组 [i])
    .如果真 (i ≠ 取数组成员数 (文本组))
        编辑框_A.加入文本 (“.”)
    .如果真结束

.计次循环尾 ()
编辑框_B.内容 ＝ 到文本 (B)

测试一下看吧

热心网友 时间：10小时前

你这个问题没人能回答，因为不像地球人问的，没人能明白