VB程序解析算法

高一信息VB程序解析算法练习某企业在第一年初购买一台价值为120万元的设备，该设备的价值在使用过程中逐年减少，从第二年到第六年，每年初的价值比上年初减少10万元；从第七年开始，每年初的价值为上年初的75%。问：第四年初该设备的价值是多少？问：第七年初该设备的价值是多少？问：第十二年初该设备的价值是多少？问：第N年初该设备的价值是多少？当N=6时，价值P=120-10（n-1）当N6时，价值1-n75.0x70P用VB程序求解：某企业在第一年初购买一台价值为120万元的设备，该设备的价值在使用过程中逐年减少，从第二年到第六年，每年初的价值比上年初减少10万元；从第七年开始，每年初的价值为上年初的75%。问第N年初该设备的价值是多少？当N=6时，价值P=120-10（n-1）当N6时，价值1-n75.0x70P某企业在第一年初购买一台价值为120万元的设备，该设备的价值在使用过程中逐年减少，从第二年到第六年，每年初的价值比上年初减少10万元；从第七年开始，每年初的价值为上年初的75%。问第N年初该设备的价值是多少？当N=6时，价值P=120-10（n-1）当N6时，价值1-n75.0x70PPrivateSubCommand1_Click()Dimn,pAsSinglen=Val(Text1.Text)Ifn0ThenIfn=6Thenp=120-10*(n-1)Elsep=70*0.75^(n-6)EndIfLabel2.Caption=第+Str(n)+年初价值：+Str(p)+万元ElseLabel2.Caption=输入的年数不符合要求！EndIfEndSub用解析的方法找出表示问题的前提条件与所求之间关系的数学表达式，并通过表达式的计算来实现问题的求解思路，称之为解析算法。解析算法程序实现关键：一、建立正确的数学模型（得出正确的数学表达式）二、保证计算过程描述的正确性（用正确合理的变量、表达式来表示已经得出的数学计算式）有如下问题：①已知圆柱的半径R和高度H，使用公式求出此圆柱的体积。②已知班级每位同学的升高h，按照h的值从大到小进行排列。③已知直角三角形两条边的边长，利用勾股定理求出第三条边的长度。④已知“完全平方数”的定义，找出1~1000范围内的所有完全平方数。用计算机解决上述问题时，适合用解析算法的是（）A.①②B.①③C.②③D.③④hr2πB学生作业铁路托运行李，按以下标准收费：若不超过50千克，按每千克0.35元收费，若超过50千克，超过部分则按每千克0.5元收费，行李重量不得超过150千克，超过150千克拒载！问N千克行李应收费多少RMB？