变量 待处理文本 为 文本型 , 弹出文字 为 文本型
变量 文本长度 为 整数型 , a 为 整数型
事件 主窗口.创建完毕()
编辑框1.内容 = "如果满意,请采纳回答,谢谢!"
结束 事件
事件 按钮1.被单击()
编辑框2.内容 =""
a = 0
时钟1.时钟周期 = 2000
结束 事件
事件 时钟1.周期事件()
待处理文本 = 编辑框1.内容
文本长度 = 取文本长度(待处理文本)
如果 a >= 文本长度 则
时钟1.时钟周期 = 0
否则
弹出文字 = 取文本中间(待处理文本,a,1)
a = a + 1
弹出提示("编辑框1第" & a + 1 & "个字为:" & 弹出文字)
编辑框2.内容 = 编辑框2.内容 & 弹出文字 & "\n"
结束 如果
结束 事件