现在我们现在要双击+，我们开始进行输入代码 在里面我们现在要text3text=valtext1text+valtext2text我们要把这个text3text=valtext1text+valtext2text复制，把里面+号分别改成* 如图，就像这。

Text3Text = ValText1Text + ValText2Text，其实代码很简单，就这一句只要更换把‘+’分别换成‘’‘*’‘’即可5好了，现在可以点击运行或者F5键运行，即可得到第一个简单的计算器程序。

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

Dim Op1， Op2 #39 预先输入操作数Dim DecimalFlag As Integer #39 小数点存在吗Dim NumOps As Integer #39 操作数个数Dim LastInput #39 指示上一次按键事件的类型Dim OpFlag #39 指示未完成的操作Dim。

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

不知道你想要哪种，偶是新手，只会最简单的 首先拖出三个text，再拖出4个Command按钮 caption分别为+ * 这样就准备就绪了 先讲一下简单用法，第一个text是第一个加数被减数因数被除数，而第二个text是第二个。

分类 电脑网络 程序设计 其他编程语言 解析其实比较简单啦，用一个窗体就可以实现啦！我自己写的，你可以看看 Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim。

Private Sub Command1_ClickIndex As IntegerIf Index = 16 Then Text1 = MidText1， 1， LenText1 1ElseIf Index = 15 Then Text1Text = CalcStrText1TextElse Text1 = Text1 Command1Index。

此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值2各控件组其属性设置如下设置效果如下图所示二编写代码 Dim s1 As Single， s2 As。

private sub 计算byval sender as object， byval e as eventargs handles 等号click 下一个数 = 输入框text 输入框text ＝ ”“select case 操作 case quot加quot结果 = 上一个数 + 下一个数 case quot减quot结果 =。

添加3个TEXT，和1个COMMAND按钮，把下面代码复制即可 Private Sub Command1_ClickText3 = ValText1+ ValText2End Sub 其中Text1和Text2是你要输入的两个加数，command是把两个数相加，text3是结果。

vb乘法是 * ，5乘以6 就是 5*6，点击计算按钮写 text3=valtext1*valtext2#39这样就可以了。

以上的回答这么麻烦，还让人活吗只需如此涉及控件text，com1，com2三种 属性设置无 命令如下通用命令 Option Explicit Dim v As Boolean Dim s As Integer Dim x As Double Dim y As Double 按钮一的命令 Pr。

因为17个按钮使用的是同一事件，所以我们用一个Select Case语句区分各个按钮，双击任意按钮输入代码Private Sub Command1_ClickIndex As IntegerSelect Case Index Case 0 To 9 If FirstNum Then StrNum1 = StrIndex。

切记，必须要先写上你要乘，除，加，减或二次方的数字再点击加减乘除符号，否则会造成数据复位，前面的会白算的，这与计算器是一个道理举例来说本来是2+22的按扭顺序，在这里是2 + 2 2 举。