其实比较简单啦，用一个窗体就可以实现啦！我自己写的，你可以看看 Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim intOperator As Integer #39清除结果 Private Sub cmdGT_Click。

先讲一下简单用法，第一个text是第一个加数被减数因数被除数，而第二个text是第二个加数减数因数除数，第三个text是和差积商，在text1输入一个数，text2输入一个，然后分别点击command“+ * ”text3。

Dim op1 As Byte Dim ops1， ops2 Dim res As Boolean Private Sub Command3_Clickops2 = ValLabel1CaptionSelect Case op1 Case 0 Label1Caption = ops1 + ops2 Case 1 Label1Caption = ops1 ops2。

以下是关键代码Rem 判断文本框输入是否正确，可添加在“计算”按钮代码中If IsNumericText1Text = False Then #39判断是否是数字 Msgbox quot错误quot，16，quot错误提示quot Text1SetFocusEnd IfIf IsNumericText2Text =。

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

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

ption Explicit Dim a As Single， b As Single， flag As Integer Private Sub Command1_ClickIndex As IntegerSelect Case Index Case 0 Text1Text = ValText1Text 1Case 1 Text1Text = ValText1。

储存 2个相加减乘除的值，当按数字键 文本框显示按键 变量1=按键1的值，接着按键2时变量1=变量1 按键2的值，同时test1text=变量1，计算器显示框显示以此类推当按 加减乘除 4个键任意一个 test1test。