實例說明
　　    以2002年春上機試卷06編程題為例
　　    根據X值計算：
　　
　　    n＝1，2，……
　　    要求：n項絕對值小于等于10-6為止。
　　    1、由于循環次數不確定，因此確定用Do循環結構并定義循環變量用n表示（初值1）；用戶輸入的值用x表示；通項用dblCos表示；累加值用sum表示，初值為0；
　　    2、分解通項式的組成
　　
　　    可以分解為三部分：
　　    可以表示為：（－1）^（n+1）
　　    可以表示為：x^（2*（n-1））
　　    比較復雜，難以直接表示
　　    3、由于步驟2中復雜， 此時考慮使用過程。
　　    于是定義過程，輸入值是n，返回值是
　　    于是有：
　　    private Function comp（n as long）as long
　　    dim I as long
　　    dim result as long
　　    result=1    ‘此處注意，由于是連乘，初值為1
　　    for I=1 to 2*（n-1）
　　    result=result*I
　　    next I
　　    comp=result
　　    End Function
　　    注意：由于是參數按地址傳遞，因此對于本題，實參的值不能在過程中被改變！（也是改錯題常考的地方！！）
　　    4、根據步驟1、2、3，寫出通項dblCos的表達式：
　　    dblCos=（－1）^（n+1）* x^（2*（n-1））/comp（n）
　　    5、根據精度要求知：
　　    If abs（dblCos）<=10^（-6） then exit do
　　    最后程序為：
　　    Private Sub Command1_Click（）
　　    Dim n As Long， dblCos As Double， x As Double
　　    x = Val（Text1.Text）
　　    n = 1
　　    Do
　　    dblCos = （-1） ^ （n + 1） * x ^ （2 * （n - 1）） / comp（n）
　　    If Abs（dblCos） <= 10 ^ （-6） Then Exit Do
　　    Sum = Sum + dblCos
　　    n = n + 1
　　    Loop
　　    Print Sum
　　    End Sub
　　    Private Function comp（n As Long） As Long
　　    Dim I As Long
　　    Dim result As Long
　　    result = 1  '此處注意，由于是連乘，初值為1
　　    For I = 1 To 2 * （n - 1）
　　    result = result * I
　　    Next I
　　    comp = result
　　    End Function
　　    注意：如果調試運行時死循環，可以按Ctrl＋Break中斷死循環，不需要重新啟動機器。（或者Ctrl+Scroll Lock）
　　    2、實戰練習
　　    1） 補充代碼（2003秋二（7））
　　    本程序的功能是求下面數列前n項之和。
　　    S（x，n）=x/2+2！*x^3/2*4+3！*x^5/2*4*6+……+n！*x^2n-1/2*4*6……2n
　　    Option Explicit
　　    Private Sub Command1_Click（）
　　    Dim x As Single，s As Single
　　    Dim n As Integer，i As Integer
　　    x=InputBox（"輸入Ｘ："，＂求數列和＂，１）
　　    n=InputBox（"輸入Ｎ："，＂求數列和＂，１）
　　    For i=1 To n
　　    s=s+fun（x，i）
　　    Next i
　　    Label1.Caption= ＿（1）＿
　　    Text1=s
　　    End Sub
　　    Private Function fun（x As Single，n As Integer）As Single
　　    ＿＿（2）＿＿
　　    p=1
　　    For i=1 To n
　　    ＿＿（3）＿＿＿
　　    Next i
　　    fun=x^（2*n-1）*p
　　    End Function
　　    2） 編程題（2003春上機試卷03）
　　    按下列公式編寫求積分余弦函數值的程序。當通項絕對值小于10－5時停止計算。

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目