سلام دوستان من ی سورسی رو از اینترنت پیدا کردم برا تشخیص دادن اعداد اول :
حالا وقتی رو کلید کاماند کلیک میکنی یک کادر باز میشه ک مینویسه عدد رو بنویسید و مثلا مینویسی 5 و پیغام میاد که اوله یا نه
حالا من میخوام به جای این که پیام بده که اول هست یا نه
در روی لیبل بنویسه یا روی صفحه
فقط بگید که کجاش رو ادیت کنم و به جاش چی بنویسم ممنون
موفق باشید
Dim i As Long, n As Long
n = Val(InputBox("Please enter a number :"))
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next
If n = i Then
MsgBox "yes"
Else
MsgBox "no"
End If
n = Val(InputBox("Please enter a number :"))
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next
If n = i Then
MsgBox "yes"
Else
MsgBox "no"
End If
حالا وقتی رو کلید کاماند کلیک میکنی یک کادر باز میشه ک مینویسه عدد رو بنویسید و مثلا مینویسی 5 و پیغام میاد که اوله یا نه
حالا من میخوام به جای این که پیام بده که اول هست یا نه
در روی لیبل بنویسه یا روی صفحه
فقط بگید که کجاش رو ادیت کنم و به جاش چی بنویسم ممنون
موفق باشید