Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim no As Integer no = Val(TextBox1.Text) fact(no) Dim ans As Integer = 0 End Sub Function fact(ByVal no As Integer) As Integer If no > 0 Then ans = ans + (no * fact(no - 1)) … 
|