vb程序求1到10阶乘

VB语言中，阶乘可以用递归函数实现，即一个函数调用自身，在每次调用中传入不同的参数值，直到达到终止条件。

以下是VB语言中求1到10的阶乘的代码：

```vb

Public Function Factorial(ByVal num As Integer) As Integer

If num = 0 Then

Factorial = 1 '0的阶乘为1

Else

Factorial = num * Factorial(num 1) '递归调用

End If

End Function

Sub Main()

Dim i As Integer

For i = 1 To 10

Debug.Print i & "! = " & Factorial(i)

Next i

End Sub

```

上述代码中，Factorial函数定义了一个整型参数num，表示要求的数的阶乘，函数内部用递归的方式求阶乘，当num等于0时返回1，否则返回num与num1的阶乘的乘积。在Main过程中，对1到10的每个数都调用一次Factorial函数，并输出结果。

输出结果如下：

1! = 1

2! = 2

3! = 6

4! = 24

5! = 120

6! = 720

7! = 5040

8! = 40320

9! = 362880

10! = 3628800

以上就是VB语言中求1到10的阶乘的方法，可以根据需要修改代码中的范围或输出方式。