Question

怎么才能自定义组成倒VB三角形的符号？

Private Sub Form_Click()
Cls
n = Val(InputBox("输入行数"))
m = Val(InputBox("输入符号"))
If (n > 100 Or n < 1) Then
Print "输入1~100"
Exit Sub
Print "输入m"
End If

For i = n To 1 Step -1
Print Tab(40 - i)
For j = n - i To 1 Step -1
Print Space(3);
Next

For j = 2 * i - 1 To 1 Step -1
Print CStr(j) & (IIf(j > 100, Space(1), Space(2)));
Next j
Print
Next
End Sub
不知道加入什么程序才能使组成倒三角形的符号是自己选的，求解答= =

Answer 1

Private Sub Form_Click()

Cls

n = Val(InputBox("输入行数"))

m = Left(InputBox("输入符号"), 1)

If (n > 100 Or n < 1) Then

    Print "n 输入1~100"

    Exit Sub

End If

For i = n To 1 Step -1

    Print Tab(40 - i)

    For j = n - i To 1 Step -1

        Print Space(3);

    Next

    

    For j = 2 * i - 1 To 1 Step -1

        Print m & Space(2);

    Next j

    Print

Next

End Sub

Answer 2

那个m不就是吗?

追问

不行，我这么弄不能使组成三角形的符号自定义= =能不能帮帮我。。。T-T