[ماجدة عمرو]

ممكن نستغنى عن معامل الربط و نظهر الصافى فقط كما هو موضح؟

Dim total, tax, N As Decimal

total = Val(TextBox1.Text)

If total >= 2000 Then

tax = total * 15 / 100

N = total - tax

MsgBox(N)

Else

tax = total * 10 / 100

N = total - tax

MsgBox(N)

End If