第二章(2.2)程序的順序結(jié)構(gòu)

第2.2節(jié)程序的順序結(jié)構(gòu)（3）編寫(xiě)程序PrivateSubCommand1_Click() Consts1AsInteger=170,s2AsInteger=144,s3AsInteger=3,s4AsInteger=36Consts5AsInteger=18,s6AsInteger=12,s7AsInteger=6,s8AsInteger=6Consts9AsInteger=24,s10AsInteger=10 Dimd1AsSingle,d2AsSingle,d3AsSingle,d4AsSingle,d5AsSingle,d6AsSingle,d7AsSingle,d8AsSingle,d9AsSingle,d10AsSingle DimxAsSingle,yAsSingle d1=Val(InputBox("請(qǐng)輸入糧食的單價(jià)：")) d2=Val(InputBox("請(qǐng)輸入蔬菜的單價(jià)：")) d3=Val(InputBox("請(qǐng)輸入油脂類(lèi)的單價(jià)：")) d4=Val(InputBox("請(qǐng)輸入薯類(lèi)的單價(jià)：")) d5=Val(InputBox("請(qǐng)輸入肉類(lèi)的單價(jià)：")) d6=Val(InputBox("請(qǐng)輸入干豆類(lèi)的單價(jià)：")) d7=Val(InputBox("請(qǐng)輸入蛋類(lèi)的單價(jià)：")) d8=Val(InputBox("請(qǐng)輸入魚(yú)蝦的單價(jià)：")) d9=Val(InputBox("請(qǐng)輸入乳類(lèi)的單價(jià)：")) d10=Val(InputBox("請(qǐng)輸入水果的單價(jià)：")) x=s1*d1+s2*d2+s3*d3+s4*d4+s5*d5+s6*d6+s7*d7+s8*d8+s9*d9+s10*d10 y=x/0.6

Print"基本食品消費(fèi)支出x＝";x

Print"總的生活消費(fèi)支出y＝";yEndSub（4）調(diào)試程序PrivateSubCommand1_Click()DimTAssingleA=10B=20T=AA=BB=TPrint"A=";A,"B=";BEndSubPrivateSubCommand1_Click()DimTAssingleA=InputBox("A=",A)B=InputBox("B=",B)T=AA=BB=TPrint"A=";A,"B=";BEndSub練一練：試編寫(xiě)一個(gè)程序，實(shí)現(xiàn)輸入長(zhǎng)方體的長(zhǎng)、寬、高，求長(zhǎng)方體的表面積和體積。開(kāi)始輸入a輸入b輸入c根據(jù)公式：s=2*(a*b+a*c+b*c)根據(jù)公式：v=a*b*c輸出v輸出s結(jié)束Dima,b,c,s,vAsSinglea=InputBox("長(zhǎng)=","輸入")b=InputBox("寬=","輸入")c=InputBox("高=","輸入")v=a*b*cs=2*(a*b+b*c+a*c)Print“表面積s=”;sPrint“體積v=”，v開(kāi)始輸入一個(gè)三位數(shù)r的值a=r\100結(jié)束b=(rmod100)\10c=rmod10r=c*100+b*10+a輸出r的值PrivateSubCommand1_Click()Dimaasinteger,basinteger,casinteger,rasintegerr=inputbox（“r=”,“輸入三位數(shù)")a=r\100b=(rmod100)\10c=rmod10r=c*100+b*10+aPrint“反向三位數(shù)是”；rEndSub從鍵盤(pán)上輸入一個(gè)三位整數(shù)，然后將它反向輸出。例如輸入456，輸出應(yīng)是654。PrivateSubCommand1_Click()Dimaasinteger,basintegerDimcasinteger,rasintegerr=inputbox（“r=”,“輸入三位數(shù)")a=r\100b=(rmod100)\10c=rmod10r=c*100+b*10+aPrint“反向三位數(shù)是”，rEndSub實(shí)踐：（1）試編寫(xiě)一個(gè)程序，實(shí)現(xiàn)輸入圓的半徑，輸