VF編寫簡易計算器

(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=〃 〃