1F
PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa<=2000Thenx=0Elsea=a-2000Ifa<=500Thenx=a*0.05Elsex=500*0.05a=a-500Ifa<=1500Thenx=x+a*0.1Elsex=x+1500*0.1a=a-1500Ifa<=3000Thenx=x+a*0.15Elsea=a-3000x=x+a*0.2+3000*0.2EndIfEndIfEndIfEndIfText2.Text=Str(x)EndSub
