VBA編程及應(yīng)用基礎(chǔ)課件5 常用算法應(yīng)用

VBA程序控制結(jié)構(gòu)循環(huán)嵌套常用算法本講內(nèi)容循環(huán)嵌套迭代法窮舉法循環(huán)嵌套編寫一個宏，用于在工作表中輸出下圖所示的5個“*”？編寫一個宏，用于在工作表中輸出下圖所示的5行的5個“*”？循環(huán)嵌套一個循環(huán)結(jié)構(gòu)的循環(huán)體內(nèi)又包含另一個循環(huán)結(jié)構(gòu)即稱為循環(huán)的嵌套。內(nèi)嵌的循環(huán)中還可以再嵌套循環(huán)，這就是所謂的多重循環(huán)三種循環(huán)結(jié)構(gòu)，即For…Next、ForEach…Next和Do…Loop可以互相嵌套多重循環(huán)的執(zhí)行次數(shù)為各層相嵌的各單個循環(huán)次數(shù)的乘積多重循環(huán)不能出現(xiàn)交叉結(jié)構(gòu)循環(huán)嵌套實例1：編寫一個宏，用于在工作表中輸出下圖所示的字符“*”組成的金字塔圖形？循環(huán)嵌套實踐1：編寫一個宏，用于在工作表中輸出下圖所示的字符“*”組成的金字塔圖形？循環(huán)嵌套實踐2：編寫一個宏，用于在工作表中輸出下圖所示的字符“*”組成的菱形圖形？一個問題一個飼養(yǎng)場引進(jìn)一只剛出生的新品種兔子，這種兔子從出生的下一個月開始，每月新生一只兔子，新生的兔子也如此繁殖。如果所有的兔子都不死去，問到第12個月時，該飼養(yǎng)場共有兔子多少只？一個問題（續(xù)）遞推：T1=1T2=T1+T1T3=T2+T2……Tn=Tn-1+Tn-1歸納：Tn=Tn-1*2

(n>=2)迭代法迭代法也稱輾轉(zhuǎn)法，是一種不斷用變量的舊值遞推新值的過程例如累加：Sum=Sum+i累乘：T=T*i解決兔子問題迭代法實踐3：一只小猴某天摘了若干個桃子，當(dāng)天吃掉了一半多一個，第二天吃了剩下的一半多一個，以后每天都吃尚存的一半多一個，到第七天早上要吃時，猴子發(fā)現(xiàn)只剩下一個桃子了。請問小猴一開始摘的桃子總共有幾個？迭代法實踐4：已知斐波納契（Fibonacci）數(shù)列指的是這樣一個數(shù)列：1，1，2，3，5，8，13，21，……，即這個數(shù)列從第三項開始，每一項都等于前兩項之和。試編寫一個宏，在A1:A20區(qū)域中列出此數(shù)列的前20項？另一個問題中國古代約5-6世紀(jì)成書的《張邱建算經(jīng)》中記載了一算題：今有雞翁一，值錢伍；雞母一，值錢三；雞鶵三，值錢一。凡百錢買雞百只，問雞翁、母、鶵各幾何？另一個問題（續(xù)）兩個方程，三個未知量，即不定方程組，有多種解：窮舉法窮舉法又稱蠻力法，它的思路是列舉出所有可能的情況，逐個判斷哪些符合問題所設(shè)的條件，從而得到問題的解解決百雞問題窮舉法實例2：編寫一個宏，在A2單元格隨機(jī)生成一個[10,99]之間的整數(shù)，然后判斷此數(shù)是否為素數(shù)，并以“是”或“否”的結(jié)果輸出在B2單元格窮舉法素數(shù)又稱為質(zhì)數(shù)，是指在一個大于1的自然數(shù)中，除了1和此整數(shù)自身外，沒法被其他自然數(shù)整除的數(shù)。換句話說，只能被1和自身整除的自然數(shù)即為素數(shù)窮舉法實踐5：大約在1500年前，《孫子算經(jīng)》中記載了這樣一個算題：今有雉兔同籠，上有三十五頭，下有九十四足，問雉兔各幾何？新建一個工作簿，試編寫一個宏，在Sheet1工作表的A1單元格中輸出雞的數(shù)量，在B1單元格中輸出兔的數(shù)量？窮舉法實踐6：在“最大公約數(shù)”工作簿中編寫一個宏，先隨機(jī)生成兩個