程序如下 Private Sub Form Click () Dim 1 %o, f&, n%o n= InputBox(输入一个自然数:","输入提示 10 Fori=1 To n f=f米I Next i Print n: =l: f End sub 程序的执行过程如图5-2所示。 请单属标左键换页
程序如下： Private Sub Form_Click（） Dim I%，f&，n% n= InputBox（"输入一个自然数：" ， "输入提示 " ，"10"） f = 1 For I = 1 To n f = f * I Next I Print n；"!="；f End Sub 程序的执行过程如图5-2所示
输入提录 输入一个自然数: L确定」 取消 Fornl 口回区 10=3828900 图52例51远行链果 请单属标左键换页