階乘Factorial

階乘寫成Factorial(a)，或表示成a!。

]Define.. Factorial(被乘數)

]Instead.. 被乘數 = a

Visual Basic]Dim x = 1

Visual Basic]Do Until a <= 0

Visual Basic]x *= a

Visual Basic]a -= 1

Visual Basic]Loop

]Factorial = x