تشخیص شماره مقابل یک شماره

[abas1388]

سلام
فرض کنید از عدد 1 تا 20 یک عدد مثلا 20 را انتخاب می کنم حال می خواهم با انتخاب این عدد شماره 1 اعلام شود و اگر عدد 19 را انتخاب کردم شماره 2 و همینطور اگر عدد 16 را انتخاب کردم شماره 5 اعلام شود و برعکس همین حالت نیز صدق می کند یعنی اگر عدد 1 را انتخاب کردم شماره 20 اعلام شود و اگر عدد 2 شماره 19 و عدد 18 شماره 3 و ال یآخر
البته همانطور که میدانید با استفاده از شرط if یا celect اینکار شدنی است ولی می خواهم با استفاده از یک حلقه ( for ... next ) انجام شود.
با تشکر

[meys34]

اینجوری یا چیز دیگه ای مد نظرتون هست؟

For i = 20 To 1 Step -1
MsgBox i
Next

[vbhamed]

سلام
کافیه 21 رو از عددتون کم کنید مثلا اگر عددتون 20 هست 20-21 میشه 1 و اگر عددتون 1 باشه 1-21 میشه 20