VB数字倒金字塔程序 输入1-9之间的数字,形成以下倒金字塔

Private Sub Command1_Click()Dim i,j As IntegerFor i = 1 To 13For j = 1 To iPrint " ";Next jFor j = i To 13 - i + 1Print Chr(56 - i);NextPrintNext iEnd SubVB 测试通过!