4.雙擊“開始計算”命令按鈕，進入程式碼編輯視窗，輸入如下程式碼：t1 = TimeFor x = 0 To 33For y = 0 To 50For z = 0 To 100If 3 * x + 2 * y + 0.5 * z = 100 _And x + y + z = 100 ThenPicture1.Print x, y, zEnd IfNext zNext yNext xt2 = TimePicture1.Print "方法一花去＂; _DateDiff("s", t1, t2); "秒時間＂;
1.一百元買一百隻雞：假定小雞每隻5角，公雞每隻2元，母雞每隻3元。現在有100元錢要求買100只雞，程式設計列出所有可能的購雞方案。
2.首先把問題轉化為數學問題，列出方程式。 設母雞、公雞、小雞各為x、y、z只，根據題目要求，列出方程為： x+y+y=100 3x+2y+0.5z=100。
4.雙擊“開始計算”命令按鈕，進入程式碼編輯視窗，輸入如下程式碼：t1 = TimeFor x = 0 To 33For y = 0 To 50For z = 0 To 100If 3 * x + 2 * y + 0.5 * z = 100 _And x + y + z = 100 ThenPicture1.Print x, y, zEnd IfNext zNext yNext xt2 = TimePicture1.Print "方法一花去＂; _DateDiff("s", t1, t2); "秒時間＂;
6.可以看出共有7種買雞方案可供選擇，程式中還加入計算機得出結果所花時間的程式碼，由於計算機運算速度很快，所以不到一秒就得出結果，所以顯示花去0秒時間。