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
然后就不知道如何才能自己自定义组成三角形的符号是多少了，求解答T-T

Answer 1

Private Sub Form_Click()
Cls
n = Val(InputBox("输入行数"))
m = 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(m) & (IIf(j > 100, Space(1), Space(2)));
Next j
Print
Next
End Sub

Answer 2

病情分析：
您好，您说的这个要是维生素B6片。
指导意见：
主要是用于调节脑神经的辅助治疗的药物，/10是表示每一片它的含量是10MG。