代入に異様に時間がかかるテキストボックスのはなぜ？ (ID:125015)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まあ、一応最初の質問のところの回答で解決できたのはできたのですが、 またあらたなこまったことが発生してしまいました。 下記のコードを実行すると Dim MyStringBuilder As New System.Text.StringBuilder("") money = 150 For A = 0 To 15 'UBound(tamakazu) For M = 0 To 15 'UBound(erabukazu) For n = 0 To money Step 10 検索値段(M) = n 下限上限(A) = Partition(検索値段(M), 0, money, 10) MyStringBuilder.Append(下限上限(A)) MyStringBuilder.Append(Environment.NewLine) Next n Next M Next A TextBox1.Text = MyStringBuilder.ToString 処理結果が 0: 9 10: 19 20: 29 30: 39 40: 49 50: 59 60: 69 70: 79 80: 89 90: 99 100:109 110:119 120:129 130:139 140:149 150:150 ・ ・ ・ ・ ・ ・ とこれの繰り返しで100回くらい（予想）されてしまいます。 これは1回だけ表示に書き換えるには上のコードをどのように書き換えれば 答えがでるのでしょうか？ご教示お願いします。