|
发表于 2012-3-13 18:13:31
|
显示全部楼层
山西省大同市
- .版本 2
- .子程序 _按钮1_被单击
- .局部变量 文本, 文本型
- .局部变量 i, 整数型
- .如果真 (编辑框1.内容 = “”)
- 信息框 (“内容为空,无法执行操作!”, 0, )
- 返回 ()
- .如果真结束
- 文本 = 删首尾空 (编辑框1.内容)
- 分割框1.内容 = 取文本左边 (文本, 1)
- 分割框2.内容 = 取文本中间 (文本, 2, 1)
- 分割框3.内容 = 取文本中间 (文本, 3, 1)
- 分割框4.内容 = 取文本中间 (文本, 4, 1)
- 分割框5.内容 = 取文本中间 (文本, 5, 1)
- 分割框6.内容 = 取文本右边 (文本, 1)
- .子程序 _按钮2_被单击
- 键值框1.内容 = 到文本 (取代码 (分割框1.内容, ))
- 键值框2.内容 = 到文本 (取代码 (分割框2.内容, ))
- 键值框3.内容 = 到文本 (取代码 (分割框3.内容, ))
- 键值框4.内容 = 到文本 (取代码 (分割框4.内容, ))
- 键值框5.内容 = 到文本 (取代码 (分割框5.内容, ))
- 键值框6.内容 = 到文本 (取代码 (分割框6.内容, ))
复制代码 |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^. |
查看全部评分
|