用VB做一个阶乘

Question

就是比如你输入的是5 那么输出或者打印出来的 的是1*2*3*4*5=120 

Answer 1

按照你给出的结果，1*2*3*4*5=120 。其源代码如下：
Private Sub Command1_Click()
Cls
n = Val(Text1.Text)
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本回答被提问者采纳

Answer 2

Function J(n As Integer) As Integer
Dim i As Integer
J = 1
For i = 1 To n
J = J * i
Next
End Function
Function S(n As Integer) As String
Dim i As Integer
S = "1"
'处理n=0 or n=1?
For i = 2 To n
S = S + "*" + Str(i)
Next
S = S + "=" + Str(J(n))
End Function

Answer 3

Dim n As Long: n = 1
Dim s As String: s = "1"
For i = 1 To Val(InputBox("输入数字"))
n = n * i
If i > 1 Then s = s & "*" & i
Next
MsgBox s & "=" & n