1创建控件组的方法首先创建一个命令按钮，调整其大小觉得合适就行，名称为Command1，Caption 属性为数字 0 然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选。

我们现在要把command拉出四个，把里面command14都给成+* 现在我们现在要双击+，我们开始进行输入代码 在里面我们现在要text3text=valtext1text+valtext2text我们要把这个text3text=valtext1text+。

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

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

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

简易计算器 启动VB60，新建一个标准Exe工程在窗体上绘制若干个按钮，并摆放好所需的位置编写代码设置三个窗体级变量编写+×÷的单击事件控件数组编写+×÷失去焦点的代码控件数组编写09按钮的单击事件。

其实不难的，方法如下计算器上的数字和 计算符号 你全部设置成button，样式你就照WINDOWS的样式设计排版好比如数字1，你就添加个button，然后设置他的text为1，大小你再调整一下，然后那个显示你输入数字内容的你设为。

都置为true，15是等于号，16是括号按钮，17是退格按钮，18是清除按钮，19是求平方的按钮， txtInput是计算器的文本框 Function CalcStrstrNum As String As Double Dim MSSC As Object Set MSSC = CreateObjectquotMS。

Dim Num1， Num2Dim SPrivate Sub Command2_Click If InStr1， Text1Text， quotquot = 0 Then Text1Text = Text1Text quotquot End If sFocusEnd SubPrivate Sub Command3_Click Text1Te。

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

Call Run #39调用计算子程序，该子程序在下面有说明 Else signflag = True #39前面没有未运算的，将有无运算符标志设为quot有quotstrn2 = strn1 #39把字符串1复制给字符串2 strn1 = quotquot #39字符串1清空 End If runsig。

简单注释了一下，删除了一些冗余的代码，但愿没有影响到功能同时增加了一些单目运算的自变量限制，防止溢出Dim FuhaoZhuangtai As String Dim FirstNumber， NumbumBuf As Double Private Sub Command1_ClickIndex As。

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

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

我给你做个简单的 吧 只做 + * \ 创建工程后 2个textbox 文本框控件 4个command 按纽控件 1个lalbel 标签控件 代码实现如下dim a as integer ， b as integer， sum as integer a=text1text b=text2。

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