Question

vb课怎么输平行四边形的排序

vb课怎么输平行四边形的排序

Answer 1

Private Sub Form_Click()

  n = CInt(InputBox("要产生几行的平行四边形？"))

  Print n; "行的平行四边形："

  For i = 1 To n

    Print String(n + 1 - i, " "); String(2 * n, "*")

  Next i

End Sub

Answer 2

Private Sub Form_Load()
Me.Show
For i = 1 To 4
    Print Space(i);
    For j = 1 To 10
        Print "*";
    Next j
    Print
Next i
End Sub