这个我做过，代码如下Option Explicit Dim q As Integer， w As Single Private Sub Command1_ClickIndex As IntegerIf Index = 10 Then Text1Text = Text1Text quotquotElse Text1Text = Text1Text CStr；很简单的窗口放入四个COMMAND控件Caption属性分别为+－X÷，三个TEXT控件，再放入三个Label控件Caption属性分别为操作数1操作数2和计算结果，窗口的Caption属性改为“四则运算”代码如下Private Sub。

Private Sub Cancel_ClickReadout = Format0， quot0quotOp1 = 0 Op2 = 0 Form_Load End Sub Private Sub CancelEntry_ClickReadout = Format0， quot0quotDecimalFlag = False Last；Dim Num1， Num2 As Single Dim StrNum1， StrNum2 As String Dim FirstNum As Boolean #39判断是否是数字开头 Dim PointFlag As Boolean #39判断是否已有小数点 Dim Runsign As Integer #39储存运算符号 Dim SignFlag As。

1启动软件，新建一个变准EXE工程2我们在窗体上绘制好要使用到的控件3双击计算按钮进入代码窗口，我们可以在这里编写代码4接下来我们打入累加的赋值语句5接下来我们点击运行测试的小三角6这时候我们就；分类 电脑网络 程序设计 其他编程语言 解析其实比较简单啦，用一个窗体就可以实现啦！我自己写的，你可以看看 Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim；当你按完+*号后，或者按了 清零后，要进入下一个数字的输入如果这时候点 任何数字都应显示这个 数字如原来quot123quot按+号后，要显示下个输入的组字 quot0quot但如果没按+*或其他符号，这时候数字还没输入完整 ；在窗口的键盘事件中判断KeyCode就可以了，如Private Sub 窗口_KeyDownKeyCode As Integer，Shift As Integerif KeyCode = vbKeyDecimal then showtext=showtext quotquotend if End Sub 说明这里主要是用keyCode来；Dim dflag As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer Dim ind As Integer 以上是一系列的定义，大概是与计算方式及初试设定相关的定义 Private Sub Command1_ClickIndex As Integer这。

代码如下Dim t， t1 As Integer Dim x， y As Double Public Sub comx = Vall1CaptionSelect Case t1 Case Is = 1 y = y + x Case Is = 2 y = y x Case Is = 3 y = y * x Case；quotIf Op2 = 0 Then MsgBox quot除数不能为 0quot， 48， quot计算器quotElse Op1 = CDblOp1 CDblOp2End If Case quot=quotOp1 = CDblOp2Case quot%quotOp1 = CDblOp1 * CDblOp2。

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