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

第2.2節(jié)程序的順序結(jié)構(gòu)（3）編寫程序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("請輸入糧食的單價：")) d2=Val(InputBox("請輸入蔬菜的單價：")) d3=Val(InputBox("請輸入油脂類的單價：")) d4=Val(InputBox("請輸入薯類的單價：")) d5=Val(InputBox("請輸入肉類的單價：")) d6=Val(InputBox("請輸入干豆類的單價：")) d7=Val(InputBox("請輸入蛋類的單價：")) d8=Val(InputBox("請輸入魚蝦的單價：")) d9=Val(InputBox("請輸入乳類的單價：")) d10=Val(InputBox("請輸入水果的單價：")) 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"基本食品消費支出x＝";x

Print"總的生活消費支出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àn)輸入長方體的長、寬、高，求長方體的表面積和體積。開始輸入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("長=","輸入")b=InputBox("寬=","輸入")c=InputBox("高=","輸入")v=a*b*cs=2*(a*b+b*c+a*c)Print“表面積s=”;sPrint“體積v=”，v開始輸入一個三位數(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從鍵盤上輸入一個三位整數(shù)，然后將它反向輸出。例如輸入456，輸出應是654。PrivateSubCommand1_Click()Dimaasinteger,basintegerDimcasinteger,rasintegerr=inputbox（“r=”,“輸入三位數(shù)")a=r\100b=(rmod100)\10c=rmod10r=c*100+b*10+aPrint“反向三位數(shù)是”，rEndSub實踐：（1）試編寫一個程序，實現(xiàn)輸入圓的半徑，輸