不才，随便写了一下，应该是这个意思吧？
.版本 2
.程序集 窗口程序集1
.子程序 _编辑框3_1_字符输入, 整数型
.参数 字符代码, 整数型
.如果 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ＝ 46 或 字符代码 ＝ 8)
.否则
返回 (0)
.如果结束
.子程序 _编辑框3_2_字符输入, 整数型
.参数 字符代码, 整数型
.如果 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ＝ 46 或 字符代码 ＝ 8)
.否则
返回 (0)
.如果结束
.子程序 _编辑框3_3_字符输入, 整数型
.参数 字符代码, 整数型
.如果 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ＝ 46 或 字符代码 ＝ 8)
.否则
返回 (0)
.如果结束
.子程序 _编辑框2_字符输入, 整数型
.参数 字符代码, 整数型
.如果 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ＝ 46 或 字符代码 ＝ 8)
.否则
返回 (0)
.如果结束
.子程序 _编辑框1_字符输入, 整数型
.参数 字符代码, 整数型
.如果 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ＝ 46 或 字符代码 ＝ 8)
.否则
返回 (0)
.如果结束
.子程序 _编辑框3_1_内容被改变
编辑框3_4.内容 ＝ 到文本 (数值到格式文本 ((到数值 (编辑框3_1.内容) ＋ 到数值 (编辑框3_2.内容) ＋ 到数值 (编辑框3_3.内容)) ÷ 3, 2, 假))
.子程序 _编辑框3_2_内容被改变
编辑框3_4.内容 ＝ 到文本 (数值到格式文本 ((到数值 (编辑框3_1.内容) ＋ 到数值 (编辑框3_2.内容) ＋ 到数值 (编辑框3_3.内容)) ÷ 3, 2, 假))
.子程序 _编辑框3_3_内容被改变
编辑框3_4.内容 ＝ 到文本 (数值到格式文本 ((到数值 (编辑框3_1.内容) ＋ 到数值 (编辑框3_2.内容) ＋ 到数值 (编辑框3_3.内容)) ÷ 3, 2, 假))
.子程序 _按钮1_被单击
编辑框4.内容 ＝ 到文本 (数值到格式文本 (到数值 (编辑框1.内容) × (到数值 (编辑框1.内容) － 到数值 (编辑框2.内容) ÷ 100 ＋ 到数值 (编辑框3_4.内容)), 2, 假))

加了一些判断，在输入数字，小数点，退格键以外的字符将无法输入，避免发生输入错误
需要的话邮箱给我，我把源程序发给你。

做过此类模块的路过
-- 有问题为什么不问问百度、google、bing、360……呢？（我有个儿子总仿我的小尾巴）

2L
-- 有问题为什么不问问百度、google、bing、360……呢？（我有个儿子总仿我的小尾巴）