关于VB的题 输入一个正整数N,计算出N!并输出.

题目

关于VB的题 输入一个正整数N,计算出N!并输出.

答案

Private Sub Form_Click()
Dim n As Integer
n = InputBox("请输入一个正整数n")
s = 1
For i = n To 1 Step -1
s = s * i
Next i
Print n & "!=" & s
End Sub