帕斯卡'；vb6.0中的s三角形

我想问一下，在VB6.0上，如何在文本框（多行）中实现Pascal三角形。我不想把它打印出来。当用户键入数字5时，应如下所示：

12345
1 2 3 4
1 2 3 
1 2 
1.

我的对象是两个文本框和一个命令按钮 这是我的第一个代码：

Private子命令1_Click（）
将MAC设置为整数
Dim RIHO作为整数
Text2.Text=“”
MAC=Text1.Text
RIHO=MAC
对于MAC=Text1.Text到1步骤-1
对于RIHO=MAC至1步骤-1
Text2.Text=Text2.Text&“*”
下一个
Text2.Text=Text2.Text&vbCrLf
下一个
端接头

我不知道这个例子怎么可能是帕斯卡三角形。此外，还不清楚您是要VB代码（如标题中所示）还是要VB.Net代码（如标记中所示）

无论如何，这里有一个可能的解决方案。您需要两个嵌套循环—一个用于行，一个用于列

Dim RIHO As String = ""
Dim MAC = Val(Text1.Text) 'Read user input; you should add error handling
For row As Integer = MAC To 1 Step -1
    For column As Integer = 1 To row
        RIHO = RIHO & column & " " 'add the column number to the output
    Next
    RIHO = RIHO & vbNewLine 'add a new line to the output
Next
Text2.Text = RIHO 'Display the output

---

如果使用VB.Net，应该使用更有效的结构来连接字符串，例如

StringBuilder

这其中的哪一部分有问题？@Lee Burrows我尝试使用类似这样的for Next语句：“Private Sub Command1_Click（）Dim MAC As Integer Dim RIHO As String RIHO=”“MAC=Val（Text1.Text）”。它只给我给定数字的等价值。对于MAC=Val（Text1.Text）到第1步-1 RIHO=RIHO&“*”Text2.Text=RIHO下一个端点Sub.@Steven Doggart我的问题是如何生成与数字相等的三角形，示例为5。请编辑您的答案以添加代码。这在评论中是绝对不可读的。新代码的结果是什么？这与你的期望有什么不同呢？我没有名声来发布我的答案，但我这里有一张图片。对不起，我的意思是“编辑你的问题”。我觉得结果不错。有什么问题吗？没有，一点也没有。但我现在将编辑我的问题，谢谢你的帮助。很高兴我能帮忙。顺便说一句，请将此答案标记为解决方案（左侧的小复选标记），以便其他人可以看到问题已经解决。