گیر کردن در حلقه

[bahman2012 13]

سلام دوستان ببینید مشکل این کد جه آخه بعضی وقتا تو حلقه     (do while)گیر میکنه و ازش خارج نمیشه

Dim o as int
dim map1 as map
map1.Clear
For i = 0 To 20
  o = Rnd(i,50)
	Do While map1.ContainsKey(o) = True
	 o = Rnd(i,50)
Loop
map1.Put(o,"")

[مجید آرتا 5,875]

دوست عزیز این تیکه کد مشکل داره :

Do While map1.ContainsKey(o) = True

حلقه Do while با True  شدن به یک حلقه بی نهایت تبدیل میشه

شما اون مساوی و کلمه True  رو پاک کنید.

در ضمن بستگی به کدی که نوشتید هم داره.

اینجا حقله 20 بار اجرا میشه و هر بار حلقه Do While  اجرا میشه که باز خود حلقه Do While  باز شرط خاصی داره

در کل مدل نوشتن کدتون مشکل داره.

[AMiN.M7892 1,029]

نمیدونم

ولی فک کنم بخاطر اینه که از رندوم استفاده کردید

[bahman2012 13]

مجید ارتا عزیز روش دیگه ای برای طراحی حلقه  به فرم دبگه وجود نداره در واقع سناریوی اجرای برنامه  با  حلقه تکرار 20 باره  با زیر حلقه شرطی  while

[پژمان نیکروان 6,055]

یعنی چی گیر میکنه؟؟

شما نوشتید تا زمانی که اون شرط برقرار نشه همش رندوم بده دیگه تا اینکه برسه به اون عدد.

[engm 76]

فکر کنم این تیکه کد یه چیزی شبیه کد بازی حدث تصاویر هست 

درسته؟