.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .如果 (客户1.连接 (编辑框1.内容, 到数值 (编辑框2.内容))) 画板1.滚动写行 (“连接服务器成功.......”) 按钮1.禁止 ＝ 真 按钮3.禁止 ＝ 假 .否则 画板1.滚动写行 (“连接服务器失败.......”) .如果结束 .子程序 _客户1_数据到达 画板1.滚动写行 (到文本 (客户1.取回数据 ())) .子程序 _按钮2_被单击 .如果 (客户1.发送数据 (编辑框3.内容)) 画板1.滚动写行 (“数据发送成功”) .否则 画板1.滚动写行 (“数据发送失败”) .如果结束 .子程序 _按钮3_被单击 客户1.断开连接 () 按钮1.禁止 ＝ 假 按钮3.禁止 ＝ 真