vb改錯(cuò)練習(xí)答案

1、一.選擇結(jié)構(gòu)選擇結(jié)構(gòu)題目題目：在下面的程序段中過(guò)程pd可以判斷任意三個(gè)數(shù)能否構(gòu)成三角形的三邊，利用該過(guò)程的判定結(jié)果，對(duì)能構(gòu)成三角形的計(jì)算其面積，構(gòu)不成的顯示“不能構(gòu)成三角形“OptionExplicitPrivateSubFm_Click()FOUNDDimx%y%z%s%bAsBooleanhAsSinglex=InputBox(“請(qǐng)輸入三角形的邊長(zhǎng)“)y=InputBox(“請(qǐng)輸入三角形的邊長(zhǎng)“)z=InputBox(“請(qǐng)輸入三角形

2、的邊長(zhǎng)“)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題目題目:請(qǐng)根據(jù)下列描述編寫(xiě)購(gòu)物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購(gòu)物打折的優(yōu)惠辦法，每位顧客一次購(gò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“有二個(gè)實(shí)根“Str$(root1)““S

5、tr$(root2)ElsePrint“無(wú)實(shí)根!“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