Public Class Workflow1
    Inherits SequentialWorkflowActivity

    Private num As Integer
    Private firstTime As Boolean = True

    Private Sub WhileLoopCondition( _
                ByVal sender As System.Object, _
                ByVal e As System.Workflow.Activities.ConditionalEventArgs)
        If firstTime Then
            e.Result = True
            firstTime = False
        Else
            If num < 0 Then
                e.Result = True
            Else
                e.Result = False
            End If
        End If
    End Sub

    Private Sub readNum(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Console.WriteLine("Please enter a positive number")
        num = CInt(Console.ReadLine())
    End Sub

    Private Sub Zero( _
            ByVal sender As System.Object, _
            ByVal e As System.Workflow.Activities.ConditionalEventArgs)
        If (num = 0) Then
            e.Result = True
        Else
            e.Result = False
        End If
    End Sub

    Private Sub PrintResultForZero( _
       ByVal sender As System.Object, ByVal e As System.EventArgs)
        Console.WriteLine("0! is 1")
    End Sub

    Private Sub PrintResult(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fac As Integer = 1
        For i As Integer = 1 To num
            fac *= i
        Next
        Console.WriteLine(num & "! is " & fac)
    End Sub
End Class