很简单的窗口放入四个COMMAND控件Caption属性分别为+－X÷，三个TEXT控件，再放入三个Label控件Caption属性分别为操作数1操作数2和计算结果，窗口的Caption属性改为“四则运算”代码如下Private Sub Co。

我们现在要text也要拉出三个，把了text里面text1text2text3全部删掉我们现在要把command拉出四个，把里面command14都给成+* 现在我们现在要双击+，我们开始进行输入代码 在里面我们现在要text3text=valtext。

名称为Command1，Caption 属性为数字 0 然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后。

1lblResult Label控件 设置lblResultCaption = 0 2btnNum0~btnNum9按钮控件数组，下标对应齐数字如btnNum0Caption=0，依次类推3添加btnAdd加法btnSub减法btnMul乘法btnDiv。

02 画上四个方框，表示运算法则即加减乘除四项，3个文本控件表示数，一个标签控件为“=”并对控件进行命名03 然后进行代码编写双击对应的按钮控件，进入代码编写界面Text3Text = ValText1Text +。

添加1个Command控件数组4个符号用作加减乘除按钮，name=cmdArithmetic，index=0~3 好了，然后复制以下代码运行即可成功啦#39Private strCalculateType As String #39存放运算类型 Private blnCalFlag As Boolean #39标记是否已经。

quotIf Op2 = 0 Then MsgBox quot除数不能为 0quot， 48， quot计算器quotElse Op1 = CDblOp1 CDblOp2End If Case quot=quotOp1 = CDblOp2Case quot%quotOp1 = CDblOp1 * CDblOp2。

#39 IF b = 0 Then Msgbox quot除数不能为0或空quotexit sub End If #39 c = a b #39把两个除数转换数字后相除，并把计算的结果存放到存储单元c中 Label2Caption = c #39把存储单元c中的值，显示在标签中 E。

我也是刚学会的，太简单！Dim cleardisplay As Boolean Dim operand1 As Double Dim operand2 As Double Dim operator As String Private Sub Command1_ClickIndex As Integer #39控件数组command1index，数字0到9 If。

用scriptcontrol可以计算公式 首先建立你要的界面，按加减等按钮在文本框中生成公式直接敲入表达式不更好吗，再加一个求值的按钮，用scriptcontrol直接算结果 private sub command2_clickdim s dim。

MsgBox quot 正常的加减乘除都是正常的，当你使用混合加减乘除时切记，必须要先写上你要乘，除，加，减或二次方的数字再点击加减乘除符号，否则会造成数据复位，前面的会白算的，这与计算器是一个道理举例来说本来是。

就是电脑上的那计算器谁能给写写代码用VB的我给400分！ 就是电脑上的那计算器 谁能给写写代码 用VB的 我给 400分！ 展开 #xE768 我来答 3个回答 #热议# 帮帮团大学生专场，可获百度实习机会。

20060626 用VB编一个简单的计算器程序 3 20101129 用VBNET编写电脑上的计算器，求详细代码 6 20121124 如何用vbnet写一个计算器的程序 20071108 怎么用VBNET来编一个计算器的程序，连续输入数字的代码是。

先假定从左边到右边三个文本框的名称依次是text1text2text3从上到下四个命令按钮的名字依次是command1command2command3command4private sub command1_clickdim a as single，b as single，c as single。

整了一个，还不算太成熟不过楼主所说的主要功能都实现了，是不是能满足楼主的要求就不知道了有什么问题欢迎楼主提出！Dim I As Byte Dim First As Single， Second As Single， Third As Single Private Sub Command1。

用VB做个计算器 要最简单的 实现加减乘除 10 用最简单的代码if语句来编辑等号里的加减乘除都要最简单的代码数字键和小数点的不用了设三个通用DimxAsDouble，yAsDoubleDimzAsString用COM键和LABEL说了要用最最简单的代码 用最。

小数点用Cmd10表示，加减乘除分别用Cmd11Cmd14表示，等于用Cmd15表示 其他的自行决定定义一个变量TxtNumber，用于保存第一个因数计算用定义一个变量TxtFh用于储存运算符号 下面是部分代码，不懂再追问Pri。