- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
(1)分析:判别条件为 (n Mod 14=0) And (n Mod 10=8) (2)创建应用程序的用户界面和设置对象属性 例5.12 设计一程序,找出三位数中能被14整除且个位数为8的自然数,把这些自然数显示在列表框中,其个数显示在标签中。 例5.12 第三十页,编辑于星期一:十五点 十分。 (3)编写程序代码 编写的“显示”按钮Click事件过程代码: Private Sub Command1_Click() ′“显示” List1.Clear For n = 100 To 999 If (n Mod 14 = 0) And (n Mod 10 = 8) Then List1.AddItem n End If Next n Label1.Caption = 符合条件的自然数的个数为: _ List1.ListCount End Sub 第三十一页,编辑于星期一:十五点 十分。 (1)创建应用程序的用户界面和设置对象属性 用户先在左列表框(List1)选择一个或多个选修课,当单击“显示”按钮时,在右列表框(List2)中将显示出用户选中的所有课程。单击“清除”按钮时,将清除右列表框中的内容 (2)编写程序代码 例5.13 设计一个选课程序 MultiSelect属性值为2 例5.13 第三十二页,编辑于星期一:十五点 十分。 Private Sub Form_Load() List1.AddItem 电子商务 List1.AddItem 网页制作 List1.AddItem Internet简明教程 List1.AddItem 计算机网络基础 List1.AddItem 多媒体技术“ End Sub Private Sub Command1_Click() 显示按钮单击事件 List2.Clear 清除列表框的内容 For i = 0 To List1.ListCount - 1 逐项判断 If List1.Selected(i) Then 真时为选定 List2.AddItem List1.List(i) End If Next i End Sub Private Sub Command2_Click() 清除按钮单击事件 List2.Clear End Sub 第三十三页,编辑于星期一:十五点 十分。 允许从已有的选项中进行选择,还允许输入列表中不包括的内容 列表框和文本框的组合 具有列表框和文本框的大部分属性和方法。独有的一些属性: (1)Style属性:该属性取值为0,1或2,分别决定了组合框的三种不同类型 下拉组合框(Dropdown Combo):允许选择或输入新数据 简单组合框(Simple Combo): 允许选择或输入新数据 下拉列表框(Dropdown List): 只允许选择,不能输入新数据 5.3.2 组合框 第三十四页,编辑于星期一:十五点 十分。 (2)Text属性:该属性是用户所选定项目的文本或直接从文本框输入的文本 第三十五页,编辑于星期一:十五点 十分。 (1)创建应用程序的用户界面和设置对象属性 窗体上含有Combo1,Combo2,Combo3三个组合框,其Style属性从左至右分别为0、1和2,即除了“内存”容量大小只能从列表中选择外,其余内容既可以从列表中选择,也可以由用户输入。 在属性窗口中输入相关数据 例5.14 在窗体上设置3个组合框,用于选择微机部分配置,
文档评论(0)