枚举算法课堂实践数7游戏一、实践目标（1）理解枚举算法。（2）初步掌握枚举算法的程序实现。二、实践任务一1、界面设计如下所示：2、属性表如下：对象名属性名属性值Form1Caption数7游戏List1（用绘制而成）list空白Command1Caption查找3、观察流程图，如右所示。4、计算按钮单击事件代码如下：PrivateSubCommand1_Click()DimiAsIntegerFori=ToIfThenEndIfNextiEndSub5、运行调试程序选择菜单栏“运行”——“启动”命令，或按F5，运行程序，检查是否有错。运行效果如下图所示：6、保存文件选择菜单栏“文件”保存工程及生成“ΧΧΧ（你的名字）数7游戏.exe”并提交作业。7、思考假如希望运行结果如下图所示，程序该如何更改？提醒：定义变量c，用于统计个数适当位置添加计数语句：c=c+1适当位置添加输出语句：List1.AddItem"一共有"+Str(c)+"个数"三、拓展提升拓展1：找出两位正整数中要喊“过”的数。拓展2：小明提议增加难度，逢末位为“7”的数字也要喊“过”,请找出两位正整数中要喊“过”的数。操作提示：界面同上，只要修改相应代码即可。运行调试，生成“ΧΧΧ（你的名字）数7游戏拓展1.exe”和“ΧΧΧ（你的名字）数7游戏拓展2.exe”并提交作业。运行效果如下图所示：四、探索提升——大家来转换尝试着将上面的For语句转换为DoWhile语句，并调试程序，看看能否得到相同的结果？
VIP
