×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

@Calgary

九九乘法口诀表

workdonkey(驴无奈)

想给儿子打印九九口诀表，GOOGLE了半天也没找到，于是用WORD里的VBA现编了个，就几行代码，如下：

 

Sub CFKJ()

    ShowVisualBasicEditor = False

    Selection.Font.Size = 16

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

    With ActiveDocument

        .PageSetup.Orientation = wdOrientLandscape

        Selection.TypeText "九九乘法口诀表" & vbCr

        .Tables.Add Selection.Range, 9, 9

        .Tables(1).Rows.SetHeight 35, wdRowHeightExactly

        .Tables(1).Select

        Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter

        For j = 1 To 9

            For i = 1 To j

                If j < 9 Then .Tables(1).Cell(9 - j, 10 - i).Delete

                .Tables(1).Cell(j, i).Select

                Selection.TypeText i & " x " & j & IIf(i * j > 9, "   ", " 得 ") & i * j

            Next i

        Next j

    End With

End Sub

 

按以下步骤：1。打开一新文件 2。按ALT--F11  3。双击“ThisDocument”  4。PASTE 上面程序 5。按F5(运行程序)即得九九乘法口诀表.

 

 

九九乘法口诀表

1 x 1 得 1

 

1 x 2 得 2

2 x 2 得 4

 

1 x 3 得 3

2 x 3 得 6

3 x 3 得 9

 

1 x 4 得 4

2 x 4 得 8

3 x 4   12

4 x 4   16

 

1 x 5 得 5

2 x 5   10

3 x 5   15

4 x 5   20

5 x 5   25

 

1 x 6 得 6

2 x 6   12

3 x 6   18

4 x 6   24

5 x 6   30

6 x 6   36

 

1 x 7 得 7

2 x 7   14

3 x 7   21

4 x 7   28

5 x 7   35

6 x 7   42

7 x 7   49

 

1 x 8 得 8

2 x 8   16

3 x 8   24

4 x 8   32

5 x 8   40

6 x 8   48

7 x 8   56

8 x 8   64

 

1 x 9 得 9

2 x 9   18

3 x 9   27

4 x 9   36

5 x 9   45

6 x 9   54

7 x 9   63

8 x 9   72

9 x 9   81

 

(#3158398@0)
Last Updated: 2006-8-22
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 枫下家园 / 望子成龙 / 九九乘法口诀表 -workdonkey(驴无奈); 2006-8-22 {37029} (#3158398@0)

    想给儿子打印九九口诀表，GOOGLE了半天也没找到，于是用WORD里的VBA现编了个，就几行代码，如下：

     

    Sub CFKJ()

        ShowVisualBasicEditor = False

        Selection.Font.Size = 16

        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

        With ActiveDocument

            .PageSetup.Orientation = wdOrientLandscape

            Selection.TypeText "九九乘法口诀表" & vbCr

            .Tables.Add Selection.Range, 9, 9

            .Tables(1).Rows.SetHeight 35, wdRowHeightExactly

            .Tables(1).Select

            Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter

            For j = 1 To 9

                For i = 1 To j

                    If j < 9 Then .Tables(1).Cell(9 - j, 10 - i).Delete

                    .Tables(1).Cell(j, i).Select

                    Selection.TypeText i & " x " & j & IIf(i * j > 9, "   ", " 得 ") & i * j

                Next i

            Next j

        End With

    End Sub

     

    按以下步骤：1。打开一新文件 2。按ALT--F11  3。双击“ThisDocument”  4。PASTE 上面程序 5。按F5(运行程序)即得九九乘法口诀表.

     

     

    九九乘法口诀表

    1 x 1 得 1

     

    1 x 2 得 2

    2 x 2 得 4

     

    1 x 3 得 3

    2 x 3 得 6

    3 x 3 得 9

     

    1 x 4 得 4

    2 x 4 得 8

    3 x 4   12

    4 x 4   16

     

    1 x 5 得 5

    2 x 5   10

    3 x 5   15

    4 x 5   20

    5 x 5   25

     

    1 x 6 得 6

    2 x 6   12

    3 x 6   18

    4 x 6   24

    5 x 6   30

    6 x 6   36

     

    1 x 7 得 7

    2 x 7   14

    3 x 7   21

    4 x 7   28

    5 x 7   35

    6 x 7   42

    7 x 7   49

     

    1 x 8 得 8

    2 x 8   16

    3 x 8   24

    4 x 8   32

    5 x 8   40

    6 x 8   48

    7 x 8   56

    8 x 8   64

     

    1 x 9 得 9

    2 x 9   18

    3 x 9   27

    4 x 9   36

    5 x 9   45

    6 x 9   54

    7 x 9   63

    8 x 9   72

    9 x 9   81

     

    • 在加拿大，你儿子用英语还是汉语背乘法口诀？如果用汉语背，我担心会影响孩子将来对英文数字的反应速度。至于用英语，这里的教育专家告诉我不要被口诀。 -rollor(Rollor); 2006-8-22 (#3158558@0)
      • Why? How kids learn multiples? -gyousou(Concrete); 2006-8-22 (#3158589@0)
        • 他们用计算器.:(我女儿现在3*8等于多少还得想会儿。。。 -mine888(老想上进); 2006-8-22 (#3158598@0)
        • 我在 Peel Region 开家长学习会的时候，专门问过专家：英语的乘法口诀是什么样的？专家说：我们不鼓励孩子背口诀；考试时，孩子必须能够答出五乘以六怎么得到三十的过程。几年过去了，我儿子没背口诀，但乘法结果脱口而出。 -rollor(Rollor); 2006-8-22 (#3158663@0)
          • 我们比较懒。从我儿子出生那一刻，就知道他将来不可能当数学家。所以给他个九九表比较省事 -workdonkey(驴无奈); 2006-8-22 (#3158797@0)
          • 不鼓励背口诀还是不鼓励背？不要误导哦。不鼓励背口诀是因为英语中根本没有口诀可背。 -bdbs(不多不少); 2006-8-22 (#3158824@0)
            • 我一开始也有此疑问，所以才去问她。然后她就是那样回答的。当然，我也看过报道，教育专家给学习差的孩子补习时，会采用口诀等特别技巧。 -rollor(Rollor); 2006-8-22 (#3158858@0)
              • 真傻，别人说啥， 你就信。 教育专家的算数比你如何， 本地人的算数比华人的如何。 -ace2046(维钧); 2006-8-22 (#3159170@0)
          • 比会背口诀的人脱口还快? -northice(northice); 2006-8-22 (#3159093@0)
        • 这里的孩子学乘法没有口诀，完全硬背。难怪在这方面较中国人吃亏。口诀朗朗上口，容易记不容易忘呀。 -bdbs(不多不少); 2006-8-22 (#3158822@0)
      • 我儿子是从上学就让他开始背乘法表,用的是中文.现在他很流利的用中文背出来,但是有个问题 -dingxiangjie(寻找自信); 2006-8-22 {94} (#3159066@0)
        就是他知道七八五十六,但是把这个五十六写成56,他还得反应一下,所以就显的慢了.没办法,中文不太好啊.
      • 我自己是学数学的... 数学学的是逻辑思维能力,而不是简单的记忆. 对于乘法,应该让孩子明白乘法的含义, 已及如何从加法过渡到乘法. 机械背口诀不可取, 但如果孩子已经理解了乘法, 背背口诀也无所谓. -mirandajane(miranda); 2006-8-22 (#3160068@0)
        • 您肯定是个数学博士。 -bdbs(不多不少); 2006-8-23 (#3160198@0)
      • 让这儿的教育专家和你比比心算先 -heeltoe(不過三); 2006-8-23 (#3160236@0)
        • 会算算术是一回事，会培养孩子是另外一回事。 -rollor(Rollor); 2006-8-23 (#3160478@0)
          • 那你说是教，还是不教？ -remember_me_not(r-m-n); 2006-8-23 (#3160538@0)
            • 不教，但要多练。我们开车出去玩的时候，我儿子就和他妈妈在后坐练乘法游戏。（当然，有时候也玩别的学习游戏） -rollor(Rollor); 2006-8-23 (#3160734@0)
          • 你意思是说他自己不会算数可是会培养孩子算数？听起来满神奇的哈 -heeltoe(不過三); 2006-8-23 (#3160824@0)
    • 九九口诀在我国被定为算术，高中生就可胜任专家了。不过我这帖怎么无人顶，这表可是GOOGLE 不到的啊！这是我在因特网上算术领域的一大“贡献”啊 -workdonkey(驴无奈); 2006-8-22 (#3160173@0)
      • 我用Excel两分钟就搞定的东西，您要费那么大功夫写个程序，而且还要到Word里去写。看在您是IT同行的份上，没好意思损你就不错了。 -bdbs(不多不少); 2006-8-23 (#3160193@0)
        • 把你搞的贴出来，我再自罚三杯 -workdonkey(驴无奈); 2006-8-23 (#3160595@0)
          • 告诉我这里怎么贴Excel文件，我现做贴上来。 -bdbs(不多不少); 2006-8-23 (#3160615@0)
            • 我做机械的哪好意思告你做IT的啊！噢。。有个好主意，post a pic -workdonkey(驴无奈); 2006-8-23 (#3160979@0)
              • 我告诉你怎么做吧。假设你懂Excel能明白我下面在说什么 -bdbs(不多不少); 2006-8-23 {348} (#3161045@0)
                1.输入：A1(1) B1(x) C1(=A1) D1(=) E1(A1*C1) 注：仅输入括号内的值到相应的cell，下同
                2.Copy A1~E1 to A2
                3.Change A2(=A1) C2(C1+1)
                4.Copy A2~E2 to A3~A9

                到这里1出来了。继续

                5.Copy A1~E8 to G2
                6.Change G2(2)

                这样2也完成了。

                依此类推，可以几秒钟搞定3到9。剩下的就是formatting和打印的事了。

                试试看，再生的手2分钟都能搞定。
                • that's joking, don't be serious. anyway, thank a lot and let's over this talk -workdonkey(驴无奈); 2006-8-23 (#3161391@0)
          • 说真的,我这个电脑盲,在三四年前,想都没想,就用EXCEL打出九九乘法表给我儿子,比你用程序弄出来的要漂亮多了. -northice(northice); 2006-8-23 (#3160802@0)
            • not exactly same. 我要求打出来的是印在小学铅笔盒上的格式。而且我帖出来的显示有点错误。另外每个人都可按我的方法一分钟搞一个99表。还有。。。 -workdonkey(驴无奈); 2006-8-23 {436} (#3160945@0)
              这是我2分钟的程序， 只是没那么好看
              Sub CFKJ()
              With ActiveDocument
              .Tables.Add Selection.Range, 9, 9
              For j = 1 To 9
              For i = 1 To j
              If j < 9 Then .Tables(1).Cell(9 - j, 10 - i).Delete
              .Tables(1).Cell(j, i).Select
              Selection.TypeText i & " x " & j & IIf(i * j > 9, " ", " 得 ") & i * j
              Next i
              Next j
              End With
              End Sub
              • 不瞒你说，我的2分钟包括打印时间。而且为了增加小孩子背诵的乐趣，我还把每列设成不同的字体。格式当然是标准的阶梯式的啦。 -bdbs(不多不少); 2006-8-23 (#3160959@0)
                • that's great idea! -workdonkey(驴无奈); 2006-8-23 (#3160988@0)
      • http://math2.org/math/general/multiplytable.htm -mask(mask); 2006-8-23 (#3160216@0)
        • That doesn't count. -workdonkey(驴无奈); 2006-8-23 (#3160581@0)
      • 网上我GOOGLE到很多，还有相应的读音，你怎么会查不到呢？ -locker(locker); 2006-8-23 (#3160645@0)
    • ：））3年前我就是用 Excel 花了2分钟 给儿子做了一个乘法表，我给他讲，为什么中国人的数学普遍好，就是因为在中国每个孩子都要背乘法表。但儿子现在还是不能脱口而出，尽管在Gifted Program Test 中 -sophiacc(sophiaCC); 2006-8-23 {67} (#3160830@0)
      他的数字图形感觉得了 99.9。

      我决定乘这个暑假加紧督促他背乘法表。

More Topics

  • 药剂师？应该很难读才对啊。。。看看，这个女儿药剂师没有注意剂量，结果医院的给她妈妈癌症患者的万古霉素药开多了，她自己也没注意，结果妈妈癌症没去世，去世的原因是药物剂量太高，肾衰竭。。。
  • 建议不要只盯着CS了
  • 周末了，说说多大几个college的特色吧？如果读arts and science，你们娃都选哪个college？
  • 大家的孩子中文水平怎么样？我观察到不少在这里长大的第二代孩子，中文好像都只能应付日常简单对话，一旦涉及稍微复杂的交流，很多就跟不上了。这种情况普遍吗？
  • 儿子问我为什么不去做科学家？you could be famous
    • 枫下论坛主坛 /  枫下家园 /  望子成龙