Question

怎么做啊 vb的题 要完整步骤 谢谢！

Answer 1

Private Sub Command1_Click()

  n = CInt(InputBox("N="))

  For i = 1 To n

    For j = 1 To i

      Print "*";

    Next j

    Print Spc(2 * (n - i));

    For j = 1 To i

      Print "*";

    Next j

    Print

  Next i

End Sub

Answer 2

Private Sub Form_DblClick()
Dim n As Integer, i As Integer, j As Integer
n = InputBox("n=1~50", "提示", 4)
For i = 1 To n
    For j = 1 To 2 * n
        If j <= i Then
            Print "*";
            Print Spc(1);
        ElseIf j > i And j < 2 * n - i + 1 Then
            Print Spc(2);
        ElseIf j >= 2 * n - i + 1 Then
            Print "*";
            Print Spc(1);
        End If
    Next j
   Print
Next i

End Sub

Answer 3

不免费是否需要我帮助

Answer 4

什么时候要，可以帮你写？

追问

今天把