第二章(2.2)程序的顺序结构

第2.2节程序的顺序结构（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）调试程序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练一练：试编写一个程序，实现输入长方体的长、宽、高，求长方体的表面积和体积。开始输入a输入b输入c根据公式：s=2*(a*b+a*c+b*c)根据公式：v=a*b*c输出v输出s结束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开始输入一个三位数r的值a=r\100结束b=(rmod100)\10c=rmod10r=c*100+b*10+a输出r的值PrivateSubCommand1_Click()Dimaasinteger,basinteger,casinteger,rasintegerr=inputbox（“r=”,“输入三位数")a=r\100b=(rmod100)\10c=rmod10r=c*100+b*10+aPrint“反向三位数是”；rEndSub从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应是654。PrivateSubCommand1_Click()Dimaasinteger,basintegerDimcasinteger,rasintegerr=inputbox（“r=”,“输入三位数")a=r\100b=(rmod100)\10c=rmod10r=c*100+b*10+aPrint“反向三位数是”，rEndSub实践：（1）试编写一个程序，实现输入圆的半径，输