UC知道vb 九九乘表
来源：百度知道 编辑：UC知道 时间：2024/05/04 20:43:49
我把九九乘表写了出来，我想让它更好看一些，想在第一行和第一列各画一条线，分开来，第一行的线我划了没什么问题，但是第一列的线划出来后就显示不了九九表了，不知道是怎么回事。请各位高手指点！完了有追加！！
下面是我的代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Print
Print
Print
For d = 1 To 9
Print Tab(8 * d); d;
Next
Print
Print
Print
Line (0, 800)-(10000, 800), vbRed
'Line (40, 0)-(40, 10000)
Print
Print
Print
For a = 1 To 9
Print Tab(3); a;
For b = 1 To a
c = a * b
Print Tab(8 * b); c;
Next
Print
Print
Next
Command1.Visible = False
End Sub
下面是我的代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
For d = 1 To 9
Print Tab(8 * d); d;
Next
Line (0, 800)-(10000, 800), vbRed
'Line (40, 0)-(40, 10000)
For a = 1 To 9
Print Tab(3); a;
For b = 1 To a
c = a * b
Print Tab(8 * b); c;
Next
Next
Command1.Visible = False
End Sub
不是乘法表显示不出来了，而是你画完线后窗体输出位置跑到线下面了，所以显示不出来！我给你改了一下，应该在最后画线，以免改变窗体的输出位置：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Print
Print
Print
For d = 1 To 9
Print Tab(8 * d); d;
Next
Print
Print
Print
Line (0, 800)-(10000, 800), vbRed
Print
Print
Print
For a = 1 To 9
Print Tab(3); a;
For b = 1 To a
c = a * b
Print Tab(8 * b); c;
Next
Print
Print
Next
Command1.Visible = False
Line (500, 0)-(500, 10000), vbGreen '这句放这里，线的位置，根据你的需要修改！
End Sub
你的代码没有大问题，只是：
Line (0, 800)-(10000, 800), vbRed
这句话，在循环中是不断重复执行，但是都是同一位置。你可以这样改一下试试；
x=N 'N为一个行增量系数(常数)；
Line (0, 800+d*x)-(10000, 800+d*x), vbRed
让每一次循环都加上一个增量（行高），这样就可以了。