需要(编辑框1 编辑框2 编辑框3 按钮1 四个单选框)
按这张图片把标题改下 当然你怎么改都没关系。
把以下代码输入到程序集里去
.版本 2
.子程序 _按钮1_被单击
数值1 = 到数值 (编辑框1.内容)
数值2 = 到数值 (编辑框2.内容)
' 如果真()
.如果真 (单选框1.选中 = 真)
结果 = 数值1 + 数值2
编辑框3.内容 = 到文本 (结果)
.如果真结束
.如果真 (单选框2.选中 = 真)
结果 = 数值1 - 数值2
编辑框3.内容 = 到文本 (结果)
.如果真结束
.如果真 (单选框3.选中 = 真)
结果 = 数值1 × 数值2
编辑框3.内容 = 到文本 (结果)
.如果真结束
.如果真 (单选框4.选中 = 真)
结果 = 数值1 ÷ 数值2
编辑框3.内容 = 到文本 (结果)
.如果真结束
.如果真 (单选框4.选中 = 假 且 单选框3.选中 = 假 且 单选框2.选中 = 假 且 单选框1.选中 = 假)
编辑框3.内容 = “输入有错,什么都没有 o(︶︿︶)o ”
.如果真结束
' 如果
.' 如果 (单选框1.选中 = 真)
' 结果 = 数值1 + 数值2
' 编辑框3.内容 = 到文本 (结果)
.否则
.如果结束
.' 如果 (单选框2.选中 = 真)
' 结果 = 数值1 - 数值2
' 编辑框3.内容 = 到文本 (结果)
.否则
.如果结束
.' 如果 (单选框3.选中 = 真)
' 结果 = 数值1 × 数值2
' 编辑框3.内容 = 到文本 (结果)
.否则
.如果结束
.' 如果 (单选框4.选中 = 真)
' 结果 = 数值1 ÷ 数值2
' 编辑框3.内容 = 到文本 (结果)
.否则
.如果结束
.判断开始断 (单选框1.选中 = 真)
' 结果 = 数值1 + 数值2
' 编辑框3.内容 = 到文本 (结果)
.' 判断 (单选框2.选中 = 真)
' 结果 = 数值1 - 数值2
' 编辑框3.内容 = 到文本 (结果)
.' 判断 (单选框3.选中 = 真)
' 结果 = 数值1 + 数值2
' 编辑框3.内容 = 到文本 (结果)
.默认
' 结果 = 数值1 ÷ 数值2
' 编辑框3.内容 = 到文本 (结果)
这样就ok了 虽然有时候不知道怎的 也会计算错误