多重循環與枚舉算法第1頁，課件共17頁，創作于2023年2月一、復習1.下面的程序段用于計算s=1*2+3*4+5*6+7*8+9*10則在程序的劃線處應填上（）S=0Fork=1to10step_____s=s+k*(k+1)Nextk(A)0(B)1(C)2(D)k第2頁，課件共17頁，創作于2023年2月2.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click()Dimn,mAsIntegerm=0Forn=1to20ifnMod3<>0thenm=m+n\3NextnText1.text=str(m)EndSub程序運行后，如果單擊命令按鈕，則文本框Text1中顯示的內容是(A)15(B)18(C)42(D)24第3頁，課件共17頁，創作于2023年2月3.說出下面程序運行后x的數值是（）x=1DoWhile(xmod8<>0)or(xmod6<>0)x=x+1Loop121224第4頁，課件共17頁，創作于2023年2月二、新課1.單據問題：一張單據上有一個5位數的編號，其百位數和十位數處已經變得模糊不清，如圖所示。但是知道這個5位數是37或67的倍數?，F在要設計一個算法，找出所有滿足這些條件的5位數，并統計這些5位數的個數。第5頁，課件共17頁，創作于2023年2月單據問題界面設計（程序預演）列表框控件list1按鈕控件command1窗體form1第6頁，課件共17頁，創作于2023年2月第7頁，課件共17頁，創作于2023年2月單據問題代碼PrivateSubCommand1_Click()Dimj,n,cAsIntegerc=0List1.ClearForj=___To________________________If________________________ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"總計有"+Str(c)+"個五位數"EndSub第8頁，課件共17頁，創作于2023年2月單據問題代碼PrivateSubCommand1_Click()Dimj,n,cAsIntegerc=0List1.ClearForj=0To99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"總計有"+Str(c)+"個五位數"EndSub第9頁，課件共17頁，創作于2023年2月課堂任務完成單據問題的程序第10頁，課件共17頁，創作于2023年2月雙重循環解決單據問題PrivateSubCommand1_Click()Dimi,j,n,cAsIntegerc=0List1.ClearFori=0to9Forj=0To9n=25006+i*100+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjnextiList1.AddItem"總計有"+Str(c)+"個五位數"EndSub第11頁，課件共17頁，創作于2023年2月問題：下面程序運行結束后變量s的值是多少？程序1S=0i=5Forj=1toiS=s+jNextj程序2S=0Fori=1to5Forj=1toiS=s+jNextjNexti第12頁，課件共17頁，創作于2023年2月2.包裝問題包裝600個變形金剛，要求是：（1）包裝的規格分別是：小盒（每合2個）、中盒（每合5個）、大盒（每合8個）；（2）每種規格的合數都不能是0。設計一個算法，輸出所有可能的包裝方案，并輸出包裝方案的個數。第13頁，課件共17頁，創作于2023年2月第14頁，課件共17頁，創作于2023年2月變形金剛包裝問題代碼PrivateSubCommand1_Click()Dimx,y,z,cAsIntegerc=0List1.ClearForx=1To293Fory=1To118Forz=1To74If2*x+5*y+8*z=600ThenList1.AddItemStr(x)+""+Str(y)+""+Str(z)c=c+1EndIfNextzNextyNextxText1.Text=Str(c)EndSub小知識：循環內嵌套循環的方式叫多重循環程序預演第15頁，課