برنامه اعداد اول [بایگانی]

وحید1365

جمعه 25 دی 1383, 00:29 صبح

سلام
من برنامه ای در vb6 می خواهم که وقتی اعداد را میگیرد مشخص کند اول است یا نه
با تشکر وحید ::نوشتن::

حامد مصافی

جمعه 25 دی 1383, 00:48 صبح

سلام وحید جان ورودت رو به این سایت تبریک میگم :wink:

اینم کدی که خواسته بودی

Private Sub Command1_Click()
Dim i As Integer
Dim booFirst As Boolean
For i = 2 To Text1 \ 2
If (Text1 Mod i) = 0 Then booFirst = True
Next i
MsgBox booFirst
End Sub

برای استفاده از این کد یه تکست باکس و یه کامند روی فرم بذار و این کد رو برای رویداد کلیک کامند بنویس

در ضمن ارسال آف تاپیک ( مطلب بی ارزش ) تو این سایت ممنوعه :mrgreen:
اینو به خاطر پست دومت گفتم

MM_Mofidi

یک شنبه 27 دی 1383, 17:55 عصر

بجای Text1 \ 2 میتونی for را تا sqr(Text1) ادامه بدی :wink:

rezaTavak

یک شنبه 27 دی 1383, 18:14 عصر

سلام

اول بر 2 چک کن بعد بر اعداد فرد از 3 تا جذر آن عدد.