VBA+古老的乘法口訣

黃義成

【摘要】VBA生成乘法口訣，快速準(zhǔn)確；自動(dòng)指讀，抓住學(xué)生眼球；動(dòng)畫(huà)顯示，讓古老的乘法口訣充滿生機(jī)。

【關(guān)鍵詞】 乘法口訣 VBA編程 指讀功能

【中圖分類號(hào)】G622 【文獻(xiàn)標(biāo)識(shí)碼】A 【文章編號(hào)】2095-3089（2017）03-0116-02

信息技術(shù)與小學(xué)教學(xué)的深度融合是當(dāng)今小學(xué)教學(xué)的熱點(diǎn)，同時(shí)也是難點(diǎn)。因?yàn)樾W(xué)老師是“萬(wàn)金油”，任務(wù)重，沒(méi)有更多產(chǎn)時(shí)間來(lái)深研信息技術(shù)。我用VBA寫(xiě)了一個(gè)小學(xué)教學(xué)應(yīng)用的例子，拋磚引玉，與同行們分享。

2011版《數(shù)學(xué)課程標(biāo)準(zhǔn)》明確指出：“能熟練地口算20以內(nèi)的加減法和表內(nèi)乘除法。”小學(xué)二年級(jí)要求熟練掌握乘法口訣。特別是“熟練”，對(duì)小學(xué)生來(lái)說(shuō)，是個(gè)艱巨的任務(wù)。要熟練掌握乘法口訣，讀背是不可少的環(huán)節(jié)，快讀快背就是不二法寶。

編寫(xiě)以下代碼快速生成乘法口訣，同時(shí)實(shí)現(xiàn)指讀功能。打開(kāi)excel，按“ALT+F11”打開(kāi)VBA編輯器，插入“模塊”，復(fù)制代碼。運(yùn)行“乘法口訣”過(guò)程即可生成標(biāo)準(zhǔn)的乘法口訣。運(yùn)行“指讀”過(guò)程，就按照您給出的速度進(jìn)行自動(dòng)指讀，實(shí)現(xiàn)教學(xué)的自動(dòng)化。

Public Declare Sub Sleep Lib "kernel32" （ByVal d&）API函數(shù)sleep的聲明

Public x As Byte， y As Byte，s， n&定義公有變量

Sub 指讀（）

n = InputBox（“請(qǐng)輸入毫秒數(shù)”， “口訣指讀器”，“1000”）

For y = 1 To 9： For x = y To 9用API函數(shù)sleep達(dá)到調(diào)速指讀的效果

Cells（x， y）.Select： Sleep n： DoEvents

Next： Next： End Sub

Sub 乘法口訣（）

s = Split（“一，二，三，四，五，六，七，八，九”， “，”）用數(shù)組s存放中文數(shù)字

For y = 1 To 9： For x = y To 9

If x * y < 10 Thenif函數(shù)控制漢語(yǔ)乘法口訣的準(zhǔn)確生成

Cells（x， y）.Value = s（y - 1） & s（x - 1） & “得” & s（x * y - 1）

ElseIf x * y Mod 10 = 0 Then

Cells（x， y）.Value = s（y - 1） & s（x - 1） & s（Int（x * y / 10） - 1） & "十"

ElseIf x * y > 10 And x * y < 20 Then

Cells（x， y）.Value = s（y - 1） & s（x - 1） & "十" & s（（x * y Mod 10） - 1）

Else

Cells（x， y）.Value = s（y - 1） & s（x - 1） & s（Int（x * y / 10） - 1） & “十” & s（（x * y Mod 10） - 1）

End If： Next： Next：End Sub

在指讀的過(guò)程中，口訣字體放大效果用以下代碼實(shí)現(xiàn)。在ThisWorkbook中，復(fù)制以下代碼，添加“選擇單元格”事件。

Private Sub Workbook_SheetSelectionChange（ByVal Sh As Object， ByVal Target As Range）

With Application.Cells

.RowHeight = 20： .ColumnWidth = 20： .FormatConditions.Delete： .Font.Size = 20

End With： With Target

.RowHeight = 65： .ColumnWidth = 57： .Font.Size = 60

With .FormatConditions

.Delete： .Add xlExpression， ， True： .Item（1）.Interior.ColorIndex = 33

End With： End With： End Sub

當(dāng)指到那一句口訣，字體變大，底紋變色，動(dòng)畫(huà)般跳躍，牢牢抓住學(xué)生的眼球。用VBA還能編程寫(xiě)出很多在教學(xué)上有用的程序，比如隨機(jī)出題，給出正確答案。 “信息技術(shù)+”大有可為，讓我們一起努力吧！

參考文獻(xiàn)：

[1]《office VBA從新手到高手》，人民郵電出版社，2015年3月1日版.

[2]《數(shù)學(xué)課程標(biāo)準(zhǔn)》，北京師范大學(xué)出版社，2011版.