- 1、本文档共98页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数组、列表框和组合框
5.1 数组的使用 5.2 控件数组 5.3 列表框与组合框 5.4 小结 5.1 数组的使用 【引例】 计算20个数据的平均值。程序运行时随机产生20个两位整数显示在上面标签中;单击 “平均值”按钮时,计算20个数据的平均值显示在下面的标签中。 操作步骤 1、界面设计 2、编写窗体的Load事件 2、编写窗体的Load事件 2、编写窗体的Load事件 【修改引例】 添加“大于平均值”按钮。单击 “大于平均值”按钮时,将20个数据中大于平均值的数据显示在下面标签中。 分析 单击“平均值”按钮后才能使用“大于平均值”按钮 定义窗体级变量 Dim s As Integer Dim a1 As Integer Dim a2 As Integer ? Dim a20 As Integer 编写窗体的Load事件 Private Sub Form_Load() End Sub 编写“平均值”按钮的单击事件 Private Sub cmdAve_Click() End Sub 编写“大于平均值”按钮的单击事件 Private Sub cmdLarge_Click() End Sub 思考:改进 20个变量的名字为a(1)、a(2)、……、a(20) 改写“大于平均值”按钮的单击事件 Private Sub cmdLarge_Click() End Sub 定义20个变量的方法 【实例5.1】 计算20个数据的总和与平均值。程序运行时随机产生20个两位整数显示在上面标签中;单击“求和”或“平均值”按钮时,计算20个数据的总和或平均值,显示在下面的标签中。 操作步骤 技能要点 数组的概念 数据类型相同的多个变量所构成的集合 所有的变量都使用相同的名字 — 数组名 不同的变量通过下标来区别 数组的定义 【实例5.2】数据的逆置。程序运行时随机产生10个两位整数显示在上面标签中;单击“逆置”按钮,将各数据按逆序重新放入原数组中并显示在下面标签中;单击“重置”按钮则重新产生10个两位整数显示在上面标签中,同时将下面标签清空。 操作步骤 【实例5.3】找数据中的最大、最小值。程序运行时随机产生10个两位整数显示在上面标签中;单击“最大”或“最小”按钮时,找出10个数据中的最大或最小值显示在下面标签中。 操作步骤 【实例5.4】数据排序。程序运行时,单击“产生数据” 按钮,随机产生20个0~100之间的整数显示在窗体上部;单击“排序” 按钮,将排序后的数据显示在窗体下部。 操作步骤 【实例5.5】在窗体上装载一幅图片,再加1个计时器控件。当程序运行时,计时器控件工作,窗体上不断飘落直径不等的白色圆,酷似下雪。 操作步骤 5.2 控件数组 【实例5.6】窗体中有1个按钮、5个标签、1个包含10个单选按钮的控件数组。程序运行时,单击“测试” 按钮,在标签中随机显示一个交通标识名,用户单击相应单选按钮后,程序提示结果。 操作步骤 (1)设计用户界面 添加控件数组的方法 (2)定义窗体级字符型数组 Dim tname(9) As String (3)编写窗体的装载事件过程代码 (4)编写“测试”按钮的单击事件过程代码 (5)编写单击单选按钮控件数组元素的代码 【实例5.7】窗体中有1个标签、1个包含10个单选按钮的控件数组。程序运行时,单击某一单选按钮,在标签中显示相应交通标识的名称。 操作步骤 (1)设计用户界面 (2)编写单击控件数组元素的代码 5.3列表框与组合框 5.3.1 列表框 5.3.2 组合框 5.3.1 列表框 【实例5.8】窗体中有1个标签,1个列表框和2个按钮。程序运行时列表框中显示“北京”、“上海”、“天津”和“重庆”;单击“添加”按钮,出现输入框,用户输入新城市名后随即将该城市名添加到列表框中;选中列表框中某项并单击“删除”按钮,从列表框中删除该城市名。 操作步骤 (1)在窗体中添加所需控件,列表框控件在工具 箱中的图标是 。 (2)编写窗体的装载事件过程代码 列表框的AddItem方法调用格式 列表框名.AddItem 字符串 [,索引号] (3)编写“添加”命令按钮的单击事件过程代码 (4)编写“删除”命令按钮的单击事件过程代码 RemoveItem方法调用格式 列表框名.RemoveItem 索引号 【实例5.9】程序运行时随机产生100个两位整数添加在左列表框中;单击左列表框中某项,该列表项移到右列表框中;单击“”按钮则将左列表框中所有项移到右列表框中;单击“还原”按钮,左列表框中显示原有100个整数,右列表框清空。
您可能关注的文档
- 教室观察:一项被遗漏的教师专业能力.doc
- 教师教分制度.doc
- 教师班级经营工作档案二下制表者王燕雀.doc
- 教师的教育研究方法.ppt
- 教师心理弹性效用与和谐管理.doc
- 教师立项申请表.doc
- 教师职业道德函授教育自学指导.doc
- 教师礼仪规范培训讲座.ppt
- 教师节感恩老师全攻略.doc
- 教师进修学校闫宝东先进个人材料.doc
- 湖南省张家界市(新版)2024小学语文苏教版小升初考试(提分卷)完整试卷(含答案).docx
- 宁夏中卫市(新版)2024小学语文人教版小升初摸底(强化卷)完整试卷(含答案).docx
- 福建省龙岩市(新版)2024小学语文苏教版小升初模拟(提分卷)完整试卷(含答案).docx
- 安徽省池州市(新版)2024小学语文统编版小升初核心能力评测(拓展卷)完整试卷(含答案).docx
- 广东省广州市(新版)2024小学语文人教版小升初测试(拓展卷)完整试卷(含答案).docx
- 四川省凉山彝族自治州(新版)2024小学语文统编版小升初质量检测(冲刺卷)完整试卷(含答案).docx
- 湖南省长沙市(新版)2024小学语文人教版小升初摸底(自测卷)完整试卷(含答案).docx
- 香港(新版)2024小学语文统编版小升初核心能力评测(培优卷)完整试卷(含答案).docx
- 云南省怒江傈僳族自治州(新版)2024小学语文苏教版小升初摸底(拓展卷)完整试卷(含答案).docx
- 河北省邯郸市(新版)2024小学语文统编版(五四制)小升初测试(备考卷)完整试卷(含答案).docx
文档评论(0)