設計步驟如下：注意只是參考一下，具體你自己看著弄，大致如下 (1)建立應用程式使用者介面。 選擇“新建”表單，進入表單設計器，增加一個文字框控制元件Textl、一個標籤控制元件Label1和一個命令按鈕組CommandGroup1,並將命令按鈕組的ButtonCount屬性改為16。 (2)設定物件屬性如下表所示： CommandGroup1中各按鈕的屬性設定 物件 屬性 屬性值 說明 Command1～Command10 Caption 依次改為：1、2、3、4、5、6、7、8、9、0 FontBold .T. Command11～Command10 Caption 依次改為：.、=、+、-、*、/ FontBold .T. (3)編寫程式程式碼。 ①編寫CommandGroup1的Click事件程式碼： IF THISFORM.Tag=.T. THISFORM.Text1.Value=ALLT(RIGHT(STR(THIS.Value),1)) THISFORM.Tag=〃 〃 ELSE a=THISFORM.Text1.Value THISFORM.Text1.Value=a+ALLT(RIGHT(STR(THIS.Value),1)) ENDIF ②編寫“.”按鈕Command11的Click事件程式碼： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃.〃 ③編寫“=”按鈕Command12的Click事件程式碼： a=THISFORM.Text1.Value THISFORM.Text1.Value=ALLT(STR(&a)) THISFORM.Tag=.T. ④編寫“+”按鈕Command13的Click事件程式碼： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃+〃 THISFORM.Tag=〃 〃 ⑤編寫“-”按鈕Command14的Click事件程式碼： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃-〃 THISFORM.Tag=〃 〃 ⑥編寫“*”按鈕Command15的Click事件程式碼： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃*〃 THISFORM.Tag=〃 〃 ⑦編寫“/”按鈕Command16的Click事件程式碼： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃+〃 THISFORM.Tag=〃 〃