یک درخواست ساده

[Questions]

با سلام
من میخوام با VB یک برنامه بنویسم که با دادن یک ورودی همه ی عددهای اول را تا سقف اون ورودی بهمون نشون بده.ولی به دستورها و چگونگی نوشتن برنامه وارد نیستم.آیا کسی میتونه این برنامه را برای من تهیه کنه؟

[Hossein Bazyan]

دوست عزیز کد برنامه خیلی ساده است اما قوانین سایت این اجازه را نمیده کد پروژه رو برای کسی نوشت
شما میتوانید سوالات و مشکلاتتان را بپرسید و دوستان اگر جواب را بدانند راهنمایی میکنند
پس لازم است که مشکلاتتان را در قالب سوال مطرح نمائید

[subsub]

از این تابع استفاده کن. عدد رو به تابع ارسال کن. اگه عدد اول بود، تابع True وگرنه False رو بر می گردونه.


Private Function IsOne(LngNumber As Long) As Boolean

Dim LngCounter As Long

IsOne = True

If LngNumber < 2 Then
IsOne = False
Exit Function
ElseIf LngNumber = 2 Then
IsOne = True
Exit Function
ElseIf LngNumber Mod 2 = 0 Then
IsOne = False
Exit Function
End If

For LngCounter = 3 To Int(Sqr(LngNumber)) + 3 Step 2
If (LngNumber <> LngCounter) And (LngNumber Mod LngCounter = 0) Then
IsOne = False
Exit Function
End If
Next

IsOne = True

End Function