問(wèn)答題

某俱樂(lè)部實(shí)行會(huì)員注冊(cè)收費(fèi),每位會(huì)員按整月每月收費(fèi)500元整。但是對(duì)注冊(cè)時(shí)期較長(zhǎng)的會(huì)員有價(jià)格優(yōu)惠。規(guī)則如下:注冊(cè)6個(gè)月以下(含6個(gè)月)每月收費(fèi)金額不變,6至12個(gè)月實(shí)行9折收費(fèi),12個(gè)月以上(不含12個(gè)月)8折收費(fèi)。編程在“注冊(cè)月數(shù)”框中輸入會(huì)員欲注冊(cè)的月數(shù),單擊“計(jì)算”按鈕后在“應(yīng)收金額”框中顯示應(yīng)收會(huì)費(fèi)總錢數(shù)。單擊“結(jié)束”按鈕結(jié)束程序。
本程序設(shè)計(jì)界面及運(yùn)行界面如下:


請(qǐng)編寫(xiě)單擊“計(jì)算”(Button1)按鈕的事件處理程序。


您可能感興趣的試卷

你可能感興趣的試題

最新試題

當(dāng)Query 對(duì)象中存儲(chǔ)一條Update 語(yǔ)句時(shí),我們執(zhí)行該語(yǔ)句需要調(diào)用Query 的()方法。

題型:?jiǎn)雾?xiàng)選擇題

定義數(shù)組類型的方法示例如下:type Tmyarray=array[1...10]of integer;從示例中我們可以看出,數(shù)組定義包含以下幾項(xiàng)內(nèi)容()。

題型:多項(xiàng)選擇題

下列()數(shù)據(jù)庫(kù)引擎不僅可以連接Access,它還是一個(gè)通用的桌面數(shù)據(jù)庫(kù)引擎。

題型:?jiǎn)雾?xiàng)選擇題

如果為某個(gè)對(duì)象設(shè)置了Font 屬性,那么該對(duì)象的ParentFont 屬性值會(huì)變?yōu)镕alse。

題型:判斷題

Delphi 代碼編輯器更具特色的是被稱為“代碼洞察”的功能,它能做到那幾點(diǎn)?

題型:?jiǎn)柎痤}

建立一個(gè)ADOTable對(duì)象的步驟是下列哪些選項(xiàng)()。

題型:多項(xiàng)選擇題

簡(jiǎn)述DBListBox和DBLookupListBox的區(qū)別。

題型:?jiǎn)柎痤}

容器可以用來(lái)組織對(duì)象,不能定義所包含對(duì)象通用的默認(rèn)屬性值。

題型:判斷題

枚舉類型的元素就是標(biāo)識(shí)符,所以必須符合標(biāo)識(shí)符的規(guī)定(不能是數(shù)字、不能是保留字等)。

題型:判斷題

微調(diào)編輯框組件SpinEdit 的用途是什么?

題型:?jiǎn)柎痤}