【正文】 “ 枚舉法 ” ， 它是計算機解題常用的一種方法 。 其做法是：從所有可能解中 ， 逐個進行試驗 ， 若滿足條件 ， 就得到一個解 ， 否則不是 。 直到條件滿足或判別出無解為止 。 例 用 100元買 100只雞，母雞 3元 1只，小雞 1元 3只，問各應買多少只 ? 下面采用窮舉法來解此題。對于此題，令母雞為 x只，小雞為 y只，根據(jù)題意可知 y=100x，開始先讓 x初值為 1，以后逐次加 1，求 x為何值時，條件 3x+y/3=100成立。如果當 x達到 30時還不能使條件成立，則可以斷定此題無解。因為買的母雞數(shù)不可能超過 30，超過 30就不能買到 100只雞。 主頁 100元買 100只雞 Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 x If 3 * x + y / 3 = 100 Then Print “ 母雞只數(shù)為 :”。 x, Print “ 小雞只數(shù)為 :”。 y End If Next x End Sub 例 主頁 程序舉例 例 從鍵盤輸入一個正整數(shù)，然后把該數(shù)的每位數(shù)字按逆序輸出。例如：輸入 3485，則輸出 5843；輸入 100000，則輸出 000001。 以下采用 兩種 不同解法。 （ 1） 數(shù)值處理方法 ①通過表達式 x Mod 10取出該整數(shù) x的個位數(shù)并輸出，如對于x=3485,則取出 5；② 利用賦值語句 x = x \ 10截去 x的個位數(shù) , 如對于 x=3485,處理后 x=348；③重復執(zhí)行①和② ,直到 x10和最后輸出一次 x。 Dim x As Long x = Val(InputBox(請輸入一個正整數(shù) )) Do While x = 10 Print x Mod 10。 x = x \ 10 Loop 例 主頁 （ 2）字符串處理方法 把該整數(shù)作為一個數(shù)字字符串，從字符串后部往前逐個取出字符，即可實現(xiàn)按逆序輸出。 Dim x As String x = InputBox(請輸入一個正整數(shù) ) 39。把該數(shù)以字符串方式賦給變量 x For k = Len(x) To 1 Step 1 Print Mid(x, k, 1)。 39。從后部往前逐個取出字符并顯示 Next k 例 主頁 例 求解 s = 1! + 2! + 3! + … + 10!的值 采用兩種不同解法 （ 1）解法一：采用兩重循環(huán)，外循環(huán) 10次，每次循環(huán)計算一次階乘，把每次階乘值累加起來，即得求解結果。 Dim s As Long, t As Long s = 0 For j = 1 To 10 39。計算 10個階乘 t = 1 39。計算 1個階乘前，先賦初值 For k = 1 To j 39。計算 j!，需要循環(huán) j次 t = t * k 39。連乘 j次 Next k s = s + t 39。把每次計算得到的階乘值 t累加 Next j Print s 例 主頁 （ 2）解法二 這 10個階乘有一個特點，后一個階乘為上一個階乘再乘以一個數(shù)，如 2!=1!*2， 3!=2!*3， 4!=3!*4， … ， k!=(k1)!*k 。根據(jù)這一特點，程序只須采用單重循環(huán)就可以求解。 把該整數(shù)作為一個數(shù)字字符串，從字符串后部往前逐個取出字符，即可實現(xiàn)按逆序輸出。 Dim s As Long, t As Long s = 0 t = 1 For k = 1 To 10 39。循環(huán) 10次，每次求 1個階乘 t = t * k 39。求 k!，其值等于 (k1)!*k，即 t*k s = s + t 39。每次加入一個階乘值 t Next k Print s 例 主頁 (1)創(chuàng)建應用程序的用戶界面 (2)設置對象屬性 組合框的 Style屬性為 0， TabIndex(鍵序 )為 0 兩個標簽；四個命令按鈕； 一個文本框 Text1，用來顯示當前的選修課總課程數(shù) 例 編制程序，把一批課程名放入組合框中，再對組合框進行項目顯示、添加、刪除、全部刪除等操作 例 主頁 (3)編寫程序代碼 Private Sub Form_Load() 電子商務 網(wǎng)頁制作 Inter簡明教程 計算機網(wǎng)絡基礎 多媒體技術 = 39。置空值 = 39。表項個數(shù) End Sub Private Sub Command1_Click() 39?！碧砑印? If Len() 0 Then = End If = End Sub 主頁 Private Sub Command2_Click() ?“刪除” Dim ind As Integer ind = If ind 1 Then 39。1表示無表項 ind 39。刪除已選定的表項 = End If End Sub Private Sub Command3_Click() ?“全清” = End Sub Private Sub Command4_Click() End End Su