想给儿子打印九九口诀表,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 |