雙倍薪水，雙倍稅收
為salary賦值，例如salary=val(text1.text)。
選擇案例薪金
案例是& lt3500
稅=0
案例是& lt5000
稅=工資* 0.05
案例是& lt6000
稅=工資* 0.1
其他情況
稅=工資* 0.15
結束選擇
薪水=薪水-稅
說這樣的扣稅真的應該是差額扣稅是不科學的。比如文件3500-5000應該是:稅=(工資-3500)* 0.5。
2.
dim F as long
F=1
對於i=1到n
F=F * i
然後
打印N；"!=";F