عدد اول

[saman9999]

دوستان من يه کد به شکل زير دارم که نشون ميده عدد وارد شده در text اول هست تا نه


dim b as boolean , n as integer
b=true
n=val("text1.text")
for i = 2 to n-1
if n mod i = 0 then
b =false
exit for
end if
next


من بخوام اينرو با select case يا do....loop بنويسم چجوريه؟ ميشه کمک کنيد

[saman9999]

کسی نيست واسه کمک؟

[xxxxx_xxxxx]

سلام،
کد بالا درست نیست. شما text1.text رو داخل " " قرار دادی که به عنوان رشته تلقی شده بنابراین تابع Val مقدار 0 را برمیگرداند. پس علامت های " " را از دو طرف text1.text حذف کنید.

انجام همین کار با Do ... Loop Until به این صورت میشه:


n = Val(Text1.Text)
i = 1
Do
i = i + 1
If n Mod i = 0 Then MsgBox "Yes": Exit Do
Loop Until i + 1 >= n


Select case کاربردش در جای دیگری هست. معمولاً زمانی که به ازای یک سری مقادیر مشخص باید عمل مشخص دیگری انجام شود از Select case استفاده می شود. البته میتوان از select case در بین همین حلقه ها استفاده کرد.

موفق باشید/