关键词：
代码简单点
不要太复杂的
谢谢了
我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。
我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。
我们现在要把command拉出四个，把里面command1-4都给成+-*/
现在我们现在要双击+，我们开始进行输入代码
在里面我们现在要：text3.text=val(text1.text)+val(text2.text)
我们要把这个（text3.text=val(text1.text)+val(text2.text)）复制，把里面+号分别改成-*/
如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。
感谢观看。
参考技术A
\'界面设置如图\' 代码如下\'已增加操作数正确性验证及 除数不能为0验证Private Sub Command1_Click() If IsNumeric(Text1.Text) And Text1.Text "" And IsNumeric(Text2.Text) And Text2.Text "" Then Select Case Combo1.ListIndex Case 0 Text3.Text = Val(Text1.Text) + Val(Text2.Text) Case 1 Text3.Text = Val(Text1.Text) - Val(Text2.Text) Case 2 Text3.Text = Val(Text1.Text) * Val(Text2.Text) Case 3 If Val(Text1.Text) 0 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else MsgBox "除数不能为0", , "错误" End If End Select Else MsgBox "请输入操作数", , "错误" End IfEnd SubPrivate Sub Form_Load() Combo1.AddItem "+" Combo1.AddItem "-" Combo1.AddItem "*" Combo1.AddItem "/" Combo1.ListIndex = 0 Text1.Text = "" Text2.Text = "" Text3.Text = "" Command1.Caption = "计算" End Sub本回答被提问者采纳 参考技术B Dim YSF% '定义运算符
Dim S1#, S2# '定义运算中的两个数值
Dim ZT% '定义状态
Dim FH As Boolean '定义符号
Dim XSD As Boolean '定义运算符
Dim CD1%, CD2% '定义与符号有关的两个字符串长度
Dim M1#, M2#, M3#, M4#, M5# '定义用于记忆功能的5个变量
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
顺序是+-*/ 参考技术C Dim op1 As Byte
Dim ops1&, ops2&
Dim res As Boolean
Private Sub Command1_Click(i As Integer)
If Not res Then
Label1.Caption = Label1.Caption & i
Else
Label1.Caption = i
res = False
End If
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
End Sub
Private Sub Command3_Click()
ops2 = Label1.Caption
Select Case op1
Case 0
Label1.Caption = ops1 + ops2
Case 1
Label1.Caption = ops1 - ops2
Case 2
Label1.Caption = ops1 * ops2
Case 3
Label1.Caption = ops1 / ops2
End Select
res = True
End Sub
Private Sub Command4_Click(j As Integer)
ops1 = Label1.Caption
op1 = j
Label1.Caption = ""
End Sub
Private Sub Command5_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
res = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub 参考技术D 控件：
四个textbox
一个command键
private sub command1_click()
select case cstr(text2.text)
case "+"
text4.text=val(text1.text)+val(text3.text)
case "-"
text4.text=val(text1.text)-val(text3.text)
case "*"
text4.text=val(text1.text)*val(text3.text)
case "/"
if val(text3.text)=0 then
msgbox "分母不能为零"
text3.setfoucs
text3.text=""
endif
text4.text=val(text1.text)/val(text3.text)
end select
end sub
这够简单了吧！！！？？？
简单工厂设计模式(代码片段)
业务场景：设计一款计算器提供加减乘除功能同时要满足松耦合高复用以及高拓展的特性。一般情况：抛去上述的特性就实现简单的加减乘除的功能，大多数初级程序员可能和我一样首先脑中浮现出的代码逻辑是这样的publicstatic... 查看详情
编写一个简单的单元测试用例
开发一个简单的计算器，用于计算两个数的加减乘除，示例：1classCalculator():2‘‘‘实现简单的加减乘除‘‘‘3def__init__(self,a,b):4self.a=int(a)5self.b=int(b)67defadd(self):8returnself.a+self.b910defsub(self):11returnself.a-self.b1213defmul(self 查看详情
怎样用c语言编写一个简单的可以进行加减乘除运算混合运算的计算器？
用C语言编写一个简单的可以进行加减乘除运算混合运算的计算器的方法：1、打开visualC++6.0-文件-新建-文件-C++SourceFile；2、输入预处理命令和主函数：#include<stdio.h>/*函数头：输入输出头文件*/voidmain()/*空类型：主函数*/3、定... 查看详情
求做一个最简单的vb计算公式程序的代码
...，而且两个文本框之间现实除号，后边有等号，等号后有一个输出计算结果的文本框，这样类似的公式做两个，让后要有一个统一的按钮取名计算，还有一个取名清空，两个按钮最好放在下面，谢谢，急的一、设置控件属性text1... 查看详情
用java写一个加减乘除的计算(代码片段)
用java写一个加减乘除的计算输入格式：12+4输出格式：12+4=16【参考代码】packagecom.work;importjava.util.Scanner;/***@author:Byyangbocsu*@date:2021/9/2515:05*@description:*/publicclassCalculato 查看详情
用java语言做一个简单的小学生算数测试器
要求1-100以内的加减乘除测试。。。用IDE编辑的模式。。。是初学者！！！！不要复杂的。。。最最简单即可。。。不是啊。。。是类似考卷形式的测试。。不是计算器~~~~packagecom.wqx.print;importjava.util.Random;importjava.util.Scanner;publicc... 查看详情
在linux下，用shell编写一个简单的计算器，要实现加减乘除4个功能就行了
紧急使用，速度快的话可以追加分不用写吧，本来有个bc命令可用，没有下载就成.非要写一个，zsh的function里有一个，名zcalc,贴上来给你#!/usr/bin/zsh-i##Zshcalculator.Understandsmostordinaryarithmeticexpressions.#Lineeditingandhistoryareavailable.Ablanklin... 查看详情
利用javascript做简单的算法
...论是Pycharm或是IDLE、java都可以计算简单的算法，比如加减乘除。然而在Hbuilder中，javascript也可以用来计算数值的加减乘除。比如，我们计算：假设y=5，计算x=y+2，并显示结果。2方法首先利用<p>... 查看详情
设计模式:简单工厂模式(代码片段)
...来创造这个实力过程。实现为此我们就用简单工厂类实现加减乘除的算法计算。首先定义一个运算的接口。publicinterfaceOperationpublicdoublegetResult();定义好接口后，我们需要实现该接口，目前只实现加减乘除，所以需要四个实现类，... 查看详情
请问，编程语言中，（vb或者说vba,），宏是啥概念啊？宏做出来一个是类模块，但是类模块
...，如doc,xls等，其Vba代码是包含在文档本身中的。所以！一个导出的类模块什么也干不了只是源代码而已。这些程序的运行都需要在各自的软件环境中，如doc里的代码要在word中执行。顺便说一下office2007之后，为了安全，默认是不... 查看详情
怎么做winform计算器？c#
...的计算器只有需要2个变量.一个暂定为num,作用为记录点击加减乘除按钮时文本框内的值.另一个暂定为opr,记录加减乘除具体操作每次点击数字按钮，记住textbox的text是+=，不是=再设置一个清空按钮，让textbox的text=""点=时就是根据op... 查看详情
不用加减乘除做加法（剑指offer-48）(代码片段)
题目描述写一个函数，求两个整数之和，要求在函数体内不得使用+、-、*、/四则运算符号。题目解析首先看十进制是如何做的：5+7=12，三步走第一步：相加各位的值，不算进位，得到2。第二步：计算进位值，得到10.如果这一步... 查看详情
项目——简易计算器(代码片段)
...。项目预期如下：实现命令行版本的核心算法，做简单的加减乘除就可以了；实现图形化窗口。代码预期要200行以上.对自己提一个要求：可以上网找思路，但是绝对不看别人的源码。2017.12.23经过几天的努力，总算把这个计算器... 查看详情
设计模式1：简单工厂模式
...接口）调用。举一个简单的例子来说，我们要实现一个有加减乘除功能的计算器，由用户输入+-*/和两个数字，打印计算结果。在这里，加减乘除是四个功能类似的 查看详情
计算机问题，vb和c语言最大的区别是啥
...正最大的差别是，VB是解释执行而C是编译执行，因此C的代码运行速度远高于VB。细说起来他们还有其它的一些特征差异如下：但是VB的开发应用程序的速度要远快于C，所以很多公司会选择VB去做快速项目。而C开发项目则要做很多... 查看详情
javagui制作一个简易计算器
...门JAVAGUI入门用JAVAGUI制作一个简单计数器简介功能：实现加减乘除计算功能和复位功能这里我所设计的简单计算器，计算加减乘除两个运算数类型为int如果要计算小数，只需改动一下x,y,z的类型变为double以及字符串的转化为Double... 查看详情
用html做一个购物车，能实现简单的产品数量和价格的加减就行。最后能计算出提交物品价格的总和。
html中的购物车的增减不能直接传送到后台，可以通过ajax，在js中发送ajax纯前端的话可以参考下面的<!DOCTYPE html> <html lang="en"> <head> <meta charset=... 查看详情
java计算器(代码片段)
题目：简易计算器时间：2019.3.10介绍：做一个简易的计算器，实现简单的加减乘除运算。本文代码在Eclipse上调试运行。packagecalculate;importjavax.swing.*;importjava.awt.BorderLayout;importjava.awt.Color;importjava.awt.GridLayo 查看详情