完成下列问题：

在考生目录下有一个工程文件sjt4.vbp，窗体如图5所示。其功能是单击“输入数据”按钮，则可输入一个整数n(要求：8＜=n＜=12)；单击“计算”按钮，则计算1!+2!+3!+…+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。
[*]
文件中已经给出了所有控件和程序，但程序不完整，在程序中的横线处填写正确的内容，并编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim n As Integer
Private Sub Command1_Click（　）
n=Val(InputBox("请输入整数(8-12)", "输入"))
If n＞ (1) Or n＜8 Then
MsgBox("数据错误,请重新输入")
Command2.Enabled=False
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
’考生应编写的程序
End Sub
Function f(n As Integer) As Long
s= (2)
For k=2 To n
s=s*k
Next
f= (3)
End Function
Private Sub Command3_Click（　）
Open App.Path & "/out4.dat" For Output As #1
Print #1, n, Text1
Close #1
End Sub

题库:计算机等级考试 类型:简答题 时间:2017-07-03 13:54:26 免费下载:《问答集》Word试卷

完成下列问题：

在考生目录下有一个工程文件sjt4.vbp，窗体如图5所示。其功能是单击“输入数据”按钮，则可输入一个整数n(要求：8＜=n＜=12)；单击“计算”按钮，则计算1!+2!+3!+…+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。
[*]
文件中已经给出了所有控件和程序，但程序不完整，在程序中的横线处填写正确的内容，并编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim n As Integer
Private Sub Command1_Click（　）
n=Val(InputBox("请输入整数(8-12)", "输入"))
If n＞ (1) Or n＜8 Then
MsgBox("数据错误,请重新输入")
Command2.Enabled=False
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
’考生应编写的程序
End Sub
Function f(n As Integer) As Long
s= (2)
For k=2 To n
s=s*k
Next
f= (3)
End Function
Private Sub Command3_Click（　）
Open App.Path & "/out4.dat" For Output As #1
Print #1, n, Text1
Close #1
End Sub

本题关键词:下跌图示,生物功能行为问题,出门按钮,控制按钮,个体发展功能,其他构件工程,生理性免疫功能低下,票据功能,个体享用性功能,按图施工;