VB 二维数组的输出规律是什么?

2025-06-01 07:53:06

推荐回答（1个）

回答1：

这个程序是不对的，程序中的二维数组根本就没有赋值。

要达到输出整齐古诗，以下的程序可以实现：

Private Sub Command1_Click()
Dim i%, j%, k%, s$
    s = "床前明月光疑是地上霜举头望明月低头思故乡"
        For i = 0 To 3
        For j = 0 To 4
            Print Mid(s, i * 5 + j + 1, 1);
        Next j
        Print
    Next i

End Sub

或者简化成这样也可以实现同样的输出：

Private Sub Command1_Click()
Dim i%, s$
    s = "床前明月光疑是地上霜举头望明月低头思故乡"
    For i = 0 To 3
        Print Mid(s, i * 5 + 1, 5);
    Next i

End Sub