搜狗做题网一道高一vb题（急!）
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/07/31 22:26:10
一道高一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
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
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
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