浙教版高一《算法与程序设计》第二章解析算法(8)

拓展提高：在窗口中插入图片，在控件工具箱中，点击选择“Image”类，然后在其属性窗口中修改image1的picture属性。见“帮助图”。

实践活动二：梁咏琪的储蓄顾问

Private Sub Command1_Click()

Dim m, k, y As Double

m = Val(Text1.Text)

k = Val(Text2.Text)

y = (k - ？) / (0.045 * m)

If y > Fix(y) Then y =?+ 1

Text3.Text = "存款应为：" + Str(y) + "年"

End Sub

Private Sub Text1_Click()

Text1.Text = "": Text2.Text = "": Text3.Text = ""

End Sub

拓展：改进应用程序“梁咏琪的储蓄顾问”

问题1：如果K<M,会得到一个负年的错误结果

问题2：如果考虑银行收取利息所得税，5％