[此贴子已经被作者于2020-8-3 10:28编辑过]
Private Sub Command1_Click() m = 5 '行 n = 4 '列 For i = 1 To m For j = 1 To n Print IIf(j Mod 2 = 0, m * j - i + 1, i + (j - 1) * m), Next Print Next End Sub
[此贴子已经被作者于2020-8-5 13:47编辑过]