Question

用VB熟悉两重循环结构的写法.根据输入的行数打印空心菱形,求大神代码

Answer 1

Private Sub Command1_Click()
    Dim N As Integer
    Dim I As Integer, J As Integer
    Cls
    N = Val(Text1.Text)
    For I = 1 To N
        Print Tab(N - I + 1);
        For J = 2 * I - 1 To 1 Step -1
            If J = 2 * I - 1 Or J = 1 Then
                Print "*";
            Else
                Print " ";
            End If
        Next
        Print
    Next
    For I = 1 To N
        Print Tab(I);
        For J = 2 * (N - I) + 1 To 1 Step -1
            If J = 2 * (N - I) Or J = 1 Then
                Print "*";
            Else
                Print " ";
            End If
        Next
        Print
    Next
End Sub

已经运行过，有什么问题请留言。