Факториал: Вычислить значение n! для n введенного с клавиатуры

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, x As Double
        TextBox1.Text = ""
        n = InputBox("Введите n")
        For 'как задать цикл
             'как правильно записать формулу факториала
        Next
        TextBox1.Text = TextBox1.Text & n & ""
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class

Dim resultat As Double = 1
        For i As Double = 1 To n
            resultat = resultat * i
        Next

Dim resultat As Double = 1 'Dim resultat это задаеться переменная которая выдает результат решения формулы, а Double = 1 что это значит ??, Double это диапозон чисел , тоесть он равен 1, но почему?
        For i As Double = 1 To n
            resultat = resultat * i
        Next

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, i As Integer
        n = InputBox("Введите n")
        i = n
        Do While i >= 2
            n = n * (i - 1)
            i = i - 1
        Loop
        TextBox1.Text = TextBox1.Text & n & ""
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class