Question

vb中如何用双循环制作一个竖立的棱形

Answer 1

Private Sub Form_Click()
    Dim n As Integer, i As Integer, j As Integer
    n = InputBox("请输入对角线长度减一的一半")
    For i = 1 To n * 2 + 1 '打印每一行
        For j = 1 To Abs(n + 1 - i) '打印空格，占位置
            Print " ";
        Next
        For j = 1 To 2 * n + 1 - Abs(i - n - 1) * 2 '打印‘*’号，你也可以改成自己想要的符号
            Print "*";
        Next
        Print
    Next
End Sub

分析题目可得：其实是打印一个歪着的正方形。

二重循环，第一重管的是行数，第二重管的是列数。每列先打印空格，再打印'*'，注意边界问题。如果不确定，可以通过不断的尝试得到。

Answer 2

《战国策·燕策二》：“此必令其言如循环，用兵如刺蜚绣。”往复回旋。指事物周而复始地运动或变化。意思是转了一圈又一圈，一次又一次地循回。可以简要地将基本思想表述如下：世界是按照极其漫长的时间周期，即所谓的”生成的大年“，周而复始地永恒循回；这个周期因为过于漫长而实际上无法预测，但又不是完全确定的；在这个永恒循环的过程中，世上的一切，包括我们每个人以及我们一生中的每个细节，都已经并且将要无数次地按照完全相同的样子重现，绝不会有丝毫改变。