作业帮 > 综合 > 作业

do until...loop循环的乘法口诀表

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 14:03:57
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根本就没有执行过!
VB初学(469058575) 19:47:31
我也不想用for语句,可是实在想不不出别的办法!
因为要在s=10不变的情况下,每次进入do until循环逐次减1
我也知道上面是错的,
刚写的:
Dim i As Integer,j As Integer
i = 1:j = i
Do Until i = 10
j = 1
Do Until j = i + 1
Print j & "*" & i & "=" & i * j,
j = j + 1
Loop
Print
i = i + 1
Loop