1、創建控件組的方法
首先創建壹個命令按鈕，調整其大小（覺得合適就行），名稱為Command1，Caption 屬性為數字 0 ；然後進行“復制”和“粘貼”，當選擇“粘貼”時，出現對話框提示已有壹個同名控件，詢問是否創建控件組，選擇“是”後，即創建了壹個名為“Command”的控件組。
這時，第壹個按鈕的Index屬性值默認為“0”，第二個的Index屬性值自動設為“1”，並且大小與第壹個按鈕相同，只需修改其 Caption 屬性為數字“1”並將其拖至合適位置即可。此後繼續使用“粘貼”的方法建立其他控件組中其余按鈕，***20個按鈕，每建立壹個，就將它拖到合適處，並修改相應的Caption屬性值。
2、各控件組其屬性設置如下：
設置效果如下圖所示：
二、編寫代碼
Dim s1 As Single， s2 As Single， ysf As String
‘定義兩個單精度數變量用與存放參與運算的數，壹個字符型存放運算符
Private Sub Command1_Click（Index As Integer）
Text1.Text = Text1.Text & Command1（Index）.Caption ’將command1的單擊事件與文本框顯示的內容連接
End Sub
Private Sub Command2_Click（）
Text1.Text = Text1.Text + “。”
If （InStr（Text1.Text， “。”） = 1） Then ‘第壹位不能為小數
Text1.Text = “”
End If
If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出現兩個小數點
Text1.Text = Left
（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub
Command3_Click（）
s2 = Val（Text1.Text） ‘開始加減乘除運算
Select Case ysf Case “+”
Text1.Text = s1 + s2
Case “-”
Text1.Text = s1 - s2
Case “*”
Text1.Text = s1 * s2
Case “/”
If s2 = 0 Then
MsgBox “分母不能為零！”
Text1.Text = “”
Else
Text1.Text = s1 / s2 End If End Select
Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘
這個很關鍵，如果沒有這個的話，得出小於1的小數前面沒有0
End Sub
Private Sub Command4_Click（）
If Text1.Text = “” Then ’文本為空就結束
Exit Sub
End If
Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退壹格
End Sub
Private Sub Command5_Click（）
Text1.Text = “” ’清除當前框內文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1 = Val（Text1.Text） ‘將s1隱藏起來 ysf = Command6（Index）.Caption
Text1.Text = “”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1） 《》 “-” Then ’判斷作為負數
Text1.Text = “-” & Text1.Text
Else
Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text = Text1.Text * Text1.Text ‘平方
End Sub
Visual Basic（VB）是由微軟公司開發的包含環境的事件驅動編程語言。它源自於BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接數據庫，或者輕松的創建ActiveX控件。程序員可以輕松地使用VB提供的組件快速創建壹個應用程序。
參考鏈Visual Basic——百度百科接