亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

　　(1)建立應(yīng)用程序用戶界面。

　　選擇“新建”表單，進(jìn)入表單設(shè)計(jì)器，增加一個(gè)文本框控件Textl、一個(gè)標(biāo)簽控件Label1和一個(gè)命令按鈕組CommandGroup1,并將命令按鈕組的ButtonCount屬性改為16。

　　(2)設(shè)置對象屬性如下表所示：

　　CommandGroup1中各按鈕的屬性設(shè)置

　　對象 屬性 屬性值 說明

　　Command1～Command10 Caption 依次改為：1、2、3、4、5、6、7、8、9、0

　　FontBold .T.

　　Command11～Command10 Caption 依次改為：.、=、+、-、*、/

　　FontBold .T.

　　(3)編寫程序代碼。

　�、倬帉慍ommandGroup1的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=〃 〃