VB.NET

VB.NET RSS

Factorial of N

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: May 2008

Posts: 65

Reputation: lich has a little shameless behaviour in the past

Solved Threads: 4

lich

Offline

Junior Poster in Training

Factorial of N

Jun 1st, 2008

I really dont know this Program is rite or wrong. but it wont give a answer. if anyone can help me in this

Public Class Form2
Dim num As Integer

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fact As Integer

num = Val(InputBox("Enter the Factorial Number"))

Do
fact = fact * num
num = num - 1

Loop Until num <= 0

MessageBox.Show(fact)

End Sub
End Class

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: Factorial of N

Jun 1st, 2008

use this following function :

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Public Function Factorial(ByVal Number As Integer) As String
        Try
            If Number = 0 Then
                Return 1
            Else
                Return Number * Factorial(Number - 1)
            End If
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function
Public Function Factorial(ByVal Number As Integer) As String
        Try
            If Number = 0 Then
                Return 1
            Else
                Return Number * Factorial(Number - 1)
            End If
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function

I called this function in button click event:

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim num As Integer
        num = Val(InputBox("Enter the Factorial Number"))
        MsgBox(Factorial(num))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim num As Integer
        num = Val(InputBox("Enter the Factorial Number"))
        MsgBox(Factorial(num))
End Sub