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

綜合應(yīng)用（1小題，計(jì)30分）

在考生文件夾下，完成如下綜合應(yīng)用：

建立如圖所示表單，表單完成一個(gè)計(jì)算器的功能。表單文件名和表單控件名均為calculator，表單標(biāo)題為"計(jì)算器"。表單運(yùn)行時(shí)，分別在操作數(shù)1(Label1)和操作數(shù)2(Label2)下的文本框(分別為Text1和Text2)中輸入數(shù)字（不接受其他字符輸入），通過(guò)選項(xiàng)組(Optiongroup1,4個(gè)按鈕可任意排列)選擇計(jì)算方法(Option1為"+",Option2為"-",Option3為"*",Option4為"/")，然后單擊命令按鈕"計(jì)算"(Command1)，就會(huì)在"計(jì)算結(jié)果"(Label3)下的文本框Text3中顯示計(jì)算結(jié)果, 要求使用DO CASE語(yǔ)句判斷選擇的計(jì)算分類，在CASE表達(dá)式中直接引用選項(xiàng)組的相關(guān)屬性。

注意：所涉及的數(shù)字和字母均為半角字符。

表單另有一命令按鈕(Command2)，按鈕標(biāo)題為"關(guān)閉"，表單運(yùn)行時(shí)單擊此按鈕關(guān)閉并釋放表單。

解題思路：

1. 建立表單，在“表單設(shè)計(jì)器”中，在其“屬性”的Name處輸入“calculator”，在Caption處輸入“計(jì)算器”。在“表單設(shè)計(jì)器”中，依次建立三個(gè)Label1、Label2和Label3的標(biāo)簽，并分別修改其標(biāo)題Caption的值，依次為“操作數(shù)1”、“操作數(shù)2”和“計(jì)算結(jié)果”。在“表單設(shè)計(jì)器”中，依次建立三個(gè)Text1、Text2和Text3的文本框，再對(duì)Text3的Enable屬性選擇“.F.”。在“表單設(shè)計(jì)器”中，添加一個(gè)“選項(xiàng)按鈕組”，在其“屬性”的ButtonCount處輸入“4”，調(diào)整這四個(gè)按鈕的排列位置以及各個(gè)Caption的值。在“表單設(shè)計(jì)器”中，添加兩個(gè)命令按鈕（Command1和Command2），在第1個(gè)命令按鈕Command1“屬性”的Caption處輸入“計(jì)算”，在第2個(gè)命令按鈕Command2“屬性”的Caption處輸入“關(guān)閉”。

7. 雙擊“計(jì)算”按鈕，在“Command1.Click”編輯窗口中輸入下列程序

do case

case thisForm.optiongroup1.value=1

thisForm.Text3.Value=val(thisForm.Text1.Value)+val(thisForm.Text2.Value)

case thisForm.optiongroup1.value=2

thisForm.Text3.Value=val(thisForm.Text1.Value)-val(thisForm.Text2.Value)

case thisForm.optiongroup1.value=3

thisForm.Text3.Value=val(thisForm.Text1.Value)*val(thisForm.Text2.Value)

case thisForm.optiongroup1.value=4

thisForm.Text3.Value=val(thisForm.Text1.Value)/val(thisForm.Text2.Value)

endcase

8. 雙擊“關(guān)閉”命令按鈕，在“Command2.Click”編輯窗口中輸入“ThisForm.Release”，接著關(guān)閉編輯窗口。