阶乘在VB 中怎么写呀

建一个Command1。中间那部分就是运算程序。

代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Command1_Click()

Dim a As Integer, i As Integer, s As Double

s = 1

a = InputBox("输入数")

For i = 2 To a

s = s i

Next

MsgBox a & "的阶乘是：" & s

End Sub

按照你给出的结果，12345=120 。其源代码如下：

Private Sub Command1_Click()

Cls

n = Val(Text1Text)

For i = 1 To n

Print i;

If (i < n) Then

Print "";

Else: Print "=";

End If

Next i

s = 1

For j = 1 To n

s = s j

Next j

Print s

End Sub

在窗口添加一个按钮

Private

Sub

Command1_Click()

Dim

i

As

Integer

Dim

j

As

Integer

Dim

s

As

Single

s

=

1

i

=

Val(InputBox("请输入需要求的阶乘"))

For

j

=

1

To

i

s

=

s

j

Next

j

Print

i

&

"阶乘是"

&

s

End

Sub

以上就是关于阶乘在VB 中怎么写呀全部的内容，包括:阶乘在VB 中怎么写呀、用VB做一个阶乘、用vb编写一个程序，求一个整数的阶乘。急用谢谢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！