急！！！九九乘法表VB一重循环，不用指针

一层循环是从11-99循环输出表格.abcayad 的那个还是有两层循环,只不过把其中一个循环改成条件判断后goto了,实质上还是循环.

随便写写,如果要输出比较好看自己调整:
Dim i As Integer, a As Integer, b As Integer
For i = 11 To 99
a = i \ 10: b = i Mod 10
If b <> 0 And b >= a Then Print CStr(a) & "×" & CStr(b) & " = " & CStr(a * b)
Next

注:以上代码省略了重复的乘法,比如1*2和2*1为重复的.如果不想省略重复乘法,请把"And b >= a"删除.

★★★补充:★★★
你的要求还真高...
以上面的代码为基础,打印成三角的代码:
Dim i As Integer, a As Integer, b As Integer
For i = 11 To 99
a = i \ 10: b = i Mod 10
If b <> 0 And b >= a Then Print CStr(a) & "×" & CStr(b) & " = " & CStr(a * b); vbTab;
If b = 9 Then Print
Next

在原来的基础上加"; vbTab;"保证打印时不换行,当第二个乘数b=9时换行.很多东西自己动脑筋修改修改更有意思.

以下代码排列的三角可能更符合你的要求.
Dim i As Integer, a As Integer, b As Integer
For i = 11 To 99
a = i \ 10: b = i Mod 10
If b <> 0 And b >= a Then Print C