[多項(xiàng)選擇題] 完成下列問題：

在考生目錄下有一個(gè)工程文件sjt4.vbp，窗體如圖5所示。其功能是單擊“輸入數(shù)據(jù)”按鈕，則可輸入一個(gè)整數(shù)n(要求：8＜=n＜=12)；單擊“計(jì)算”按鈕，則計(jì)算1!+2!+3!+…+n!，并將計(jì)算結(jié)果顯示在文本框中；單擊“存盤”按鈕，則把文本框中的結(jié)果保存到考生目錄下的out4.dat文件中。

文件中已經(jīng)給出了所有控件和程序，但程序不完整，在程序中的橫線處填寫正確的內(nèi)容，并編寫“計(jì)算”按鈕的Click事件過程。

注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，在結(jié)束程序運(yùn)行之前，必須用“存盤”按鈕存儲計(jì)算結(jié)果，否則無成績。最后把修改后的文件按原文件名存盤。

[題目提供的源程序]

Dim n As Integer

Private Sub Command1_Click()

n=Val(InputBox("請輸入整數(shù)(8-12)", "輸入"))

If n＞ (1) Or n＜8 Then

MsgBox("數(shù)據(jù)錯誤,請重新輸入")

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

’考生應(yīng)編寫的程序

End Sub

Function f(n As Integer

[操作步驟] 第A步：打開工程文件sjtD.vbp。 第B步：分析并編寫程序。 CommandB_Click()事件過程參考程序如下： Private Sub CommandB_Click(() Dim s As Long, k As Integer ’考生應(yīng)編寫的程序 s=0 For k=A To n s=s+f(k) Next k TextA=s End Sud 第C步：調(diào)試、運(yùn)行并保存程序。 [A]AB [B]A [C]s

程序在Command1_Click過程中通過Val()和InputBox()函數(shù)取得輸入的值n，如果n不在要求的范圍內(nèi)，則彈出提示對話框，并使Command2和Command3不可用。第[1]個(gè)橫線位置的表達(dá)式應(yīng)表示出數(shù)值不在范圍內(nèi)的條件“大于12或者小于8”，故第[1]個(gè)橫線處填12。 函數(shù)f()的作用是求自然數(shù)n的階乘，算法是：設(shè)置變量s，初值為1；通過循環(huán)把k值連乘到s上；最后把階乘值s賦值給函數(shù)名f作為函數(shù)的返回值。 Command2_Click()事件過程中可運(yùn)用循環(huán)語句的累加實(shí)現(xiàn)表達(dá)式的求和運(yùn)算。 Command3_Click()事件過程的作用是實(shí)現(xiàn)數(shù)據(jù)的存盤處理。