[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2004/10/17(Sun) 10:59
投稿者名:みるく
Eメール:
URL :
タイトル:
四則演算について
いま簡単な四則演算ができるプログラムを作成しているのですが、、、、
テキストボックスに(3+2)*2と入力されたら、ラベルに10と出力されるもので、かっこは1
つまで使えるようにします。
今はまず数式を変数に代入し、その中からかっこを検索し、かっこがある場合かっこの中の数式を変
数に代入するところまでできています。そこから計算する処理として、"*"と"/"
を先に計算しその後に"+"と"-"を計算、そしてかっこの答えをかっこのあった場
所に置き換え、計算の処理をする...としていきたいのですが、どうしたら"*"と"/
"を先に計算することができるのでしょうか。どうか教えてください

投稿時間:2004/10/17(Sun) 12:11
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: 四則演算について
下記で文字列式で計算できますよ。

Private Sub Command1_Click()
'ScriptControl1をFormに貼り付けて下さい。
    Text1.Text = "(3+2)*2"
    Text1.Text = StrConv(Text1.Text, vbNarrow)

    Label1.Caption = "答えは= " & ScriptControl1.Eval(Text1.Text) & " です"
End Sub

投稿時間:2004/10/17(Sun) 12:29
投稿者名:みるく
Eメール:
URL :
タイトル:
Re^2: 四則演算について
ありがとうございました。やってみます。