【正文】
小猴在某天摘桃若干個(gè) , 當(dāng)天吃掉一半多一個(gè);第二天吃了剩下的桃子的一半多一個(gè);以后每天都吃剩下桃子的一半多一個(gè), 到第 7天要吃時(shí)只剩下一個(gè) , 問(wèn)小猴共摘下了多少個(gè)桃子 ? 分析:這是一個(gè) “ 遞推 ” 問(wèn)題 , 先從最后一天推出倒數(shù)第二天的桃子 ,再?gòu)牡箶?shù)第二天的桃子推出倒數(shù)第三天的桃子 …… 。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值,并由新值代替舊值。 方法二:從三個(gè)未知數(shù)的關(guān)系,利用兩重循環(huán)來(lái)實(shí)現(xiàn)。 解決此類問(wèn)題采用“試湊法”,把每一種情況都考慮到。 現(xiàn)在有 100元錢要求買 100只雞 , 編程列出所有可能的購(gòu)雞方案 。 例 2: 百元買百雞問(wèn)題 。本例根據(jù)某項(xiàng)值的精度來(lái)控制循環(huán)的結(jié)束與否。 ? A) Select Case語(yǔ)句中的測(cè)試表達(dá)式可以是任何形式的表達(dá)式 ? B) Select Case語(yǔ)句中的測(cè)試表達(dá)式只能是數(shù)值表達(dá)式或字符串表達(dá)式 ? C)在執(zhí)行 Select Case語(yǔ)句時(shí),所有 Case子句均按出現(xiàn)的次序被順序執(zhí)行 ? D)如下 Select Case語(yǔ)句中的 Case表達(dá)式是錯(cuò)誤的 ? Select Case x ? Case 1 to 10 ? …… ? End Select 常用算法 算法是對(duì)某個(gè)問(wèn)題求解過(guò)程的描述 。 ? A) 123222 B) 321123 ? C) 345 D) 222123 ? 5. 有如下程序: ? Private Sub Command1_Click() ? Dim s as integer ? s=0 ? i=1 ? While i=100 ? s=s+i ? Wend ? End Sub ? 運(yùn)行后的輸出結(jié)果是 ( )。 習(xí)題講解 1. 在窗體中添加一個(gè)命令按鈕( Name屬性為 Command1),然后編寫(xiě)如下代碼: Private Sub Command1_Click() ? s = 0 ? For k = 1 To 3 ? If k = 1 Then ? x = 1 ? ElseIf k = 2 Then ? x = 2 ? ElseIf k = 3 Then ? x = 3 ? Else ? x = 4 ? End If ? Print x。 作用:退出某種控制結(jié)構(gòu)的執(zhí)行 。 標(biāo)號(hào)是一個(gè)字符序列,行號(hào)是一個(gè)數(shù)字序列。 其中 x決定了生成隨機(jī)數(shù)的方式。 For ii =1 To 10 For jj=1 To 20 … Next ii Next jj For ii =1 To 10 For ii=1 To 20 … Next ii Next ii For ii =1 To 10 For jj=1 To 20 … Next jj Next ii For ii =1 To 10 … Next ii For ii =1 To 10 … Next ii 對(duì)于循環(huán)的嵌套,要注意以下事項(xiàng): ?內(nèi)循環(huán)變量與外循環(huán)變量不能同名; ?外循環(huán)必須完