课题：体育彩票6+1课时：1教学重点：0~9随机数的产生，即RND函数的使用。定时器（timer）控件的使用。控件的可用不可用（ENABLED）属性与控件可见不可见（VISIBLE）属性的使用。教学难点：在同一按钮上完成多项任务。教学目标：学生掌握定时器（timer）控件的运用。学生可以将程序进行扩充。有一定的审美观，可以对界面进行美观搭建。引入：给学生看完整的彩票程序并尝试运行该程序。（注：将六合彩2.exe可运行文件下发给学生）分析师生共同分析分析结论：上述界面所包含的控件有：Lable控件、Text控件、Command控件、Frame控件、菜单控件、单选按钮控件。号码滚动完成需要timer控件来完成，见以前作业。以前作业是用三个按钮来完成（开始、停止、清空），而如今我们就合成一个按钮（随机、确定、随机完成）。即本节课的难点请学生搭建界面注：右边的请输入选择彩票的组数先不用去搭建，先完成界面左边部分。四、复习上次产生一组体彩号码的程序回顾一个号码的产生，见以前作业五、在此基础上学生第一步先完成五个号码同时产生PrivateSubTimer1_Timer()Text1.Text=Int(Rnd*10)Text2.Text=Int(Rnd*10)Text3.Text=Int(Rnd*10)Text4.Text=Int(Rnd*10)Text5.Text=Int(Rnd*10)Text6.Text=Int(Rnd*10)Text7.Text=Int(Rnd*10)Text8.Text=Int(Rnd*10)Text9.Text=Int(Rnd*10)Text10.Text=Int(Rnd*10)Text11.Text=Int(Rnd*10)Text12.Text=Int(Rnd*10)Text13.Text=Int(Rnd*10)Text14.Text=Int(Rnd*10)Text15.Text=Int(Rnd*10)Text16.Text=Int(Rnd*10)Text17.Text=Int(Rnd*10)Text18.Text=Int(Rnd*10)Text19.Text=Int(Rnd*10)Text20.Text=Int(Rnd*10)Text21.Text=Int(Rnd*10)Text22.Text=Int(Rnd*10)Text23.Text=Int(Rnd*10)Text24.Text=Int(Rnd*10)Text25.Text=Int(Rnd*10)Text26.Text=Int(Rnd*10)Text27.Text=Int(Rnd*10)Text28.Text=Int(Rnd*10)Text29.Text=Int(Rnd*10)Text30.Text=Int(Rnd*10)EndSub解决“随机”、“确定”、“随机完成”按钮的制作一）、教师运用三个按钮来完成（开始、结束、清空）学生集体回答，在回答的基础进行教师演示。PrivateSubCommand3_Click()‘号码滚动开始Timer1.Enabled=TrueEndSubPrivateSubCommand4_Click()‘号码滚动停止Timer1.Enabled=FalseEndSubPrivateSubCommand5_Click()‘号码清空Text1.Text=””Text2.Text=””……EndSub二）用一个按钮来完成上述三项工作分析：第一次按下为号码滚动，第二次按下为号码停止并不可用。用一个变量来控制第几次按下a=a+1PrivateSubCommand3_Click()‘号码滚动开始A=a+1PrintaEndSub进行演示，发现都是1，为什么呢？因为变量a是局部变量，而不是全局变量。需定义DimaAsInteger再次进行演示，可以计数。在上述基础上学生进行尝试编程，教师进行巡视答疑。在上述基础上，教师给出相应的参考答案，如下所示：PrivateSubCommand2_Click()a=a+1Ifa=1ThenTimer1.Enabled=TrueCommand2.Caption="确定"EndIfIfa=2ThenTimer1.Enabled=FalseCommand2.Caption="随机完成"Command2.Enabled=FalseText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseTe