کمک در چند برنامه vb.net

[sinaeslami]

اگه میشه تو این برنامه ها هم کمکم کنین.

1-روالی بنویسید که بک عدد صحیح را دریافت کرده و آن را معکوس کند.
2-برنامه ای بنویسید که 10 عدد را از کاربر گرفت و بررسی کند که آیا این اعداد با معکوس خود برابرن یا خیر.
3-روالی بنویسید که یک عدد از کاربر گرفته و مشخص کند که آیا این یک عدد اول است یا خیر.
4-روالی بنویسید که عدد دلخواه n را گرفته و n عدد اول را چاپ نماید.

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

[#target]

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

اگر استاد می خواد خودتون الگوریتم بنویسین که تقریبا مثل بالا در غیر اینصورت روش زیر
dim s as string
s = CStr(YourNumber)
s = ReverseStr(s)
dim i as integer
i = CInt(s)

[ACorvinus]

جواب سوال 1:




Module Module1
Private Function Reverse(ByVal Number As Long) As Long
Dim RevNumber As Long = 0
While (Number >= 10)
RevNumber += Number Mod 10
Number \= 10
RevNumber *= 10
End While
Return RevNumber + Number
End Function
Sub Main()
Console.Write("Enter A Number: ")
Console.WriteLine("Reverse Number is: {0}", Reverse(Console.ReadLine()).ToString)
Console.ReadKey()
End Sub
End Module

[ACorvinus]

جواب سوال 2:




Module Module1
Private Result As Nullable(Of Boolean) = Nothing
Private Function Reverse(ByVal Number As Long) As Long
Dim RevNumber As Long = 0
Dim ChecktoResultNumber As Long = Number
While (Number >= 10)
RevNumber += Number Mod 10
Number \= 10
RevNumber *= 10
End While
RevNumber += Number
If ChecktoResultNumber = RevNumber Then
Result = True
Else
Result = False
End If
Return RevNumber
End Function
Sub Main()
Dim Counter As Byte
Dim Number As Long
For Counter = 1 To 3
Console.Write("Enter A Number: ")
Number = Console.ReadLine()
Console.WriteLine("Reverse Number {0} is: {1} Result: {2}", Number, Reverse(Number).ToString, Result.Value)
Console.WriteLine()
Next
Console.ReadKey()
End Sub
End Module

[ACorvinus]

جواب سوال 3:




Module Module1
Private Function F_Number(ByVal Number As Integer) As Boolean
For Counter = 2 To Number / 2
If Number Mod Counter = 0 Then
Return False
End If
Next
Return True
End Function
Sub Main()
Do
Console.Clear()
Console.Write("Enter A Number: ")
Console.WriteLine("Result: {0}", F_Number(Console.ReadLine()).ToString)
Console.Write("Do You Want to Continue (Y/N)? ")
Loop While (UCase(Console.ReadKey().KeyChar) = "Y")
End Sub
End Module

[ACorvinus]

دوست من، اگه جواب سوال آخر رو خودت نتونی بنویسی من ازت ناامید میشم !!!

موفق باشی.
خدانگهدار.

[kablayi]

دوست عزیز تمریناتی که اساتید دانشگاهتون به شما میدن برای یادگیری بهتر شماست ...
شما در حد راهنمایی میتونید سوالات خودتونو مطرح کنید ...
ولی فکر نمیکنم کار درستی باشه از این سایت بعنوان حل المسائل تمریناتتون استفاده کنید...
این دوست عزیزمون هم که زحمت کشیدن جواب سوالات ایشون رو نوشتن یه لطفی کنن و اونا روپاک کنن و به راهنمایی بسنده کنن ... ممنون

موفق باشید...

[ACorvinus]

دوست عزیز تمریناتی که اساتید دانشگاهتون به شما میدن برای یادگیری بهتر شماست ...
شما در حد راهنمایی میتونید سوالات خودتونو مطرح کنید ...
ولی فکر نمیکنم کار درستی باشه از این سایت بعنوان حل المسائل تمریناتتون استفاده کنید...
این دوست عزیزمون هم که زحمت کشیدن جواب سوالات ایشون رو نوشتن یه لطفی کنن و اونا روپاک کنن و به راهنمایی بسنده کنن ... ممنون

موفق باشید...


منم با شما موافقم. ولی اگه اجازه بدین بیخیال این مورد بشیم .
به نظر من باید فرصت داد .
موفق باشین .

[Hossein Bazyan]

سلام
من کلا با ارسال پاسخ مخالفم ( قانون سایت هم همینه ) و نمیشه برای یکی بیخیال شد و برای دیگری نه. قانون قانونه چه برای من و چه برای رئیس جمهور.
اما من از این ناراحتم که سال 70 که من دانشجو بودم و منابع آنچنانی هم نبود من برای جواب سوالاتم گاهی بیشتر از 120 کیلومتر رفته ام اما الان عجب دوره ای شده .
معلم تمرین میده و دانش آموز هم میاد راحت میپرسه و بدون اینکه چیزی یاد بگیره تحویل معلم میده ( البته معلم هم این مسائل را میداند اما به روی خودش نمیاره)
حال بماند که فردا این دانش آموز با چه بار علمی ای فارغ التحصیل میشه و میره بازار کار.
همینه که الان وضع مملکت به اینحا رسیده و هیچی سرجاش نیست.
کسی که کامپیوتر خونده رفته مدیر شده، مدیریتی های شدن مسئول پروژه های برنامه نویسی و ....
متاسفم