不知道你想要哪种，偶是新手，只会最简单的 首先拖出三个text，再拖出4个Command按钮 caption分别为+ * 这样就准备就绪了 先讲一下简单用法，第一个text是第一个加数被减数因数被除数，而第二个text是第二个。

名称为Command1，Caption 属性为数字 0 然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后。

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。

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

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

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