ممكن حل السؤال ده ضروووووووووووووورى
ممكن الحل ؟؟؟؟؟؟؟؟؟؟ بليييييييييييييييييييييييييز

R =Textbox1.text
If R < 0 Then
MsgBox ("Not allowed") 3

رقم 3 الأخير ده زيادة بس علشان القوس يقفل معايا و انا بأكتب على التليفون يعني مش تبع الإجابة

Sum 1 = 0
Sum 2 = 0 + 1
Sum 3 = Sum 2 + 2 = 3
Sum 4 = Sum 3 + 3 = 6
Sum 5 = Sum 4 + 4 = 10
Sum 6 = Sum 5 + 5 = 15
الإجابة هي 15

r = 0.5
الإجابة من Dim r = 0.5