写一段程序能够计算10以内任何一个数的阶乘,帮忙写一下感谢
Private Sub Form_Load()
a = 1
n = InputBox("请输入一个10以内的整数")
For u = n To 1 Step -1
a = a * u
Next u
MsgBox n & "！值为： " & a
End Sub
绝对没问题 我刚试过的 粘贴过去就可以用 有疑问再联系我！！！
Private Sub Form_Load()
a = 1
n = InputBox("请输入一个10以内的整数")
For u = n To 1 Step -1
a = a * u
Next u
MsgBox n & "！值为： " & a
End Sub
绝对没问题 我刚试过的 粘贴过去就可以用 有疑问再联系我！！！
多重随机标签