高二下高教版可视化编程应用基础——Visual Basic 4.2.3 统计开奖号码和出现的次数 任务单

任务4.2-3 任务单 学号_____________ 姓名_______________ 【学习目标】 1.复习与Excel交互(读写数据)的基本操作，利用一维数组进行简单分类统计求和的操作方法 2.掌握二维数组定义及读写的基本操作方法，掌握利用选择法排序算法进行排序的基本操作方法 【学习记录】 任务名称 任务内容 复习任务1一维数组的定义（3分钟） 任务说明：（1分） 将下发的程序半成品复制到个人文件夹中并打开。增加按钮“统计”，用一维数组来进行读取E列（各位开奖号码之和）个数，并赋初值。填写数组的相关概念 提示：CommandTJ_Click()事件中定义一维数组aHM(0 To 63)，7位数，每位取值0－9，总和最大7*9＝63。回忆读取方法存入aHM数组中，理解0 To 63的含义。 数组是指 名字 下标的一组数据； 数组必须先定义后使用，默认下标从 开始。 定义64个元素的一维整型数组aHM： 操作可参考提供的演示视频。 复习任务2一维数组的分类统计（6分钟） 任务说明：（1分） 将文件夹中的“cp.xls”工作簿打开，指定工作表1为当前操作表。将E列出现的值次数存入一维数组aHM(0 To 63)中。 提示：分类统计。改进CommandTJ_Click()事件，判断如果单元格内容为空则读结束。利用aHM( i )=aHM( i )+1的形式进行统计求次数。注意运行时请保证原Excel文档关闭。 操作可参考提供的演示视频。 巩固任务 （2分钟） 任务说明：（1分） 将以上步骤通过VB设计界面与设置属性，制作参照图所示的界面。 在cp.xls文件增加两列，G和H列名分别为“和”和“出现次数”。 提示：完成程序中基本的Excel列增加。 任务1 应用二维数组改进分类统计 （7分钟） 任务说明：（2分） 改一维数组为二维数组aHM(0 To 63,0 To 1)，第一维存放和，第二维存放该和出现的次数。统计和出现的次数到aHM第二维中。 提示：改进CommandTJ_Click()事件，使用二维数组，并采用aHM( i ,1)=aHM( i ,1)+1形式分类求和。 操作可参考提供的演示视频。 任务2 按出现次数从高到低排序 （12分钟） 任务说明：（2分） 将二维数组aHM按出现次数从高到低排序，要求利用选择法排序。 提示：完善CommandTJ_Click()事件，双重循环，每1轮先假设第i个位置数据为当前最大，依次与后面每个比较，找出最大数与第i个位置互换，同时互换对应和值。i取值0 To 62（本题63个减1个位置即可） 操作可参考提供的演示视频。 任务3 排序结果存入Excel对应列 （5分钟） 任务说明：（2分） 将二维数组的第一、二维内容分别存入Excel当前工作表的G列与H列中。 提示：二维的两个维度采用循环分别保存。 操作可参考提供的演示视频。 任务4 显示过程的信息交互（3分钟） 任务说明：（1分） 补充调用xsxx过程，依次写入各事件需调用的位置，以实现各操作过程的实时控制。 提示：每一段交互内容通过参数s调用。 操作可参考提供的演示视频。 课后练习 1.试着完成任务4.2章节的课后习题（添加“销售排行”按钮，把当期的销售排行，显示在I列的单元格中） 2.继续添加我的微博cw2553945。近期会建立微视频库，我会发私信通知已收听我的学生。通过微云，我会发布相应的课外操作任务和学习资料。 机器使用情况 实训体会 自我评价 小组评价 对教学评价 1．讲课内容听懂了多少 A、全部 B、大部分 C、一部分 D、很少 （ ） 2．学好这门课有信心吗？ A、信心十足 B、有信心，但要努力 C、信心不足 D、没信心 （ ） 3．哪几个任务让你有收获？其中收获最大的是哪个？（写任务名称） 1．是否得到组内帮助？谁帮助了你？ 2．是否帮助了组内同学，帮助了谁？ 3．有没有获得其它帮助？ 1．你对这次课总体评价： A、很好 B、好 C、一般 D、很差 （ ） 2．喜欢教学内容吗？ A、喜欢 B、部分喜欢 C、不喜欢 （ ） 3．你能听懂老师的讲解吗？ A、能 B、部分能 C、不能 （ ） 4．其它建议 学科网（北京）股份有限公司 $