给你写了个例子，看看就OK了可以把对应的加号换成其他运算符号Private Sub Command1_Click#39在文本框 text1text 中输入的格式需要是 X+Y 这中方式 Dim a As Double Dim b As Double a = MidText1Text。

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

VB计算器代码实现连续运算Dim start As BooleanDim s1#， s2#， s3#Dim sn As StringPrivate Sub Command1_ClickIf start = True Then Text1Text = quot1quot start = FalseElse Text1Text = Text1Text。

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数第二个数结果我们现在要text也要拉出三个，把了text里面text1text2text3全部删掉我们现在要把command拉出四个。

这是前面板，计算的时候是数值1运算数值2，比如数值1数值2运算控件就是用指针滑动杆改的，右键单击属性文本标签里就能设置，每种运算都有个对一个的数，用这些数就能驱动后台的选择结构来选择运算不要忘记。

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