能否帮忙编个VB程序,计算任意一个正整数n的阶乘,我知道你是高手,能否免费帮忙一次啊,
问题描述:
能否帮忙编个VB程序,计算任意一个正整数n的阶乘,我知道你是高手,能否免费帮忙一次啊,
答
Private Sub Command1_Click()
n = InputBox("请输入n:")
s = 1
For i = 1 To n
s = s * i
Next i
Print "n!=" & s
End Sub