一道高一vb题（急!）1*1=2 1*2=2 1*3=3 ------------2*2=4 2*3=6 ---就是像这样子一直搞到9*9=81这种程序要怎么写呢?没明白么？第一行：1*1=1到1*9=9 第二行2*2=4到2*9=18，第三行：3*3=9 到3*9=27 ---最后一行，
来源：学生作业帮助网 编辑：六六作业网 时间：2025/02/07 15:05:28
一道高一vb题（急!）1*1=2 1*2=2 1*3=3 ------------2*2=4 2*3=6 ---就是像这样子一直搞到9*9=81这种程序要怎么写呢?没明白么？第一行：1*1=1到1*9=9 第二行2*2=4到2*9=18，第三行：3*3=9 到3*9=27 ---最后一行，
一道高一vb题（急!）
1*1=2 1*2=2 1*3=3 ------------
2*2=4 2*3=6 ---
就是像这样子一直搞到9*9=81
这种程序要怎么写呢?
没明白么？第一行：1*1=1到1*9=9 第二行2*2=4到2*9=18，第三行：3*3=9 到3*9=27 ---最后一行，即第九行9*9=81
效果就是右对齐
1*1=1 1*2=2------1*9=9
2*2=4 2*3=6 2*4=8--2*9=18
3*3=9 3*4=12---3*9=27
4*4=16 ----4*9=36
------（省略5-8）
9*9=81
一道高一vb题（急!）1*1=2 1*2=2 1*3=3 ------------2*2=4 2*3=6 ---就是像这样子一直搞到9*9=81这种程序要怎么写呢?没明白么？第一行：1*1=1到1*9=9 第二行2*2=4到2*9=18，第三行：3*3=9 到3*9=27 ---最后一行，
Private Sub Form_Click()
For i = 1 To 9 Step 1
s = ""
For j = i To 9 Step 1
s = s & i & "*" & j & "=" & i * j & KG(3 - Len(i * j))
Next
Print KG(7 * (i - 1)); s
Next
End Sub
Function KG(K)
KG = ""
For l = 1 To K Step 1
KG = KG & " "
Next
End Function
嵌套循环啊
第一层循环：M从1到9
第二层循环：N从M到9
M*N=
第二层循环结束
第一层循环结束。
你没有说是要输出一个表格还是只根据输入的值计算输出结果，如果要打一个表格，在循环中要进行排版（根据M的值进行首字定位）。
最后要输出什么？是每个乘积都要输出吗？
我就按每个乘积都输出的做了
s=1
i=1
DO
n=i
DO
s=i*n
n=n+1
PRINT s
LOOP UNTIL n>9
i=i+1
LOOP UNTIL i>9
END IF
把下列代码粘到command1的click事件中
看看有什么变化
for i=1 to 9
for j=1 to i
print i;"X";j;"=";i*j;
next
print
next
print
for i=1 to 9
for j=i to 9
print i;"X";j;"=";i*j;
next
print
next