教学材料《ＶＢ导论》_5.2.pptVIP

Fori=1To10Forj=1To20… Nexti NextjFori=1To10Fori=1To20… Nexti Nexti下面是不正确的嵌套 出现交叉现象内外循环变量名称相同循环结构与选择结构的嵌套在循环结构中可以完整嵌套选择结构,即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要求整个循环结构必须完整地嵌套在一个分支内，一个循环结构不允许出现在两个或两个以上的分支内。（1）ForI=…………IF…Then……EndIF……NextI（6）IF…Then……ForI=…………EndIF……NextI（5）SelectCase……ForI=…………Case…………Case…………NextI………EndSelect（3）ForI=…………IF…Then……NextI……EndIF（2）IF…Then……ForI=…………NextI……EndIF（4）ForI=…………SelectCase…Case…………Case…………EndSelect……NextI×××循环嵌套的应用：穷举法解决实际问题假设母鸡每只3元,公鸡每只2元,小鸡每只0.5元.用100元买100只鸡,问能买多少只母鸡,多少只公鸡,多少只小鸡?Dimxasinteger,yasinteger,zasintegerPrint母鸡,公鸡,小鸡Forx=0To33Fory=0To50z=100-x-yIf3*x+2*y+0.5*z=100ThenPrintx,y,zEndIfNextyNextx例5-6摇奖程序。由机器自动随机产生1000个1-100之间的整数，第1000个随机数即为中奖人号码。PrivateSubCommand1_Click()Diminttranum%,i%,j!,a!RandomizeFori=1To1000intranum=Int(100*Rnd)+1Text1.Text=CStr(intranum)Text1.RefreshNextiText1.Text=CStr(intranum)EndSub例5-6PrivateSubCommand1_Click()Diminttranum%,i%,j!,a!RandomizeFori=1To1000intranum=Int(100*Rnd)+1a=0Forj=1To100000a=a+1NextjText1.Text=CStr(intranum)Text1.RefreshNextiText1.Text=CStr(intranum)EndSub例5-6—改进目的：延时总结第5章主要内容是循环结构和分支结构。重点掌握FO