12 Or n<8 Then’确定输入值最大为12,最小为8,否则提示错误 MsgBox("数据错误,请重新输入") Command2.Enabled=FaiSe Command3.Enabled=False’两按钮不可用 Else Command2.Enabled=True Command3.Enabled=True’两按钮可用 End If End Sub Private Sub Command2 Click() Dim S As Long,k As Integer ’考生应编写的程序 s=0 For k=1 To n s=s+f(k) Next k Text1=s ’编程结束 End Sub Function f(n As Integer)As Long s=1’初始化s为1 For k=2 To n’循环求n的阶乘 s=s * k Next f=s’返回阶乘结果 End Function Private Sub Command3 Click() Open App.Path & "\out4.dat"For Output As #1 Print #1,n,Text1 Close #1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘,如图3.31所示。 [*]