讓PPT的四則運算智能化的策略現(xiàn)如今，老師上課基本上都用ppt做課件，因為在網上隨搜索到相應的課件，根據自己的需要，稍作修改，就的效果。它即省時省力，又能達到理想的教學效果。每節(jié)課都需要進行四則運算口算訓練，大部分老師列答。題目都是一樣的，缺少機動一、思路分怎樣讓每次運行的題目都不同，并且出題數值范內，最好能自動評價是否正確，還能累計計算學生得提高學生四則運算口算的興趣。更難點，還能自動倒時時間，到時自動提醒時間到，停二、解決問題設置一個按鈕，名稱”，點擊該按鈕，2個數字用函數控制生成數的范圍。定義一個全局變daan），用于反饋題目定義二個全局變量統(tǒng)計答題過程中正確題zq）與錯誤題（cw）。Publicdaan，zq，cwAsIntePrivateSubCommandButton1_Click()TextBox_srda.Text=""TextBox_fk.Text=""'清空上次輸入的答案'清空上次答題反饋的信息Dimshu1，shu2AsInteger'定義2個變量，產生2個數DimiAsString'結合ComboBox選擇不同算式i=ComboBox1.TextCommandButton2.Enabled=TrueCommandButton1.Enabled=False'CommandButton2按鈕可用'CommandButton1按鈕不可用CommandButton1.BackColor=&HC0C0FF'CommandButton1底色變淡CommandButton2.BackColor=&HC5&'CommandButton2底色變紅SelectCaseiCaseIs="加法"shu1=Int(Rnd*10shu2=Int(Rnd*10'加法數1的最大值，可根據需要'加法數2的最大值，可根據需要調整TextBox_tm=shu1&"+"&shu2daan=shu1+shuCaseIs="減法"x：shu1=Int(Rnd*100)shu2=Int(Rnd*10'減法數1的最大值，可根據需要調'減法數1的最大值，可根據需'保證數1大于數2，否則會出現(xiàn)負Ifshu1<shu2ThenGoTox值TextBox_tm=shu1&"-"&shu2daan=shu1-shuCaseIs="乘法"shu1=Int(Rnd*20)'乘法數1的最大值，可根據需要調整'乘法數2的最大值，可根據需要調整shu2=Int(Rnd*20)TextBox_tm=shu1&"×"&shu2daan=shu1*shu2CaseIs="除法"y：shu1=Int(Rnd*20)shu2=Int(Rnd*10)'除法數1的最大值，可根據需要調整'除法數2的最大值，可根據需要'保證除數不為零Ifshu2=0ThenGoToyTextBox_tm=shu1*shu2&"÷"&daan=shuEndSelectEndSub設置一個文本框TextBox_t），用于接收點擊按鈕生成再設置一個文本框用于輸入該按鈕CommandButton1和按鈕CommandButton2的交替可用與不可用，是為了防止連續(xù)點擊，造成累計再設置一個按鈕，名”，點擊該按鈕，把輸軟件計算的得數進行比對，并根據答題的正確與PrivateSubCommandButton2_Click()CommandButton1.BackColor=&HC5&'CommandButton1底色變紅CommandButton1.Enabled=TrueDimsrAsInteger'CommandButton1按鈕可用sr=Val(TextBox_srda.TexIfsr=daanThe'Val將文本數字轉換為純TextBox_fk.Text="正確，你真棒！"&Chr(13)&"請繼續(xù)努力！"zq=zq+ElseTextBox_fk.Text="錯誤，請加油！"&Chr(13)&"下次可要算仔細了！"cw=cw+EndIfLabel1.Caption="共計算"&zq+cw&"題，其中正確"&zq&"題，錯誤"&cw&"題，正確率"&Int(zq/(zq+cw)*100)&"%."CommandButton2.Enabled=False'CommandButton2按鈕不可用CommandButton2.BackColor=&HC0C0FF'CommandButton2底色變淡EndSub以上用Label反饋學生的答題情再添加一個按鈕，用于更換人答題時，重PrivateSubCommandButton3_Click()CommandButton1.Enabled=TrueCommandButt