vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 02:38:41
vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!

vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!
vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要
用WHILE!

vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!
Private Sub Command1_Click()
Dim i, a As Integer, b As String
Do
a =4
Loop While a < 2 Or a > 9
For i = 1 To a
b = ""
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) & b
Next
End Sub