VB计算n阶层 举个例子,就8的阶层 label里能出现“ =1*2*3*4*5*6*7*8=40320”

Private Sub Command1_Click()
Dim x As Integer
Dim n As Double
Dim mycheck
n = 1
mycheck = IsNumeric(Text1.Text)
If mycheck = False Then
Label2.Caption = "格式错误,请输入一个整数!"
Else
x = Round(Text1.Text)
Label2.Caption = x & "!= "
For i = 1 To x
n = n * i
Label2.Caption = Label2.Caption & i & " * "
Next i
Label2.Caption = Mid(Label2.Caption, 1, Len(Label2.Caption) - 2) & "= " & n
End If
End Sub
Private Sub Form_Load()
Label4.Caption = Label4.Caption & Now()
End Su