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

2、VB软件 01 打开VB，新建一个EXE文件02 画上四个方框，表示运算法则即加减乘除四项，3个文本控件表示数，一个标签控件为“=”并对控件进行命名03。

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

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

5、text3text=valtext1text+valtext2text复制，把里面+号分别改成* 如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了感谢观看。

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

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

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

9、至于清除的代码，也就是要让三个文本框的内容为空值，我们用双引号便可完成退出就是结束这个程序，我们都知道用结束语end便可完成，下图中便是整个程序运行的代码了下面我们就可以将数字输入进去进行相应的计算操作了。

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

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

12、分类 电脑网络 程序设计 其他编程语言 解析其实比较简单啦，用一个窗体就可以实现啦！我自己写的，你可以看看 Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim。

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

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

15、因为17个按钮使用的是同一事件，所以我们用一个Select Case语句区分各个按钮，双击任意按钮输入代码Private Sub Command1_ClickIndex As IntegerSelect Case Index Case 0 To 9 If FirstNum Then StrNum1 = StrIndex。