Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As Long
s = 1
i =
If i >= 1 And i <= 9 Then
For j = 1 To i
s =
Next j
Label2.Caption = Str(i) & "的阶乘为:" & Str(s)
Else
Label2.Caption = "请重新输入1~ 9之间的任意数字"
End If
End Sub
微信扫码预览、分享更方便