用VB计算N!分别用while和for循环语句计算N!(N由界面输入)

while的：
Dim n As Integer, a As Integer, tot As Double
tot = 1
a = 1
n = InputBox("请输入N的值")
While a
再问： ...调试不出来
再答： 把我的代码放在某个事件中啊 比如放在窗口单击事件中