for循环的注册码打折

购买注册码(含代理商快捷提卡注册码成本）可享受8-(当前作者等级)*0.15折
不知道如何计算折扣，将下列代码复制到按键精灵

Dim	VIP等级 , 初始折扣 ,当前折扣
	初始折扣=8
For	VIP等级=1 to 5
	当前折扣 = 初始折扣-VIP等级*0.15
TracePrint   "当前作者VIP等级是:"&VIP等级&" ，购买注册码的折扣是 "&当前折扣&"折"
Next