问题描述: vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE! 1个回答 分类:综合 2014-10-22 问题解答: 我来补答 Private Sub Command1_Click()Dim i, a As Integer, b As StringDo a =4Loop While a < 2 Or a > 9For i = 1 To ab = "" For j = 1 To (i - 1) * 2 + 1 b = b & IIf(j > i, CStr(i * 2 - j), CStr(j)) Next Print Space(a + 1 - i) & bNextEnd Su 展开全文阅读