圖二
圖一根據上圖一說明各物件name屬性：這些屬性可自己定義
數字按鈕1：Num_Button1
數字按鈕2：Num_Button2
‧‧‧
數字按鈕9：Num_Button9
數字按鈕0：Num_Button0
加法按鈕：add_btn
減法按鈕：sub_btn
乘法按鈕：mul_btn
除法按鈕：div_btn
清除按鈕：clear_btn
等號按鈕：equ_btn
square根號按鈕：square_btn
N階層按鈕：norder_btn
Hex按鈕：Hex_btn
Binary按鈕：Binary_btn
文字方塊：Display_Text
以下是部分代碼：
Private Sub Num_Button8_Click()
If (mode = 0) Then Num1 = Num1 + "8"
Display_Text = Num1 Else Num2 = Num2 + "8"
Display_Text = Num2
End IfEnd Sub
Private Sub Num_Button9_Click()
If (mode = 0) Then Num1 = Num1 + "9"
Display_Text = Num1 Else Num2 = Num2 + "9"
Display_Text = Num2
End IfEnd Sub
Private Sub square_btn_Click()
Display_Text = Str(Sqr(Val(Display_Text.Text)))
End Sub
Private Sub sub_btn_Click()
Display_Text = ""
mode = 2
End Sub
Private Sub UserForm_Initialize()
mode = 0
End Sub
我們依照上一篇ㄉ作法在EXCEL開啟時能夠馬上秀出這個計算機表單。實際作法由於我只列出部分程式碼，所以若有興趣您就下載去看看。我們在未來所用範例都是依照Office 2007，若您使用Office 2003，請自行修改成2003的格式。但是這個code，我故意留下N階層及Binary沒作，就留給大家發揮一下。完成畫面如圖二。
