loading...
وی نت دات آی آر: دانلود نرم افزار,کتاب,بازی,فیلم,برنامه موبایل,فایل های آموزشی
آخرین ارسال های انجمن
Mohammad بازدید : 881 دوشنبه 15 خرداد 1391 نظرات (0)

 

Private Sub cmd_Click()
Dim a As Variant, c As Variant
a = Val(txt.Text)
c = 2
Do While c * c <= a
If a Mod c = 0 Then
lbl.Caption = "Aval Nist" + vbCr + "be " + CStr(c) + " bakhshpazir ast."
Exit Do
End If
c = c + 1
Loop
If c * c > a Then lbl.Caption = "Aval Hast"
End Sub

 

ارسال نظر برای این مطلب

کد امنیتی رفرش
اطلاعات کاربری
  • فراموشی رمز عبور؟
  • نویسندگان
    نظرسنجی
    کدام یک از دامنه های سایت را میپسندید؟
    آمار سایت
  • کل مطالب : 129
  • کل نظرات : 28
  • افراد آنلاین : 1
  • تعداد اعضا : 550
  • آی پی امروز : 34
  • آی پی دیروز : 28
  • بازدید امروز : 138
  • باردید دیروز : 32
  • گوگل امروز : 0
  • گوگل دیروز : 0
  • بازدید هفته : 300
  • بازدید ماه : 1,216
  • بازدید سال : 8,057
  • بازدید کلی : 535,446
  • کدهای اختصاصی