0

我想问一下如何在 VB 6.0 的文本框（多行）中做帕斯卡三角形。我不希望它被打印出来。当用户输入数字 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
4

1 回答 1

2

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

于 2013-08-11T13:10:40.913 回答