VisualBasic 文字列の中に文字を追加するには

Question

お久しぶりです。以前VBにて電卓を作っていたものです。

現在機能を追加しているところでして、
・計算経過ディスプレイ
・24桁まで対応
・関数電卓化
上記の上２つはできました。

ただ、現在関数電卓化の階乗のところで処理をどうすればいいのか悩んでいます。
なお、この関数の動きはウィンドウズに標準搭載の電卓の動きに準じています。

階乗（ｎ!）のボタンを連続で押すと
「fact(fact(fact(fact(2))))」このような表示になると思いますが、
どのような処理をしたらfact()のかっこの中にfact()を表示されるのでしょうか
ご教授よろしくお願いします。

--追記--
階乗部分のコードです。

If NumberHold = "C" Then
            NumberHold = FactValue
        Else
            'NumberHoldにある数値を維持
        End If
        DisplayPassage.Text = String.Format("fact({0})", DisplayPassage.Text)

NumberHoldというのは階乗をする数字を記憶する変数です。
初期値だった場合に数字を記憶し、初期値でない場合はその状態を維持します。
現在上記のコードだと計算経過のディスプレイには
fact(fact(fact(fact(fact(fact())))))というように表示できるようになりました。
これをfact(fact(fact(fact(fact(5)))))というようにするにはどうしたらよいでしょうか？

Answer 1

各変数の意味が掴みきれていませんが、やりたいのはこんなことでしょうか？

    If NumberHold = "C" Then   '←初回判定と推測しました
        NumberHold = FactValue
        DisplayPassage.Text = NumberHold .ToString()   '初回から数値を含めた状態で"fact()"で括る
    Else
        'NumberHoldにある数値を維持
    End If
    DisplayPassage.Text = String.Format("fact({0})", DisplayPassage.Text)

Answer 2

fact(x)の状態も退避したほうが良さそうですね。
以下のような感じでフォーマット後の値を毎回退避しましょう。

で連続で押された場合は除去してから追記する感じで

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim tmpFact = String.Format("fact({0})", strPreInput)
    Dim posPre = TextBox1.Text.LastIndexOf(strPreInput)
    If posPre = TextBox1.Text.Length - strPreInput.Length Then
        '前回入力していれば消す
        TextBox1.Text = TextBox1.Text.Remove(posPre, strPreInput.Length)
    End If
    TextBox1.Text += tmpFact
    strPreInput = tmpFact
End Sub

Answer 3

色々方法があると思いますが、これでどうでしょう。

Dim calcStr as string

calcStr = String.Format("fact({0})", 2)
calcStr = String.Format("fact({0})", calcStr)
calcStr = String.Format("fact({0})", calcStr)
calcStr = String.Format("fact({0})", calcStr)

Answer 4

こんにちは。

String.Formatを使用します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = String.Format("fact({0})", TextBox1.Text)
End Sub

Comments

[Strauss]

ご丁寧にありがとうございます。fact()のかっこの中身をボタンを押したときの数字をつけたいのですが、その場合どうすればよろしいでしょうか？"fact("+NumberHold（階乗したい数値）+")"←のように書いた場合エラーでおこられてしまいました。

[Tak1wa]

Windowsの電卓からすると数字→n!キー以外は上書きされているようですが、それはさて置き、怒られるとはどのように怒られますか。数値型ですよーって感じでしょうか。それならばNumberHold.ToString()で文字列として扱ってください。

[Strauss]

お返事ありがとうございます。インデックス (0 ベース) は 0 以上で、引数リストのサイズよりも小さくなければなりません。というエラーが出てしまします。

[Tak1wa]

理解力が乏しくすみません。状況がわからなくなってきたので質問へ現在のコードを追記して頂いても良いでしょうか。

[Strauss]

こちらこそわかりにくく書いてしまい申し訳ございません。すぐ載せますので少々お待ちください。

[Tak1wa]

追記頂いた例だとNumberHoldに"5"（文字列）が入っているということですか？であれば、DisplayPassage.Text = String.Format("fact({0})", NumberHold)になりますが。一度n!キーを押すとNumberHold変数の中身はどうなりますか。

[Strauss]

0の場所にNumberHoldと書くとfact(fact(fact()))…という風にはならず、例：５を押してから階乗ボタンを押すと fact(5)と表示されます。何回押してもfact(fact(fact(5)))と増えません。

[Strauss]

質問に答えていませんでした。数字ボタンを押してからn!ボタンを押すとNumberHoldにはその階乗された元の数字が記録されます。２回目以降はNumberHoldはそのままの状態を維持します。

[Tak1wa]

NumberHoldに何故退避しているのかによりますが、退避する必要あるのでしょうか。
数字キーが押された時点でDisplayPassage.Textへ数字を設定しておけば、String.Format("fact({0})", DisplayPassage.Text)で済みそうな気がしますが

[Strauss]

Windowsの標準電卓を基に製作しており、数字ボタン＋四則の演算子 を押すことで計算経過を表示されているのでそれに準じて作成しています。退避している理由として、数字ボタンを押したときに計算経過のディスプレイに表示しないためなのと、演算子を押したときに一緒に出すためです。

[Tak1wa]

成程、よくわかりました。
別回答しました。