编写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

rivate Function IsPrime(ByRef n As Integer) As Boolean '。此函数用于判断一个数是否素数：

Dim j As Integer ；

IsPrime = True ；

For j = 2 To n - 1 ；

If n Mod j = 0 Then IsPrime = False: Exit For ；

Next ；

End Function用法dim i as integer ,n as integerfor i =100 to 300if IsPrime (i) thenprint；

i,n=n+1if n mod 10 =0 then print  '10个一行；

endifnext。

扩展资料：

VB编程学习入门：

工具箱除了最常用的控件以外，根据设计程序界面的需要也可以向工具箱中添加新的控件，添加新控件可以通过选择“工程”菜单中的“部件”命令或通过在工具箱中右击鼠标，在d出菜单中选择“部件”命令来完成

窗体设计器位于VB主窗口的中间。它是一个用于设计应用程序界面的自定义窗口。应用程序中每一个窗体都有自己的窗体设计器。窗体设计器总是和它中间的窗体一道出现，在启动VB开始创建一个新工程时，窗体设计器和它中间的初始窗体“Form1”一道出现。

要在应用程序中添加其它窗体，可单击工具栏上的“添加窗体”按钮。

Private Sub Form_click()

Text1.FontSize = 20

Text1.FontBold = True

Text1.Text = InputBox("")

Label1.Caption = Text1.Text

Label1.ForeColor = vbRed

Label1.FontName = "楷体_GB2312"

End Sub

如图所示

---