Visual Basic

Dim total as Integer = 1      ' starting at 1 is important here
For i as Integer = 2 to 5     ' replace the 5 with a variable as necessary
  total = total * i
Next i

<br />
Dim x As Integer<br />
    Dim y As Integer<br />
    Dim counter As Integer<br />
    Dim check As Boolean<br />
<br />
<br />
    Private Sub Bttn_Fkltt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttn_Fkltt.Click<br />
        x = TxtBx_Fkltt.Text<br />
        counter = 1<br />
        check = False<br />
        y = x * (x - 1)<br />
        If x > 2 Then<br />
            Do Until check = True<br />
                counter = counter + 1<br />
                y = y * (x - counter)<br />
                If counter = x - 1 Then<br />
                    check = True<br />
                    Exit Do<br />
                End If<br />
            Loop<br />
            Lbl_Fkltt.Text = y<br />
        Else<br />
            Lbl_Fkltt.Text = y<br />
        End If<br />
    End Sub<br />