【正文】
Str(n) 39。文本框輸出總數(shù)End Sub教師小結(jié)得出線索二,還是猜不出謎語(yǔ),繼續(xù)完成線索三(二)教師呈現(xiàn)問(wèn)題三:百錢(qián)買(mǎi)百雞(解決線索三 13分鐘)學(xué)生思考探究教師請(qǐng)學(xué)生分析并回答問(wèn)題,即枚舉范圍和驗(yàn)證條件教師通過(guò)分析問(wèn)題后讓學(xué)生完成程序語(yǔ)言的操作并加以?xún)?yōu)化。問(wèn)題分析如下:公雞的只數(shù)a=1 to 100,母雞的只數(shù)b=1 to 100,小雞的只數(shù)c=100ab。必須滿足的條件是: a+b+c=100且5a+3b+c/3=100。用窮舉法,當(dāng)滿足雞數(shù)、錢(qián)數(shù)條件時(shí),輸出結(jié)果,再循環(huán)列舉,直至輸出所有的組合結(jié)果;程序中用For—Next語(yǔ)句 Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerFor a = 0 To 100 For b = 0 To 100 c = 100 a b If (a + b + c = 100) And (a * 5 + b * 3 + c /3 = 100) Then Str(a) amp。 Str(b) amp。 Str(c) End If Next bNext aEnd Sub 請(qǐng)學(xué)生填空并優(yōu)化上述程序?qū)W生講解優(yōu)化過(guò)程和原因教師小結(jié)得出總的答案學(xué)生小組簡(jiǎn)單游戲得出獲勝方三、教師總結(jié)3分鐘四、學(xué)生評(píng)價(jià)1分鐘