请教一下,如何提高速度?

188166764

我需要在窗体中,对很多字段的数据进行计算,如下,但有一个问题,如果连继进行计算的话,电脑速度就很慢了,是不是内存中的数据没能清除啊?请教一下,

成本.SetFocus
成本.text = Val(数量 & "") * Val(单价 & "")

成本1.SetFocus
成本1.text = Val(数量1 & "") * Val(单价1 & "")

成本1.SetFocus
成本1.text = Val(数量1 & "") * Val(单价1 & "")


成本2.SetFocus
成本2.text = Val(数量2 & "") * Val(单价2 & "")

成本3.SetFocus
成本3.text = Val(数量3 & "") * Val(单价3 & "")

成本4.SetFocus
成本4.text = Val(数量4 & "") * Val(单价4 & "")
成本4.SetFocus
成本4.text = Val(数量4 & "") * Val(单价4 & "")

成本5.SetFocus
成本5.text = Val(数量5 & "") * Val(单价5 & "")
成本6.SetFocus
成本6.text = Val(数量6 & "") * Val(单价6 & "")
成本7.SetFocus
成本7.text = Val(数量7 & "") * Val(单价7 & "")

成本8.SetFocus
成本8.text = Val(数量8 & "") * Val(单价8 & "")
成本9.SetFocus
成本9.text = Val(数量9 & "") * Val(单价9 & "")
成本10.SetFocus
成本10.text = Val(数量10 & "") * Val(单价10 & "")

成本11.SetFocus
成本11.text = Val(数量11 & "") * Val(单价11 & "")
成本12.SetFocus
成本12.text = Val(数量17 & "") * Val(单价17 & "")
成本13.SetFocus
成本13.text = Val(数量12 & "") * Val(单价12 & "")

成本14.SetFocus
成本14.text = Val(数量13 & "") * Val(单价13 & "")


成本15.SetFocus
成本15.text = Val(数量14 & "") * Val(单价14 & "")
成本16.SetFocus
成本16.text = Val(数量15 & "") * Val(单价15 & "")
成本17.SetFocus
成本17.text = Val(数量16 & "") * Val(单价16 & "")

总成本.SetFocus
总成本.text = Val(成本) + Val(成本1) + Val(成本2) + Val(成本3) + Val(成本4) + Val(成本5) + Val(成本6) + Val(成本7) + Val(成本8) + Val(成本9) + Val(成本10) + Val(成本11) + Val(成本12) + Val(成本13) + Val(成本14) + Val(成本15) + Val(成本16) + Val(成本17)
If 收得率 <> "" And 收得率 <> 0 And 总量 <> "" And 总量 <> 0 Then

生产成本.SetFocus
生产成本.text = 总成本 / (总量 * 收得率)