多重循環(huán)與枚舉算法

1、枚舉算法與多重循環(huán)1一、 復(fù)習(xí)1.下面的程序段用于計(jì)算s=1*2+3*4+5*6+7*8+9*10則在程序的劃線處應(yīng)填上（ ）S=0For k=1 to 10 step _ s=s+k*(k+1)Next k(A) 0 (B) 1 (C) 2 (D) k22. 在窗體上畫一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過程:Private Sub Command1_Click() Dim n,m As Integer m=0 For n=1 to 20 if n Mod 30 then m=m+n3Next nText1.text=str(m)End Sub程序運(yùn)行后，如果單擊命令按鈕，

2、則文本框Text1中顯示的內(nèi)容是(A) 15 (B) 18 (C) 42 (D) 2433. 說出下面程序運(yùn)行后x的數(shù)值是 （）x=1Do While (x mod 80) or (x mod 60) x=x+1Loop1212244二、新課1. 單據(jù)問題： 一張單據(jù)上有一個(gè)5位數(shù)的編號(hào)，其百位數(shù)和十位數(shù)處已經(jīng)變得模糊不清，如圖所示。但是知道這個(gè)5位數(shù)是37或67的倍數(shù)?，F(xiàn)在要設(shè)計(jì)一個(gè)算法，找出所有滿足這些條件的5位數(shù)，并統(tǒng)計(jì)這些5位數(shù)的個(gè)數(shù)。5單據(jù)問題界面設(shè)計(jì) （程序預(yù)演）列表框控件list1按鈕控件command1窗體form16單據(jù)問題代碼Private Sub Command1_Cli

3、ck() Dim j, n, c As Integer c = 0 List1.Clear For j = _ To _ _ If _ Then List1.AddItem Str(n) c = c + 1 End If Next j List1.AddItem 總計(jì)有 + Str(c) + 個(gè)五位數(shù)End Sub7單據(jù)問題代碼Private Sub Command1_Click() Dim j, n, c As Integer c = 0 List1.Clear For j = 0 To 99 n = 25006 + j * 10 If n Mod 37 = 0 Or n Mod 67 =

4、0 Then List1.AddItem Str(n) c = c + 1 End If Next j List1.AddItem 總計(jì)有 + Str(c) + 個(gè)五位數(shù)End Sub8課堂任務(wù)完成單據(jù)問題的程序9雙重循環(huán)解決單據(jù)問題Private Sub Command1_Click() Dim i,j, n, c As Integer c = 0 List1.Clear For i=0 to 9 For j = 0 To 9 n = 25006 +i*100 +j * 10 If n Mod 37 = 0 Or n Mod 67 = 0 Then List1.AddItem Str(n)

5、c = c + 1 End If Next j next i List1.AddItem 總計(jì)有 + Str(c) + 個(gè)五位數(shù)End Sub10問題：下面程序運(yùn)行結(jié)束后變量s的值是多少？程序1S=0i=5For j=1 to iS=s+jNext j程序2S=0For i=1 to 5 For j=1 to i S=s+j Next jNext i112. 包裝問題 包裝600個(gè)變形金剛，要求是：（1）包裝的規(guī)格分別是：小盒（每合2個(gè)）、中盒（每合5個(gè)）、大盒（每合8個(gè)）；（2）每種規(guī)格的合數(shù)都不能是0。設(shè)計(jì)一個(gè)算法，輸出所有可能的包裝方案，并輸出包裝方案的個(gè)數(shù)。12變形金剛包裝問題代碼Private Sub Command1_Click() Dim x, y, z, c As Integer c = 0 List1.Clear For x = 1 To 293 For y = 1 To 118 For z = 1 To 74 If 2 * x + 5 * y + 8 * z = 600 Then List1.AddItem Str(x) + + Str(y) + + Str(z) c = c + 1 End If Next z Next y Next x Text1.Text = Str(c)End Sub小知識(shí)：循環(huán)內(nèi)嵌套循環(huán)