PDA

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



iceboy67
پنجشنبه 08 فروردین 1387, 20:04
برنامه ای بنویسید که عدد n را از ورودی در یافت و n امین عدد اول را محاسبه و چاپ کند.

iceboy67
شنبه 10 فروردین 1387, 14:00
برنامه ای در بیسیک که عدد n را از ورودی دریافت کند و تعداد اعداد اول و کامل قبلش را شمرده و در خرو جی چاپ نماید.

saalek110
یکشنبه 11 فروردین 1387, 00:14
یک باتون و یک تکست باکس به فرم بیافزایید و کد زیر را به پنجره کد اضافه کنید.(در وی بی 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 یعنی باقیمانده.
نمی دانم درست نوشتم یا نه. ولی کار می کنه.

saalek110
یکشنبه 11 فروردین 1387, 00:19
این تاپیک فکر کنم کمک کند:

برنامه نمایش مقسوم علیه های یک عدد در ویژوال بیسیک (http://www.majidonline.com/forum/showthread.php?t=92685)

armin_mx
یکشنبه 11 فروردین 1387, 00:46
این برنامه رو من قبلا نوشتم قبل از اجرا یه لیست باکس هم درست کن
برنامه نمایش اعداد اول ( اعدادی که غیر از خودش و یک بر عددهای دیگه بخش پذیر نیستن)

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
یکشنبه 11 فروردین 1387, 21:25
این برنامه رو من قبلا نوشتم قبل از اجرا یه لیست باکس هم درست کن
برنامه نمایش اعداد اول ( اعدادی که غیر از خودش و یک بر عددهای دیگه بخش پذیر نیستن)


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

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

armin_mx
یکشنبه 11 فروردین 1387, 22:04
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
چهارشنبه 14 فروردین 1387, 20:47
سلام ، دوست من اینا سوالای درسی هستن ، بهتره خودت کتاب رو مرور کنی و حلشون کنی
و ممکنه من از تابع هایی استفاده کنم که شما تا الان نخوندینش ...
در واقع باید بتونی با راهنمایی قبلیه من و دوستان سوالای بعدی خودت رو حل کنی !؟

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

armin_mx
چهارشنبه 14 فروردین 1387, 20:54
این کدی که من تو پست قبلیه این تاپیک گذاشته بودم ..(در مورد سوال آخری)

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