Question

用VB编程打印金字塔数，怎么写

Answer 1

你们家是不是住佛祖岭社区，卡梅尔小镇那边呀？呵呵

Answer 2

Private Sub Form_Click()

  n = CInt(InputBox("N="))

  Dim a(9) As Integer

  a(1) = 1

  For i = 1 To n

    Print Space(3 * (n - i) + 1);

    For j = 1 To i

      Print j;

    Next j

    For j = i - 1 To 1 Step -1

      Print j;

    Next j

    Print

  Next i

End Sub

追问

为什么变成这样了

追答

Print Space(3 * (n - i) + 1);
For j = 1 To i
Print j;
Next j
For j = i - 1 To 1 Step -1
Print j;
Next j
这里的print语句的最后，都有分号。你把它们都漏了啊。

追问

谢谢啦

这个该怎么写啊

拜托拜托

哪里有问题啊