vb计算器代码大全说明（数值1。数值2。请输入需要计算的数值都是标签。计算结果显示在“请输入需要计算的数值”那个位置。输入计算数值的位置是两个编辑框。其他六个是按钮，先把图形界面做好，名字按下面程序中给定的命名，代码完全复制过去，那么就能够用了）
.版本 2
.程序集 窗口程序集1
.子程序 _结果标签_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 _相加_被单击
结果标签.标题 ＝ “相加结果：” ＋ 到文本 (到数值 (数值1编辑框.内容) ＋ 到数值 (数值2编辑框.内容))
.子程序 _按钮2_被单击
结果标签.标题 ＝ “相减结果：” ＋ 到文本 (到数值 (数值1编辑框.内容) － 到数值 (数值2编辑框.内容))
.子程序 _相乘_被单击
结果标签.标题 ＝ “相乘结果：” ＋ 到文本 (到数值 (数值1编辑框.内容) × 到数值 (数值2编辑框.内容))
.子程序 _相除_被单击
.如果 (到数值 (数值2编辑框.内容) ＝ 0)
    信息框 (“除数不能为0”, #错误图标, “错误！”)
.否则
.如果结束
结果标签.标题 ＝ “相除结果：” ＋ 到文本 (到数值 (数值1编辑框.内容) ÷ 到数值 (数值2编辑框.内容))
.子程序 _清零_被单击
数值1编辑框.内容 ＝ “”
数值2编辑框.内容 ＝ “”
结果标签.标题 ＝ “请输入需要计算的数值”
.子程序 _退出_被单击
.局部变量 返回值, 整数型
.局部变量 如果真, 整数型
返回值 ＝ 信息框 (“确定要退出程序吗？”, #是否钮 ＋ #信息图标, )
.如果真 (返回值 ＝ #是钮)
    结束 ()
.如果真结束

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。