سلام خدمت دوستای عزیز
اگه ممکن منو تو این برنامه در vb.net کمک کنین و برام توضیح بدین
برنامه بنویسید که عدد n را از ورودی گرفته و سری زیر را به کمک function محاسبه کند
Module Module1
Function MyFunction(ByVal n As Long) As Double
Dim i As Long, fact As Long = 1
For i = 1 To n
fact = fact * i
MyFunction = MyFunction + 1 / fact
Next
End Function
Sub Main()
Dim n As Long
Console.Write("Please enter n : ")
n = Val(Console.ReadLine)
Console.WriteLine("S = {0}", MyFunction(n))
Console.ReadKey(True)
End Sub
End Module Dim i As Long, fact As Long = 1 fact = fact * i MyFunction = MyFunction + 1 / fact Dim n As Long Console.Write("Please enter n : ") n = Val(Console.ReadLine) Console.WriteLine("S = {0}", MyFunction(n)) Console.ReadKey(True)
کد را با Microsoft Visual Basic 2008 نوشته ام، البته با سایر نسخه های NET. نظیر 2005 هم سازگار است.
Module Module1
Sub Main()
Dim n As Long
Dim r As Long
Console.Write("Please enter n : ")
n = Val(Console.ReadLine())
r = Val(StrReverse(n))
Console.WriteLine("Reverse n = {0}", r)
Console.ReadKey(True)
End Sub
End Module Dim n As Long Dim r As Long Console.Write("Please enter n : ") n = Val(Console.ReadLine()) r = Val(StrReverse(n)) Console.WriteLine("Reverse n = {0}", r) Console.ReadKey(True)کد را با Microsoft Visual Basic 2008 نوشته ام، البته با سایر نسخه های NET. نظیر 2005 هم سازگار است.
در ویژوال بیسیک 6 قابل اجرا نیست، Console.ReadLine و Console.WriteLine را نمی شناسد.Module Module1
Sub Main()
Dim i As Long, n As Long
For i = 1 To 10
Console.Write("{0}) Please enter n : ", i)
n = Val(Console.ReadLine())
If n = Val(StrReverse(n)) Then
Console.WriteLine("Yes")
Else
Console.WriteLine("No")
End If
Next
Console.ReadKey(True)
End Sub
End Module Dim i As Long, n As Long For i = 1 To 10 Console.Write("{0}) Please enter n : ", i) n = Val(Console.ReadLine()) If n = Val(StrReverse(n)) Then Console.WriteLine("Yes") Else
Console.WriteLine("No")
End If Next Console.ReadKey(True)Module Module1
Sub Main()
Dim i As Long, n As Long
Console.Write("Please enter n : ")
n = Val(Console.ReadLine())
For i = 2 To n - 1
If (n Mod i) = 0 Then Exit For
Next
If i = n Then
Console.WriteLine("Yes")
Else
Console.WriteLine("No")
End If
Console.ReadKey(True)
End Sub
End Module Dim i As Long, n As Long Console.Write("Please enter n : ") n = Val(Console.ReadLine()) For i = 2 To n - 1 If (n Mod i) = 0 Then Exit For Next If i = n Then Console.WriteLine("Yes") Else
Console.WriteLine("No")
End If Console.ReadKey(True)Module Module1
Sub Main()
Dim i As Long, j As Long, n As Long
Console.Write("Please enter n : ")
n = Val(Console.ReadLine())
j = 1
Do While n > 0
For i = 2 To j - 1
If (j Mod i) = 0 Then Exit For
Next
If i = j Then
Console.WriteLine(j)
n = n - 1
End If
j = j + 1
Loop
Console.ReadKey(True)
End Sub
End Module Dim i As Long, j As Long, n As Long Console.Write("Please enter n : ") n = Val(Console.ReadLine()) j = 1 Do While n > 0 For i = 2 To j - 1 If (j Mod i) = 0 Then Exit For Next If i = j Then Console.WriteLine(j) n = n - 1
End If j = j + 1 Loop Console.ReadKey(True)برنامه یک مجموعه بزرگ از روال ها، توابع، ساختمان داده ها، کلاس ها و ... است.
Sub MyRoutine()Console.WriteLine("Reverse n = {0}", r)Console.Write("{0}) Please enter n : ", i)تابع Val یک رشته (String) رو به معادل عددی اش تبدیل می کنه، مثلا اگر رشته "00123" رو به تابع Val تحویل بدهیم،
فرمان WriteLine به چندین شیوه قابل استفاده است، یکی از این شیوه ها استفاده از عبارت هایی نظیر {0} و {1}
Console.WriteLine("The {0} is red.", s)Console.WriteLine("{0} + {1} = {2}", x, y, x+y)در این کد قرار بر این بود که یک عدد از ورودی دریافت شود، برای آنکه مشخص شود که این چندمین عددی است
1) Please enter n :
2) Please enter n :
3) Please enter n :
4) Please enter n :
