dountil...loop循环的乘法口诀表用dountil...loop语句做一个乘法口诀表,格式为：1*9=92*8=162*9=183*7=213*8=243*9=27代码如下：i=1s=9forz=2to9dountili>9dountils>9printtab(s*6);i*s(格式忽略不写了）s=s+1

Question

do until...loop循环的乘法口诀表
用do until ...loop 语句做一个乘法口诀表,格式为：
1*9=9
2*8=16 2*9=18
3*7=21 3*8=24 3*9=27
代码如下：i=1
s=9
for z= 2 to 9
do until i > 9
do until s > 9
print tab(s*6);i*s(格式忽略不写了）
s=s+1
loop
print
loop
i=i+1
z=s-z
s=z
next z
但是next z根本就没有执行过!
我也不想用for语句,可是实在想不不出别的办法!
因为要在s=10不变的情况下,每次进入do until循环逐次减1
我也知道上面是错的,

Answer 1

用for 结构最简单.
Private Sub Command1_Click()
Cls
For i = 1 To 9
For j = 10 - i To 9
Print i; "*"; j; "="; i * j;
Next j
Print
Next i
End Sub