یک برنامه ساده با ویژوال بیسیک 6.0

[Nabavi]

سلام خدمت تمامی بروبچه های مجید آنلاین هم چنین مجید گل :

من یک برنامه دارم برام با ویژوال بیسیک بنویسید شرح به صورت زیر است :

برنامه ای بنویسید که عددی را دریافت کند و اعداد اول بین 1 تا آن عدد و تعداد اعداد اول و حاصل جمع اعداد اول آن را محاسبه نماید.(توضیح 1 جز اعداد اول می باشد.)

خواهشمندم دوستانی که بلد هستند بنویسند البته فقط کدش را برام بگذارند.

فکر کنم از حلقه هم باید استفاده شود(for next)

ممنونم

 

[the_king]

سلام خدمت تمامی بروبچه های مجید آنلاین هم چنین مجید گل :

من یک برنامه دارم برام با ویژوال بیسیک بنویسید شرح به صورت زیر است :

برنامه ای بنویسید که عددی را دریافت کند و اعداد اول بین 1 تا آن عدد و تعداد اعداد اول و حاصل جمع اعداد اول آن را محاسبه نماید.(توضیح 1 جز اعداد اول می باشد.)

خواهشمندم دوستانی که بلد هستند بنویسند البته فقط کدش را برام بگذارند.

فکر کنم از حلقه هم باید استفاده شود(for next)

ممنونم

البته عدد 1 اول نیست :

اعداد اول: عدد طبیعی p و p>1 را اول نامند به شرطی که تنها مقسوم علیه های مثبت آن 1 و p باشند.
اگر عددی طبیعی و بزرگتر از 1 اول نباشد، مرکب است و عدد 1 جزء اعداد استثناء است که نه اول است و نه مرکب.
رقم یکان هر عدد اول بزرگتر از 10 فقط ممکن است یکی از ارقام 1 و 3 و 7 و 9 باشد.

    Dim I As Long, J As Long, N As Long
    Dim Sum As Long, Count As Long
    Dim Text As String
    N = Val(InputBox("Please enter a number :"))
    Text = "Numbers = "
    For I = 1 To N
        For J = 2 To I - 1
            If (I Mod J) = 0 Then
                J = 0
                Exit For
            End If
        Next
        If J > 0 Then
            Text = Text & I & " "
            Count = Count + 1
            Sum = Sum + I
        End If
    Next
    Text = Text & vbNewLine & "Count = " & Count
    Text = Text & vbNewLine & "Sum = " & Sum
    MsgBox Text

 

[Nabavi]

سلام دوست عزیز :

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

ممنون

 

[Nabavi]

سلام خواهش می کنم جواب بدید.

ممنون

 

[Arsham]

J=0
N = Val(InputBox("adad ra vared kon : "))
For I = 2 To N/2
If (N Mod I) = 0 Then
J = 1
End If
Next I
If J = 0 Then
print "Adad Aval Ast"
else
print "Adad Aval nist"
End If

 

[Arsham]

فکر کنم این یکم ساده تر باشه نه؟