版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)
文檔簡介
1、一.選擇結(jié)構(gòu)選擇結(jié)構(gòu)題目題目：在下面的程序段中過程pd可以判斷任意三個數(shù)能否構(gòu)成三角形的三邊，利用該過程的判定結(jié)果，對能構(gòu)成三角形的計算其面積，構(gòu)不成的顯示“不能構(gòu)成三角形“OptionExplicitPrivateSubFm_Click()FOUNDDimx%y%z%s%bAsBooleanhAsSinglex=InputBox(“請輸入三角形的邊長“)y=InputBox(“請輸入三角形的邊長“)z=InputBox(“請輸入三角形
2、的邊長“)b=pd(xyz)h=(xyz)2FOUNDIfNotbThens=Sqr(h(hx)(hy)(hz))Print“三角形面積是“sElsePrint“不能構(gòu)成三角形“EndIfEndSubFOUNDPublicFunctionpd()AsBooleanIfx0y0z0xyzxzyyzxThenpd=TrueElsepd=FalseEndIfEndFunction(答案答案1)1)DimDimx%x%y%y%z%z%s!s!b
3、AsAsBooleanBooleanhAsAsSingleSingle(答案答案2)2)IfIfb=trueb=trueThenThen(答案答案3)3)PublicPublicFunctionFunctionpd(x%pd(x%y%y%z%)z%)AsAsBooleanBoolean題目題目:請根據(jù)下列描述編寫購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）
4、在200元以上者，按九折優(yōu)惠；（3）在300元以上者，按八折優(yōu)惠；（4）在500元以上者按七折優(yōu)惠。OptionExplicitPrivateSubComm1_Click()DimxAsSingleyAsSinglex=Val(Text1.Text)Ifx100is100is=0a0ThenFOUNDroot1=(Sqr(wk))(2a)FOUNDroot2=(Sqr(wk))(2a)Print“有二個實根“Str$(root1)““S
5、tr$(root2)ElsePrint“無實根!“EndIfEndSub(答案答案1)1)wkwk=b^24ac(答案答案2)2)root1root1=(b(bSqr(wk))Sqr(wk))(2(2a)a)(答案答案3)3)root2root2=(b(bSqr(wk))Sqr(wk))(2(2a)a)題目題目：求s=72102132……832的值。OptionExplicitPrivateSubFm_Click()ClsDimsAsL
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
評論
0/150
提交評論