access用VBA编程实现机器的折旧率，机器价值为上一年机器价值*(1-折旧率百分比)

㊣左侧60度

创建名称为“窗体1”的窗体。在窗体上画一个名称为text1的文本框，其标签为：机器原价（万元），画一个名称为text2的文本框，其标签为折旧率%（如折旧率为4%，即输入4）。画一个名称为Command1、标题为“计算”的命令按钮，然后编写事件过程，使得窗体运行后，能够完成如下任务：在text1输入机器的原价后，如果每年的折旧率按text2中输入的内容计算，多少年后它的价值不足原机器价值的一半（提示：机器价值为上一年机器价值*(1-折旧率百分比)）。按确定按钮后，用msgbox弹出经过的年数结果。窗体结果如图所示。