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

2、代码如下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。

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

4、Text1Text， quotquot lt 0， FormatNum2， quot#0#quot， Num2 Num1 = ValText1TextEnd SubPrivate Sub Command4_Click Text1Text = quot0quot sFocus S = 1End SubPrivate Sub Command5_Click。

5、1用VB编程序设计一个简易的计算器 代码Dim num_1， num2， flagPrivate Sub Command1_ClickIndex As Integer Select Case Index Case 0 To 9 Label1Caption = Label1Caption + CStrCommand1Index。

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

7、同样再拖三个标签，将第一个的属性设置为数一，第二个设置为数二，第三个设置为结果这样，我们的主界面就制作完成了接下来我们开始创建菜单，在窗体上右键单击选择“菜单编辑器”将菜单标题命名为计算，并将其设置为。

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

9、Option Explicit Dim num2， num1 As Variant Dim flag， hflag， ff As Boolean Dim c， t As Long Const pi = 38 Private Sub backspace_Click#39退格键 If flag = False Then Exit Sub End If If。

10、04 最后，按“F5”运行即可咯特别提示 VB的编写相对其他程序语言会简单一些，感兴趣者可以深入研究。

11、定义2个公用变量 变量1 变量2 储存 2个相加减乘除的值，当按数字键 文本框显示按键 变量1=按键1的值，接着按键2时变量1=变量1 按键2的值，同时test1text=变量1，计算器显示框显示以此类推当按。

12、按你的要求做的代码如下在1个新窗体上编排以下控件添加1个Label1控件用作显示数据，name=lblScreen 添加1个Command控件数组10个数字用作输入数据的按钮0~9，name=cmdNumber，index=0~9 添加1个Command控件用作小数。

13、#39取得当前输入的运算符，以做下次运算 intOperator = Index strNumber = quotquottxtDisplay = CStrdblNum1#39判断是否为文本框中的数字加点 If Not txtDisplay Like quot**quot Then txtDisplayText = txtDisplayText quot。

14、这是刚看VB的时候写的一个简易计算器，可以看看Dim Num1， Num2 As SingleDim StrNum1， StrNum2 As StringDim FirstNum As Boolean #39判断是否是数字开头Dim PointFlag As Boolean #39判断是否已有小数点Dim Runsign As。

15、VB中的textbox里的内容默认是string类型如果用+号连接，就会认为是字符型数据做连接运算如果想要作为数字进行加法，就必须强制转换算成数值型，可以用Val函数来实现转换以加法为例Private Sub Command1_Click #39。

16、以下是一个简单的+*的计算器代码，按钮采用数组，text2不可见详情也可在我的百度空间里查看“vb6 比较简单的计算器代码”下载源文件和说明Function EvalByVal Expressions As String As String #39文本运算vbs Dim。

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