1、让PPT的四则运算智能化的策略分析现如今，老师上课基本上都用PPt做课件，因为在网上随处都能搜索到相应的课件，根据自己的需要，稍作修改，就能达到自己想要的效果。它即省时省力，又能达到理想的教学效果。而数学老师几乎每节课都需要进行四则运算口算训练，大部分老师列出几题，学生回答。题目都是一样的，缺少机动与新鲜。一、思路分析怎样让每次运行的题目都不同，并且出题数值范围都在可控范围内，最好能自动评价是否正确，还能累计计算学生得分情况，以此来提高学生四则运算口算的兴趣。更难点，还能自动倒计时，设置倒计时时间，到时自动提醒时间到，停止答题。二、解决问题策略设置一个按钮，名称为“出题，点击该按钮，随机生成2
2、个数字，用函数控制生成数的范围。定义一个全局变量(daan),用于反馈题目，定义二个全局变量统计答题过程中正确题(zq)与错误题(cw)oPublicdaan,zq,cwAsIntegerPrivateSubCommandButtonl_Click()TextBox_srda.Text=TextBoxJk.Text=,，清空上次输入的答案精空上次答题反馈的信息Dimshul,ShU2AsInteger定义2个变量，产生2个数DimiASString，结合ComboBox选择不同算式i=ComboBoxl.TextCommandButton2.EnabIed=TrueCommandButtonl
3、EnabIed=FaIse,CommandButton2按钮可用CommandButtonl按钮不可用CommandButtonl.BackColor=&HCOCOFFCommandButtonl底色变淡CommandButton2.BackColor=&HC5&CommandButton2底色变红SelectCaseiCasels=加法”shul=lnt(Rnd*100)shu2=lnt(Rnd*100)，加法数1的最大值，可根据需要调整加法数2的最大值，可根据需要调整TextBox_tni=shul&+&shu2daan=shul+shu2Casels=“减法”x：shul=lnt(Rn
4、d*100)shu2=lnt(Rnd*100)，减法数1的最大值，可根据需要调整，减法数1的最大值，可根据需要调整，保证数1大于数2,否则会出现负Ifshulshu2ThenGoTox值TextBoxJm=shul&-&shu2daan=shul-shu2Casels=乘法”shul=lnt(Rnd*20)，乘法数1的最大值，可根据需要调整，乘法数2的最大值，可根据需要调整shu2=lnt(Rnd*20)TextBox_tm=shul&x&shu2daan=shul*shu2Casels=除法”y：shul=lnt(Rnd*20)shu2=lnt(Rnd*10)，除法数1的最大值，可根据需要调
5、整除法数2的最大值，可根据需要调整，保证除数不为零Ifshu2=0ThenGoToyTextBox_tm=shul*shu2&shu2daan=shulEndSelectEndSub设置一个文本框(TeXtBoX_tm),用于接收点击按钮生成的题目，再设置一个文本框用于输入该题答案。按钮CommandButtonl和按钮CommandButtonZ的交替可用与不可用，是为了防止连续点击，造成累计信息的错误。再设置一个按钮，名称为“确认，点击该按钮，把输入的得数与软件计算的得数进行比对，并根据答题的正确与否做出反馈。PrivateSubCommandButton2_Click()CommandB
6、uttonl.BackColor=&HC5&CommandButtonl底色变红CommandButtonl-EnabIed=TrueDimsrAsIntegerCommandButtonl按钮可用sr=Val(TextBox_srda.Text)Ifsr=daanThen,Val将文本数字转换为纯数字。TeXtBOx_fk.Text=正确，你真棒!”&Chr(13)&”请继续努力！zq=zq+lElseTeXtBox_fk.Text=错误，请加油！”&Chr(13)&”下次可要算仔细了！cw=cw+1EndIf1.abelLCaPtion=共计算”&zq+cw&”题，其中正确“&zq&”题，
7、错误“&cw&题，正确率”&lnt(zq/(zq+cw)*：Ioo)CommandButton2.EnabIed=FaIseCommandButton2按钮不可用CommandButton2.BackColor=&HC0C0FFCommandButton2底色变淡EndSub以上用Label反馈学生的答题情况。再添加一个按钮，用于更换人答题时，重新开始计数。PrivateSubCommandButton3_Click()CommandButtonl.EnabIed=TrueCommandBUttonLBaCkColOr=&HC5&红色LabeiI.Caption=开始计数”TextBox_tm.Text=请准备好!zq=Ocw=0EndSub开始先选择类别乘裱二口请准备好！BR开始先选择类别乘法出题14X10140正碗.你真棒1用缗续努力！以上是让PPT的四则运算智能化的一点尝试。经实验，可以一用。
