UC知道VB数字方阵题
来源：百度知道 编辑：UC知道 时间：2024/09/23 11:17:29
输入一个自然数n，在窗体上输出：
例如n=4，
1 2 3 4
2 3 4 1
3 4 1 2
4 1 2 3
最好能用for-next语句来写，我是初学者，谢谢！
例如n=4，
1 2 3 4
2 3 4 1
3 4 1 2
4 1 2 3
最好能用for-next语句来写，我是初学者，谢谢！
Private Sub Command1_Click()
n=val(inputbox("请输入阶数:"))
For i = 0 To n-1
For j = i To i + (n-1)
Print (j Mod 4) + 1;
Next j
Print
Next i
End Sub
Dim i As Integer, j As Integer, n As Integer
For i = 0 To 3
n = i
For j = n To n + 3
Print (j Mod 4) + 1;
Next j
Print
Next i