[elgokr]

الك كود بسيط يمكنك استخدامه والتعديل عليه

طبقاً للارقام المطلوبة لك

كود :

       Dim MNumber_() As String = Split(Val(TextBox1.Text).ToString("0.00"), ".")
       If MNumber_(1) >= 0 And MNumber_(1) <= 14 Then MNumber_(1) = 0
       If MNumber_(1) >= 15 And MNumber_(1) <= 32 Then MNumber_(1) = 25
       If MNumber_(1) >= 33 And MNumber_(1) <= 65 Then MNumber_(1) = 50
       If MNumber_(1) >= 66 And MNumber_(1) <= 85 Then MNumber_(1) = 75
       If MNumber_(1) >= 86 And MNumber_(1) <= 99 Then
           MNumber_(0) = Val(MNumber_(0)) + 1
           MNumber_(1) = 0
       End If
       Dim VNumber_ As Double = Val(MNumber_(0) & "." & MNumber_(1))
       MsgBox(VNumber_.ToString("0.00"))

تحياتى لك

وتمنياتى لك التوفيق