04-2-循环结构设计论述.ppt

下载文档 降价啦

0
0
约小于1千字
约 37页
2017-04-20 发布于湖北
举报
版权申诉
保障服务

04-2-循环结构设计论述.ppt

1、本文档共37页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

概念;For…Next语句;例求自然数之和;Do…Loop语句;前测型Do…Loop循环;例求平方和;Do…Loop语句;Do…Loop语句;后测型Do…Loop循环;例求最大公约数;While…Wend循环语句;循环出口语句;For…Next 语句;多重循环;例多重循环示例;循环的嵌套;For…Next 语句;列表框与组合框;列表框(ListBox);列表框(ListBox);例;列表框与组合框;列表框与组合框;列表框与组合框;列表框与组合框;列表框与组合框;列表框与组合框;列表框与组合框;组合框(ComboBox);列表框与组合框;◇编写事件代码 Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.AddItem Combo1.Text, 0 : Combo1.SelStart = 0 Combo1.SelLength = Len(Combo1.Text) End If If KeyAscii = 27 Then (按Esc) If Combo1.ListIndex -1 Then Combo1.RemoveItem Combo1.ListIndex End If End If End Sub Private Sub Command1_Click() Randomize :n = Combo1.ListCount a = Int(Rnd * n) : Combo1.ListIndex = a MsgBox “中奖的号码是: Chr(13) Combo1.Text, 0, 恭喜！ End Sub;列表框与组合框;列表框与组合框;算法举例;算法举例;算法举例;算法举例