پیدا کردن اعداد اول و مقسوم علیه های یک عدد در ویژوال بیسیک

iceboy67

Member
در خواست برنامه محاسبه n امین عدد اول در vb

برنامه ای بنویسید که عدد n را از ورودی در یافت و n امین عدد اول را محاسبه و چاپ کند.
 

iceboy67

Member
در خواست برنامه اعداد اول و کامل در ویژوال بیسیک

برنامه ای در بیسیک که عدد n را از ورودی دریافت کند و تعداد اعداد اول و کامل قبلش را شمرده و در خرو جی چاپ نماید.
 

saalek110

Well-Known Member
یک باتون و یک تکست باکس به فرم بیافزایید و کد زیر را به پنجره کد اضافه کنید.(در وی بی 6 البته. نمی دانم ورژن وی بی شما چند است.)

کد:
Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim counter As Integer
i = Text1.Text

For counter = 1 To i
If i Mod counter = 0 Then
Print counter
End If
Next counter
End Sub
گمانم mod یعنی باقیمانده.
نمی دانم درست نوشتم یا نه. ولی کار می کنه.
 

armin_mx

Member
این برنامه رو من قبلا نوشتم قبل از اجرا یه لیست باکس هم درست کن
برنامه نمایش اعداد اول ( اعدادی که غیر از خودش و یک بر عددهای دیگه بخش پذیر نیستن)
Private Sub Command1_Click()
i = InputBox("")
For n = 1 To i
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then List1.AddItem n
p = 0
Next
End Sub
 

iceboy67

Member
این برنامه رو من قبلا نوشتم قبل از اجرا یه لیست باکس هم درست کن
برنامه نمایش اعداد اول ( اعدادی که غیر از خودش و یک بر عددهای دیگه بخش پذیر نیستن)


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

من نگفتم برنامه ای که عدد اول چاپ کند . من گفتم برنامه ای که یک عدد را از ورودی دریافت کند و تعداد اعداد اول و کامل قبل از خود را چاپ کند.
یعنی قبل از آن عدد چندتا عدد اول و چندتا عدد کامل وجود دارد.
 

armin_mx

Member
i = InputBox("")
Cls
Dim maghsom%, adadeaval%
For n = 1 To i
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then
adadeaval = adadeaval + 1
Else
maghsom = maghsom + 1
End If
p = 0
Next
Print adadeaval & " : adade aval"
Print maghsom & " : adade kamel"
ببین این مشکلتو حل میکنه؟
 

armin_mx

Member
سلام ، دوست من اینا سوالای درسی هستن ، بهتره خودت کتاب رو مرور کنی و حلشون کنی
و ممکنه من از تابع هایی استفاده کنم که شما تا الان نخوندینش ...
در واقع باید بتونی با راهنمایی قبلیه من و دوستان سوالای بعدی خودت رو حل کنی !؟

به هر حال در مورد سوال آخریت می تونی از if استفاده کنی
if len(String)=3 then
 

armin_mx

Member
این کدی که من تو پست قبلیه این تاپیک گذاشته بودم ..(در مورد سوال آخری)
Private Sub Command1_Click()
i = InputBox("")
For n = 1 To i
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then List1.AddItem n
p = 0
Next
End Sub

این همون کد با کمی تغییر..!
For n = 100 To 999
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then List1.AddItem n
p = 0
Next
 

مصطفی01

New Member
یه سوالی داشتم اگه میشه الن جواب بدین فردا باید تجویل بدم مقسوم علیه زوج یه عدد طبیعی دلخواه را محاصبه کنید
 

جدیدترین ارسال ها

بالا