رایانه کاردانش ،فنی و نظرى استان کرمان

DIM A AS VARIANT

DIM ‌‌‌‌‌‌B AS VARIANT  

PRIVATE SUB COMMAND1_CLICK()

A=VAL(TEXT1)

SELECT CASE A

   TEXT2=0

CASE IS >=200000 AND A<800000

B=(A-200000)

TEXT2=(10*B/100)

CASE IS >=80000

C=(A-80000)

TEXT2=(12*C/100)

END SELECT

END SUB