Question

Access中如何在立即窗口获得九九乘法口诀？

Answer 1

1.案例说明
在早期的Basic版本中，程序运行结果主要依靠Print语句输出到终端。在VB中，Print
作为窗体的-一个方法，用来在窗体中显示信息。但是在VBA中，用户窗体已经不支持Print
方法了。在VBA中，Print 方法只能向“立即窗口”中输出程序的运行中间结果，供开发人员调试程序时使用。
本例使用Print 方法在立即窗口中输入九九乘法表。
2.关键技术.
在VBA中，Print 方法只能应用于Debug对象，其语法格式如下:
Debug. Print [outputlist]
参数outputlist是要打印的表达式或表达式的列表。如果省略，则打印一个空白行。
●Print首先计算表达式的值，然后输出计算的结果。在outputlist参数中还可以使用分隔
符，以格式化输出的数据。格式化分隔符有以下几种:
●Spc(n): 插入n个空格到输出数据之间;
●Tab(n): 移动光标到适当位置，n为移动的列数;
●分号:表示前后两个数据项连在一 起输出;
●逗号:以14个字符为- -个输出区，每个数据输出到对应的输出区。
3.编写代码
(1)在VBE中，单击菜单“插入/模块”命令插入-一个模块。
(2)在模块中输入以下代码:
Sub 乘法口诀()
For i = 1 To 9
For j = 1 To i
Debug.Print j; "x"; i; "="; i * j; " ";
Next
Debug.Print
'换行
Next
End Sub
运行代码效果如下

Answer 2

Private Sub Command4_Click()
Dim m As Integer
Dim n As Integer
Dim t, s As String
m = 1
n = 1
t=""
For m = 1 To 9
s=""
For n = m To 9
s =s& m & "×" & n & "=" & m * n & ""
Next n
t = t & s
Next m
Me.Text5 = t
End Sub