用VB求阶乘之和

private form_click()
dim a as integer
a=int(val(inputbox("正整数","输入",5)
print Jc(a)
end sub
private function Jc(x as integer) as long
if x=0 then jc=1 else jc=x*jc