Question

打印正三角形的vb代码，每一行分别从1到0

1
222
33333
这样的vb代码
急求大神帮忙！！

Answer 1

Private Sub Command1_Click()

n = Val(InputBox("n="))

For i = 1 To n

  Print Spc(n - i); String(2 * i - 1, Chr(48 + i))

Next i

End Sub

以下是输入7时的运行图形：

追问

请问Chr(48 + i)是什么意思？chr函数作用是什么？48又是什么意思
最后一行要打印出0，要怎么做？谢谢

Answer 2

循环星号输出