效果图：
废话不多说，直接上步骤 一、创建控件组
1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：
控件 窗体 按钮 按钮 按钮 按钮 按钮 按钮 按钮 按钮 设置效果如下图所示：
名称 Form 1 Command1 Command2 Command3 Command4 Command5 Command6 Command7 Command8 简易计算器 Command1（0）～ Command1（9）即：Caption 0 ～ 9 小数点“.” 等于号“=” 退格 清除 Command6（0）～ Command6（3）即：Caption +、-、*、/ 负数 平方 功能/属性
二、编写代码
Dim s1 As Single, s2 As Single, ysf As String
'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符
Private Sub Command1_Click(Index As Integer) = & Command1(Index).Caption
'将command1的单击事件与文本框显示的内容连接 End Sub
Private Sub Command2_Click() = + \
If (InStr, \ '第一位不能为小数 = \ End If
If InStr, \ '防止出现两个小数点 = Left, Len - 1) End If End Sub
Private Sub Command3_Click() s2 = Val '开始加减乘除运算 Select Case ysf Case \ = s1 + s2 Case \ = s1 - s2 Case \ = s1 * s2 Case \
If s2 = 0 Then MsgBox \分母不能为零!\ = \ Else