编写VB程序：求10！

VB6.0可通过编写自定义Funtion 过程达到求阶乘的运算。

Funtion 过程，Visual Basic 包含内置的段行、或内部的函数，如 Sqr、Cos 或 Chr。此槐燃运外，还可用 Function 语句编写自己的 Function

过程。

在 Visual Basic 中调用 Function 过程的方法和调用任何内部函数的方法是一样的。

具体实施代码：

Private Function jc(ByVal Int_I As Integer) As Long

    jc = 1

    Dim i As Integer

    For i = 1 To Int_I

        jc = jc * i

    Next i

End Function

Private Sub Form_Click()

    Dim i As Integer

    i = 铅梁InputBox("输入整数", i)

    MsgBox i & ("的阶乘=") & jc(i)

End Sub

可以使岩雀用循环来实现这个算法，具体岩枣拦的VB程序设计语言描述如下：

Dim sum As Integer ' 定义一个变量来保存求和结果

sum = 0 ' 初始化求和结果为0

For i As Integer = 10 To 300 Step 10 ' 循环10到300，每次增加10

sum = sum + i ' 将当前循环变量的值加入求和结果中

Next

MsgBox "10+20+30+...+300 = " &sum ' d出对话框显示求和结果

上述代码中，粗胡首先定义了一个变量sum用来保存求和结果，并将其初始化为0。然后使用For循环从10开始到300，每次增加10，将循环变量的值加入求和结果中。最后使用MsgBox函数d出一个对话框，显示求和结果。

当程序执行完毕后，会d出一个对话框，显示求和结果为"10+20+30+...+300 = 4590"。

---