VB 6.0中的Pascal三角形

Question

我想问一下如何在VB 6.0上的文本框（多行）中使用Pascal的三角形。我不希望它被打印出来。当用户输入数字5时，它应该是这样的：

1 2 3 4 5 

1 2 3 4

1 2 3 

1 2 

1

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

Private Sub Command1_Click()
Dim MAC As Integer
Dim RIHO As Integer

Text2.Text = ""

MAC = Text1.Text
RIHO = MAC

For MAC = Text1.Text To 1 Step -1
For RIHO = MAC To 1 Step -1
    Text2.Text = Text2.Text & "*"
    Next
    Text2.Text = Text2.Text & vbCrLf
Next
End Sub

Answer 1

我不知道这个例子怎么可能是Pascal的三角形。此外，目前尚不清楚您是要求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。