實(shí)例說明 以2002年春上機(jī)試卷06編程題為例
根據(jù)X值計(jì)算：
n＝1，2，……
要求：n項(xiàng)絕對(duì)值小于等于10-6為止。
1、由于循環(huán)次數(shù)不確定，因此確定用Do循環(huán)結(jié)構(gòu)并定義循環(huán)變量用n表示（初值1）；用戶輸入的值用x表示；通項(xiàng)用dblCos表示；累加值用sum表示，初值為0；
2、分解通項(xiàng)式的組成
可以分解為三部分：
可以表示為：（－1）^（n+1）
可以表示為：x^（2*（n-1））
比較復(fù)雜，難以直接表示
3、由于步驟2中
復(fù)雜， 此時(shí)考慮使用過程。
于是定義過程，輸入值是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
注意：由于是參數(shù)按地址傳遞，因此對(duì)于本題，實(shí)參的值不能在過程中被改變�。ㄒ彩歉腻e(cuò)題�？嫉牡胤剑。。�
4、根據(jù)步驟1、2、3，寫出通項(xiàng)dblCos的表達(dá)式：
dblCos=（－1）^（n+1）* x^（2*（n-1））/comp（n）
5、根據(jù)精度要求知：
If abs（dblCos）<=10^（-6） then exit do
最后程序?yàn)椋?
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
注意：如果調(diào)試運(yùn)行時(shí)死循環(huán)，可以按Ctrl＋Break中斷死循環(huán)，不需要重新啟動(dòng)機(jī)器。（或者Ctrl+Scroll Lock）
2、實(shí)戰(zhàn)練習(xí) 1） 補(bǔ)充代碼（2003秋二（7））
本程序的功能是求下面數(shù)列前n項(xiàng)之和。
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（"輸入Ｘ："，＂求數(shù)列和＂，１）
n=InputBox（"輸入Ｎ："，＂求數(shù)列和＂，１）
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春上機(jī)試卷03）
按下列公式編寫求積分余弦函數(shù)值的程序。當(dāng)通項(xiàng)絕對(duì)值小于10－5時(shí)停止計(jì)算。
希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇
更多信息請(qǐng)?jiān)L問：考試吧計(jì)算機(jī)等級(jí)考試欄目
