設計步驟如下(借鑑)：

(1)建立應用程式使用者介面。

(2)設定物件屬性如下表所示：

物件屬性屬性值說明

command1～command10caption依次改為：1、2、3、4、5、6、7、8、9、0

fontbold.t.

command11～command10caption依次改為：.、=、+、-、*、/

fontbold.t.

(3)編寫程式程式碼。

①編寫commandgroup1的click事件程式碼：

ifthisform.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

a=thisform.text1.value

thisform.text1.value=a+〃.〃

a=thisform.text1.value

thisform.text1.value=allt(str(&a))

thisform.tag=.t.

a=thisform.text1.value

thisform.text1.value=a+〃+〃

thisform.tag=〃〃

a=thisform.text1.value

thisform.text1.value=a+〃-〃

thisform.tag=〃〃

a=thisform.text1.value

thisform.text1.value=a+〃*〃

thisform.tag=〃〃

a=thisform.text1.value

thisform.text1.value=a+〃+〃

thisform.tag=〃〃