二級考試Access(程序部分).ppt

全國計算機等級考試二級教程 Access數(shù)據(jù)庫 (程序設計部分),【考試要點】 模塊的基本概念 類模塊 標準模塊 將宏轉換為模塊 創(chuàng)建模塊 創(chuàng)建VBA模塊 在模塊中加入過程、在模塊中執(zhí)行宏 編寫事件過程 鍵盤事件、鼠標事件、窗口事件、操作事件和其它事件,VBA程序設計基礎 面向對象程序設計的基本概念 VBA編程環(huán)境（進入VBA、VBE界面） VBA編程基礎（常量、變量、表達式） 變量（數(shù)組）、常量的類型及定義 各種運算符功能、運算的順序 各種表達式的運算及運算結果的數(shù)據(jù)類型 VBA程序流程控制 順序結構 分支結構（選擇結構） 循環(huán)結構 過程（函數(shù)）的調用（即參數(shù)的傳遞） 讀程序（包括完善程序）,VBA程序的調試 設置斷點 單步跟蹤 設置監(jiān)視點,全國計算機等級考試 2011年9月二級試題,27、VBA中定義符號常量使用的關鍵字是（ ）。 A）Const B）Dim C）Public D）Static 答案：A 解析： Public 定義公共變量（數(shù)組） Dim 定義私有變量（數(shù)組）或局部變量（數(shù)組） Static 在調用過程中保留局部變量的值,選擇題,28、由“ For i = 1 To 16 Step 3 “決定的循環(huán)結構被執(zhí)行（ ）。 A）4次 B）5次 C）6次 D）7次 解析： For循環(huán)語句的執(zhí)行過程是： 先將初值賦于循環(huán)變量。 判斷循環(huán)變量是否超出終值，若超出終值，退出循環(huán)；否則進入循環(huán)。 每輪循環(huán)結束后，循環(huán)變量均要增加一個步長，并重復執(zhí)行步驟。 答案：C,29、由可以用InputBox函數(shù)產生“輸入對話框”。執(zhí)行語句： st = InputBox( “請輸入字符串“ , “字符串對話框“ , “aaaa“ ) 當用戶輸入字符“bbbb”，按OK按鈕后，變量st的內容是（ ）。 A) aaaa B) 請輸入字符串 C) 字符串對話框 D) bbbb 解析： InputBox函數(shù)用于接收鍵盤所輸入的數(shù)據(jù)。其的語法格式： InputBox( 提示 , 標題 , 默認值 ) 答案：D,30、下列不屬于VBA函數(shù)的是（ ）。 A）Choose B）If C）IIf D）Switch 解析： Choose( 索引式 , 表達式1 , 表達式2 , ) 根據(jù)索引式的值來確定返回的值 IIf( 條件表達式 , 表達式1 , 表達式2 ) 根據(jù)條件表達式的值，確定返回的值 Switch( 條件表達式1 , 表達式1 , 條件表達式2 , 表達式2 , ) 返回第1個條件表達式為真時，與其相對應的表達式值 答案：B,31、若有以下窗體單擊事件過程： Private Sub Form_Click( ) result = 1 For i = 1 To 6 Step 3 result = result * i Next i MsgBox result End Sub 打開窗體運行后，單擊窗體，則消息框的輸出內容是（ ）。 A）1 B）4 C）15 D）120 解析： 語句result = result * i是進行循環(huán)變量的累乘。由For語句的功能可知：進行累乘的i值只有兩個，即：1和4。 答案：B,32、窗體中有命令按鈕command32,其Click事件代碼如下。該事件的完整功能是：接收從鍵盤輸入的10個大于0的整數(shù)，找出其中的最大值和對應的輸入位置。 Private Sub Command32_Click( ) max = 0 max_n = 0 For i = 1 To 10 num = Val( InputBox(“請輸入第“ & i & “個大于0的整數(shù):“ ) ) If _ Then max = num max_n = i End if Next i MsgBox( “最大值為第“ & max_n & “個輸入的“ & max ) End Sub 程序空白處應該填入的表達式是（ ）。 A）num i B）i max D）num max,答案：C,初始化最大值max及其位置,通過循環(huán)將輸入值賦于變量num,符合某條件時將num的值賦于最大值max,33、若有如下SUB過程： Sub sfun( x As single , y As single ) t = x x = t / y y = t mod y End Sub 在窗體中命令按鈕Command33的對應的事件代碼如下： Private Sub Command33_Click( ) Dim a As single Dim b As single a = 5 : b = 4 Call sfun( a , b ) MsgBox a & Chr(10) + Chr(13) & b End Sub 運行窗體后并單擊命令按鈕，消息框中輸出的內容分別為： A）1和1 B）1.25和1 C）1.25和4 D）5和4,解析： 調用sfun過程時，由形參x、y接收a和b的值。因為x、y為單精度浮點數(shù)（默認2位小數(shù)），所以： t = 5 x = 5 / 4 = 1.25 y = 5 % 4 = 1 且是地址傳遞，所以a和b的值分別為：1.25和1 答案：B,34、運行下列程序，顯示的結果是（ ）。 Private Sub Command34_Click() i = 0 Do i = i + 1 Loop While i 10 MsgBox i End Sub A）0 B）1 C）10 D）11 解析： 這是一個Do Loop While循環(huán)結構，只有當條件表達式i 10為Flase時才退出循環(huán)。MsgBox i是顯示退出循環(huán)后i的值。 答案：C,循環(huán)結構語句： Do While Loop Do Until Loop Do Loop While Do Loop Until For Next Exit Do,35、運行下列程序，在立即窗口顯示的結果是（ ）。 Private Sub Command0_Click( ) Dim i As Integer , j As Integer For i = 2 To 10 For j = 2 To i / 2 If i Mod j = 0 Then Exit For Next j If j sqr( i ) Then Debug.Print i Next i End Sub A）1 5 7 9 B）4 6 8 C）3 5 7 9 D）2 3 5 7 答案：D,i的值將分別取2、3、10,i值為2和3時，j循環(huán)不可能進行,進入循環(huán)后，一旦i是j的倍數(shù)，退出循環(huán),退出j循環(huán)后，符合此條件將顯示i的值,退出j循環(huán)時，i和j的值： i j 2 2 3 2 4 2 5 3 6 2 7 4 8 2 9 3 10 2 以上數(shù)據(jù)中，符合顯示條件的i值，則為： 2、3、5、7,10、下列程序段的功能是求1到100的累加和。請在空白處填入適當?shù)恼Z句，使程序完成指定的功能。 Dim s As Integer , m As Integer s = 0 m = 1 Do While _ s = s + m m = m + 1 Loop 解析： s是m的累加和；由Do While控制m的取值范圍。 答案：m = 100 或 m 101,填空題,11、下列程序的功能是計算數(shù)列：1 - 1/2 + 1/3 - 1/4 + 前20項之和。請在空白處填入適當?shù)恼Z句，使程序可以完成指定的功能。 Private Sub Command1_click( ) Pim i As Integer , s As Single , f As Integer s = 0 : f = 1 For i = 1 To 20 s = s + f / i f = _ Next i Debug.Print “1 - 1 / 2 + 1 / 3 - 1 / 4 + = “ ; s End Sub 解析： 數(shù)列的分母為i；奇數(shù)項為正，偶數(shù)項為負，即由f控制其正負。 答案：- f 或 ( - 1 ) * f 或 ( - 1 ) i,12、有一個標題為“登錄”的用戶登錄窗體，窗體上有兩個標簽，標題分別為“用戶名：”和“密碼”，用于輸入用戶名的文本框名為“UserName”，用于輸入密碼的文本框名為“UserPassword”，用于進行倒計時顯示的文本框名為“Tnum”，窗體上有一個標題為“確認”的按鈕名為“OK”，用于輸入完用戶名和密碼后單擊此按鈕確認。 輸入用戶名和密碼，如用戶名或密碼錯誤，則給出提示信息：如正確，則顯示“歡迎使用！”信息，要求整個登錄過程要在30秒中完成，如果超過30秒還沒有完成正確的登錄操作，則程序給出提示自動終止整個登錄過程。 請在程序空白處填入適當?shù)恼Z句，使程序完成指定的功能。,Option Compare Database Dim second As Integer Private Sub Form_Open( Cancel As Integer ) second = 0 End Sub Private Sub Form_Timer( ) If second 30 Then Msgbox “請在30秒中登錄“ , vbcrtical , “警告“ Docmd.Close Else Me!Tnum = 30 - second 倒計時顯示 End if second = _ End Sub 答案：second + 1,登錄時間為30秒，文本框Tnum顯示剩余的時間，即：30、29、 。,以下程序是窗體的Timer事件程序,Private Sub Ok_Click( ) If Me.UserName “123“ Or Me.UserPassword “455“ Then MsgBox “錯誤!“ + “您還有“ & 30-sencond & “秒“ , vbcritical , “提示“ Else Me.TimerInterval = _ 終止Timer事件繼續(xù)發(fā)生 MsgBox “歡迎使用!“ , vbInformation , “成功“ DoCmd.Close End if End Sub 答案：0,以下程序由If Else End If結構進行密碼的確認。,密碼輸入正確后即停止窗體Timer事件的執(zhí)行。窗體TimerInterval屬性決定了Timer事件發(fā)生的頻率（單位為毫秒）；當TimerInterval屬性為0時，終止窗體Timer事件的發(fā)生。,13、數(shù)據(jù)庫中有“平時成績表”，包括“學號”、“姓名”、“平時作業(yè)”、“小測驗”、“期中考試”、“平時成績”和“能否考試”等字段，其中： 平時成績=平時作業(yè)50%小測試10%期中成績40% 如果學生平時成績大于等于50分，則可以參加期末考試（“能否考試”字段為真），否則學生不能參加期末考試。 下面的程序按照上述要求計算每名學生的平時成績并確定是否能夠參加期末考試，請在空白處填入適當?shù)恼Z句，使程序可以完成所需要的功能。,Private Sub Command0_Click( ) Dim db As DAO.database Dim rs As DAO.Recordset Dim pszy As DAO.Field , xcy As DAO.Field Dim qzke As DAO.Field Dim ps As DAO.Field , ks As DAO.Field Set db = currentDb Set rs = db.OpenRecordset ( “平時成績表“ ) Set pszy = rs.Fields( “平時作業(yè)“ ) Set xcy = rs.Fields( “小測驗“ ) Set qzks = rs.Fields( “期中考試“ ) Set ps = rs.Fields ( “平時成績“ ) Set ks = rs.Fields( “能否考試“ ),Do While Not rs.EOF Rs.Edit ps = _ If ps = 60 Then ks = True Else ks = False End if rs. _ rs.MoveNext Loop rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub,pszy * 0.5 + xcy * 0.1 + qzks * 0.4,UpDate,平時成績的計算,更新表中的記錄,全國計算機等級考試 2011年3月二級試題,29、表達式“ B = INT( A + 0.5 ) “的功能是（ ）。 A）將變量A保留小數(shù)點后1位 B）將變量A四舍五入取整 C）將變量A保留小數(shù)點后5位 D）舍去變量A的小數(shù)部分 解析： INT函數(shù)是向下取整，不進行四舍五入運算。 答案：B,選擇題,30、VBA語句“ Dim NewArray(10) As Integer “的含義是（ ）。 A）定義10個整型數(shù)構成的數(shù)組NewArray B）定義11個整型數(shù)構成的數(shù)組NewArray C）定義1個值為整型數(shù)的變量NewArray(10) D）定義1個值為10的變量NewArray 解析： 數(shù)組定義時，如果不作說明，其下標是從0開始的。 要改變數(shù)組的下標下界可以是： （1）使用To選項指明下界值 （2）Option Base 1：設置數(shù)組的默認下標 Option Base 0：語句的默認形式 答案：B,31、運行下列程序段，結果是（ ）。 For m = 10 To 1 Step 0 k = k + 3 Next m A）形成死循環(huán) B）循環(huán)體不執(zhí)行即結束循環(huán) C）出現(xiàn)語法錯誤 D）循環(huán)體執(zhí)行一次后結束循環(huán) 解析： 雖然For語句中的步長為0，但步長僅在循環(huán)完成后才考慮的量；由于終值小于初值，且步長不為負，所以此循環(huán)不可能進行。 如果終值不小于初值，則形成死循環(huán)。 答案：B,32、運行下列程序，結果是（ ）。 Private Sub Command32_Click（） f0 =1 : f1 =1 : k =1 Do While k = 5 f = f0 + f1 f0 = f1 f1 = f k = k + 1 Loop MsgBox “ f = “ & f End Sub A）f = 5 B）f = 7 C）f = 8 D）f = 13 解析： 此循環(huán)只進行了5次，每循環(huán)一次將改變f、f0和f1的值。可以列出每次循環(huán)后f、f0和f1的值。 答案：D,33、有如下事件程序，運行該程序后輸出結果是（ ）。 Private Sub Command33_Click（） Dim x As Integer , y As Integer x = 1 : y = 0 Do Until y = 25 y = y + x * x x = x + 1 Loop MsgBox “ x = “ & x & “ , y = “ & y End Sub A）x = 1 , y=0 B）x = 4 , y = 25 C）x = 5 , y = 30 D）輸出其他結果 解析： Do Until循環(huán)結構是條件表達式為False 時，進入循環(huán)；條件表達式為True時，退出循環(huán)。 答案：A,34、下列程序的功能是計算 Sum = 1 + ( 1 + 3 ) + ( 1 + 3 + 5 ) + + ( 1 + 3 + 5 + + 39 ) Private Sub Command34_Click（） t = 0 m = 1 sum = 0 Do t = t + m sum = sum + t m = _ Loop While m = 39 MsgBox “ Sum = “ & sum End Sub 為保證程序正確完成上述功能，空白處填入的語句是（ ）。 A）m + 1 B）m + 2 C）t + 1 D）t + 2 答案：B,解析： t是數(shù)據(jù)項。分析數(shù)列可知：數(shù)列的后一項比前一項多個m值 m是奇數(shù)，分別為1、3、5、,35、下列程序的功能是返回當前窗體的記錄集（ ）。 Sub GetRecNum（） Dim rs As Object Set rs = _ MsgBox rs.RecordCount End Sub 為保證程序輸出記錄集（窗體記錄源）的記錄數(shù)，空白處應填入的語句是 A）Recordset B）Me.Recordset C）RecordSource D）Me.RecordSource 解析： Me為當前窗體；窗體的記錄源由Recordset屬性來設置 因此，當前窗體的記錄源用Me.Recordset表示 rs是對象變量 Set語句是將當前窗體的記錄集對象賦給rs對象 RecordSourse屬性指定數(shù)據(jù)源，RecordSourse = 數(shù)據(jù)源 答案：B,10、運行下列程序，輸入如下兩行： Hi , I am here. 彈出的窗體中的顯示結果是 _ 。 Private Sub Command11_Click( ) Dim abc As String , sum As String sum = “ “ Do abc = InputBox( “輸入abc“ ) If Right( abc , 1 ) = “ . “ Then Exit Do sum = sum + abc Loop MsgBox sum End Sub 答案：Hi ,填空題,解析： 本程序是變量abc重復接受從鍵盤輸入的字符串。如果輸入的字符串中最后一個字符是“.“，退出循環(huán)；否則將該字符串賦給變量sum,11、運行下列程序，窗體中顯示的結果是：x = _ 。 Dim x As Integer Private Sub Form_Load( ) x = 3 End Sub Private Sub Command11_Click( ) Static a As Integer Dim b As Integer b = x2 fun1 x , b fun1 x , b MsgBox “ x = “ & x End Sub Sub fun1( ByRef y As Integer , ByVal z As Integer ) y = y + z z = y - z End Sub,21,解析： 傳遞前： x = 3；b = 9 第1次傳遞： y = 12；z = 3 返回后： x = 12；b = 9 第2次傳遞： y = 21；z = 12 返回后： x = 21；b = 9,y地址傳遞，z值傳遞。,12、“秒表”窗體中有兩個按鈕（“開始/停止”按鈕bOk，“暫停/繼續(xù)”按鈕bPus）；一個顯示計時的標簽lNum；窗體的“計時器間隔”設為100，計時精度為0.1秒。 要求：打開窗體如圖1所示；第一次單擊“開始/停止”按鈕，從0開始滾動顯示計時（見圖2）；10秒時單擊“暫停/繼續(xù)”按鈕，顯示暫停（見圖3），但計時還在繼續(xù)；若20秒后再次單擊“暫停/繼續(xù)”按鈕，計時會從30秒開始繼續(xù)滾動顯示；第二次單擊“開始/停止”按鈕，計時停止，顯示最終時間（見圖4）。若再次單擊“開始/停止”按鈕可重新從0開始計時。,圖1 圖2,圖3 圖4,相關的事件程序如下。請在空白處填入適當?shù)恼Z句，使程序可以完成指定的功能。 Option Compare Database Dim flag , pause As Boolean Private Sub bOK_Click( ) flag = _ Me!bOK.Enabled = True Me!bPus.Enabled = flag End Sub Private Sub bPus_Click( ) pause = Not pause Me!bOK.Enabled = Not Me!bOK.Enabled End Sub,Not flag,解析： flag標志“開始/停止”按鈕的狀態(tài)；pause標志“暫停/繼續(xù)”按鈕的狀態(tài)。初始時flag和pause的值均為False；以后每按一次按鈕，其標志就取反一次。 flag和pause的值與計時有以下關系：,Private Sub Form_Open( Cancel As Integer ) flag = False pause = False Me!bOK.Enabled = True Me!bPus.Enabled = False End Sub,Private Sub Form_Timer( ) Static count AS Single If flag = True Then If pause = False Then Me!lNum.Caption = Round( count , 1 ) End If count = _ Else count = 0 End If End Sub,count + 0.1,解析： 由題要求可知，計時的精度為0.1秒,13、數(shù)據(jù)庫中有“學生成績表“，包括“姓名“、“平時成績“、“考試成績“和“期末總評“等字段，現(xiàn)要根據(jù)“平時成績“和“考試成績“對學生進行“期末總評“。規(guī)定：“平時成績“加“考試成績“大于等于85分，則期末總評為“優(yōu)“，“平時成績“加“考試成績“小于60分，則期末總評為“不及格“，其他情況期末總評為“合格“。 下面的程序按照上述要求計算每名學生的期末總評。請在空白處填入適當?shù)恼Z句，使程序可以完成指定的功能。,Private Sub Command0_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim pscj，kscj，qmzp As DAO.Field Dim count As Integer Set db=CurrentDb() Set rs=db.OpenRecordset(“學生成績表“) Set pscj=rs.Fields(“平時成績“) Set kscj=rs.Fields(“考試成績“) Set qmzp=rs.Fields(“期末總評“) count=0,Do While Not rs.EOF _ If pscj + kscj = 85 Then qmzp = “優(yōu)“ Else If pscj + kscj 60 Then qmzp = “不及格“ Else qmzp = “合格“ End If rs.Update count = count+1 _ Loop rs.Close db.Close MsgBox “學生人數(shù)：“ & count End Sub,rs.Edit,rs.MoveNext,解析： 由于需要修改數(shù)據(jù)庫中的數(shù)據(jù)，因此程序開始需要使用rs.Edit將記錄設置為可編輯狀態(tài)。 每訪問完一條記錄，要用rs.MoveNext將記錄指針移至下一條記錄。,全國計算機等級考試 2010年9月二級試題,28、若變量i的初值為8，則下列循環(huán)語句中循環(huán)體的執(zhí)行次數(shù)為（ ）。 Do While i = 17 i = i + 2 Loop A）3次 B）4次 C）5次 D）6次 解析： i的初值為8，每循環(huán)一次i的值加2，即10、12、14、16和18。第5次循環(huán)后i的值為18，不再循環(huán)。 答案：C,選擇題,29、InputBox函數(shù)的返回值類型是（ ）。 A）數(shù)值 B）字符串 C）變體 D）視輸入的數(shù)據(jù)而定 解析： InputBox函數(shù)的返回值類型是字符串 。 答案：B,30、下列能夠交換變量X和Y值的程序段是（ ）。 A）Y = X : X = Y B）Z = X : Y = Z : X =Y C）Z = X : X = Y : Y = Z D）Z = X : W = Y : Y = Z : X = Y 答案：C,31、窗體中有命令按鈕Commandl，事件過程如下： Public Function f ( x As Integer ) As Integer Dim y As Integer x = 20 y = 2 f = x * y End Function Private Sub Commandl_Click( ) Dim y As Integer Static x As Integer x = 10 y = 5 y = f( x ) Debug.Print x ; y End Sub 運行程序，單擊命令按鈕，立即窗口中顯示的內容是（ ）。 A）10 5 B）10 40 C）20 5 D）20 40,解析： 函數(shù)在調用時，參數(shù)的傳遞是按地址傳遞方式（默認值）進行，所以調用后x的值將發(fā)生改變，即為20。 答案：D,32、窗體中有命令按鈕Commandl和文本框Text1，事件過程如下： Function result( ByVal x As Integer ) As Boolean If x Mod 2 = 0 Then result = True Else result = False End If End Function Private Sub Commandl_Click( ) x = Val( InputBox( “請輸入一個整數(shù)“ ) ) If _ Then Text1= Str( x ) & “是偶數(shù)“ Else Text1= Str( x ) & “是奇數(shù)“ End If End Sub,解析： 函數(shù)result的功能是判斷x是奇數(shù)還是偶數(shù)。如果是偶數(shù)，則返回True；是奇數(shù)，則返回False。 result函數(shù)的返回值若為True，文本框顯示“是偶數(shù)”；若為False，則顯示“是奇數(shù)”。,運行程序，單擊命令按鈕，輸入19，在Text1中會顯示“19是奇數(shù)”。那么在程序的空白處應填寫（ ）。 A）result( x ) = “偶數(shù)“ B）result( x ) C）resuIt( x ) = “奇數(shù)“ D）NOT result( x ) 答案：B,33、窗體中有命令按鈕Commandl和文本框Textl，對應的事件代碼如下： Private Sub Commandl_Click( ) For i = 1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next i Text1.Value = Str( x ) End Sub 運行以上事件過程，文本框中的輸出是（ ）。 A）6 B）12 C）18 D）21 答案：D,解析： 本題有三重循環(huán)。但在第一重循環(huán)中x的初值總是3。 在第二和第三重循環(huán)中，每循環(huán)一次，x的值增加3。 第二和第三重循環(huán)共進行了32次，即x的值增加了6次，所以x最后值為：3 + 36 = 21。,34、窗體中有命令按鈕run34，對應的事件代碼如下： Private Sub run34_Enter( ) Dim num As Integer , a As Integer , b As Integer , i As Integer For i = 1 To 10 num = InputBox( “請輸入數(shù)據(jù)：“ , “輸入“ ) If Int( num / 2 ) = num / 2 Then a = a + 1 Else b = b + 1 End If Next i MsgBox( “運行結果:a =“ & Str( a ) & “ , b =“ & Str( b ) ) End Sub,通過循環(huán)輸入10個數(shù)（變量名為num）,使用Int函數(shù)對輸入的數(shù)num進行判斷：如果是偶數(shù)，變量a加1；否則變量b加1,用MsgBox函數(shù)顯示a和b的值,運行以上事件過程，所完成的功能是（ ）。 A）對輸入的10個數(shù)據(jù)求累加和 B）對輸入的10個數(shù)據(jù)求各自的余數(shù)，然后再進行累加 C）對輸入的10個數(shù)據(jù)分別統(tǒng)計奇數(shù)和偶數(shù)的個數(shù) D）對輸入的10個數(shù)據(jù)分別統(tǒng)計整數(shù)和非整數(shù)的個數(shù) 答案：C,35、運行下列程序，輸入數(shù)據(jù)8 , 9 , 3 , 0后，窗體中顯示結果是（ ）。 Private Sub Form _Click( ) Dim sum As Intege , m As Integer sum = 0 Do m = InputBox( “輸入m“ ) sum = sum + m Loop Until m = 0 MsgBox sum End Sub A）0 B）17 C）20 D）21 答案：C,當最后一個數(shù)0輸入后退出循環(huán),對輸入的數(shù)進行累加計算,10、運行下列程序的功能是求方程：x2y2 =1000 的所有整數(shù)解。請在空白處填入適當?shù)恼Z句，使程序完成指定的功能。 Private Sub Commandl_Click( ) Dim x As Integer , y As Integer For x = -34 To 34 For y = -34 To 34 If _ Then Debug.Print x , y End If Next y Next x End Sub 答案：x2 + y2 = 1000 或 x * x + y * y = 1000,填空題,解析： 本程序采用從-34至34逐個試計算的方法來求方程的整數(shù)解。 程序使用雙重循環(huán)結構判斷x和y的平方和是否等于1000，若成立即打印x和y的值。,11、下列程序的功能是求算式：1 + 1 /2! + 1 / 3! + 1 / 4! + 前10項的和（其中n!的含義是n的階乘）。請在空白處填入適當?shù)恼Z句，使程序