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

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

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