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 コード (タグのように) を要求しているのか明確ではありません。

とにかく、ここに可能な解決策があります。行用と列用の 2 つのネストされたループが必要です。

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 に答える