UC知道关于VB中tab位置问题
来源：百度知道 编辑：UC知道 时间：2024/06/07 22:08:31
（1）
Private Sub Form_Click()
Print " *";
For i = 1 To 9
Print Tab(5 * i); i;
Next i
Print
For i = 1 To 9
Print i;
For j = 1 To i
Print Tab(5 * j); i * j;
Next j
Print
Next i
End Sub
（2）
Private Sub Form_Click()
Print " *";
For i = 1 To 9
Print i; Tab(5 * i);
Next i
Print
For i = 1 To 9
Print i;
For j = 1 To i
Print i * j; Tab(5 * j);
Next j
Print
Next i
End Sub
其中比较tab(5*i)的位置方法有什么关系.
（2）中运行的结果太乱了然后（1）中就对齐了的
Private Sub Form_Click()
Print " *";
For i = 1 To 9
Print Tab(5 * i); i;
Next i
For i = 1 To 9
Print i;
For j = 1 To i
Print Tab(5 * j); i * j;
Next j
Next i
End Sub
（2）
Private Sub Form_Click()
Print " *";
For i = 1 To 9
Print i; Tab(5 * i);
Next i
For i = 1 To 9
Print i;
For j = 1 To i
Print i * j; Tab(5 * j);
Next j
Next i
End Sub
其中比较tab(5*i)的位置方法有什么关系.
（2）中运行的结果太乱了然后（1）中就对齐了的
（2）中我这样改：
Private Sub Command1_Click()
Me.ForeColor = vbBlue '这样可以更清淅，下同
Print " *"; Tab(5); '有改动
Me.ForeColor = vbGreen
For i = 1 To 9
Print i; Tab(5 * (i + 1)); '有改动
Next i
Print
For i = 1 To 9
Me.ForeColor = vbGreen
Print i; Tab(5); '有改动
Me.ForeColor = vbBlack
For j = 1 To i
Print i * j; Tab(5 * (1 + j)); '有改动
Next j
Print
Next i
End Sub