九九乘法表两条对角线输出问题如何用VB编

来源：百度知道 编辑：UC知道 时间：2024/05/04 18:59:34
九行和九列都要相乘，得到八十一个数，不就是一个正方形了吗？我想要的就是打印这个正方形的对角线。

自己运行后看效果:
1 左对角线
Private Sub Command3_Click()
Dim i As Integer, j As Integer, t%
t = 1
For i = 1 To 9
For j = 1 To 9
If t = i And t = j Then
Print i * j & Space(2);
t = t + 1
Else
Print "--";
End If
Next j
Print vbCr
Next i

End Sub

2 右对角线
Private Sub Command3_Click()
Dim i As Integer, j As Integer, t%
t = 1
For i = 1 To 9
For j = 1 To 9
If t = i And t = 10 - j Then
Print i * j & Space(2);
t = t + 1
Else
Print "--";
End If
Next j
Print vbCr
Next i

End Sub

九九乘法表怎么两条对角线啊，九九乘法表输出就一个直角三角形