vb程序在win10不能运行如何改程序

如果您的VB程序无法在Windows 10上运行，可能有几种可能性：

1. 缺少运行所需的文件：在Windows 10上运行VB6程序需要安装Visual Basic运行时库。如果您没有在Windows 10上安装运行时库，那么您应该先安装它。可以通过在浏览器中搜索“Visual Basic运行时库”来找到它。

2. 程序不兼容Windows 10：有些VB程序是在较早版本的Windows上编写的，而这些程序可能在Windows 10上无法正常工作。如果您确定您的程序不兼容Windows 10，请尝试将其以管理员身份运行或者在Windows 10的兼容性模式下运行它。

3. 编译错误：在一些情况下，VB程序可能无法编译。在这种情况下，您需要查找编译器输出以了解问题的原因，并进行相应的更改才能正确运行。

综上所述，如果您的VB程序在Windows 10上无法正常工作，您应该先确保已安装Visual Basic运行时库，然后尝试将其以管理员身份运行或在Windows 10的兼容性模式下运行它。如果仍有问题，请查找编译器输出以了解问题的原因，并进行相应的更改以使程序在Windows 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

---