投稿日 | : 2005/12/10(Sat) 00:14 |
投稿者 | : パーミヤン |
Eメール | : |
URL | : |
タイトル | : Re: 計算結果を残す方法について |
> こんにちは。私はVisual Basic6を使って今計算のプログラムを作成しています。
> 簡単にどのような計算表を作っているかを以下に説明します。
> X(n)←「テキストボックス」(+−/*)←「オプションボタンで選択」
> Y(n)←「テキストボックス」 (=)←「コマンドボタン」
> Anser(n)←「ラベル」
> X(n) [+ or - or / or *] Y(n) = Anser(n)と言った計算を行うわけでAnser(n)は「=」を
> クリックすることで表示されると言った形です。
>
> 今回、質問なのは、以下のように計算結果を「=」をクリックするとAnser(n)が表示させると
> 同時に別のボックスorラベルorリスト(どれでも良いです)で順に表示させて残すには
> どうしたらいいかです。以下のように表示させたいのでどなたか教えていただけたら幸いです。
>
> 1.X(1) [+ or - or / or *] Y(1) = Anser(1)
> 2.X(2) [+ or - or / or *] Y(2) = Anser(2)
> 3.X(3) [+ or - or / or *] Y(3) = Anser(3)
> ・
> ・
> ・
>
> と言うように表示させたいのでお願いします。
#エラー処理なし&ソースの質問不可
#お後は自力でよろしくです。
Option Explicit
Private lngPMBD As Long
Private Sub Form_Load()
lngPMBD& = 0
optPMBD(CInt(lngPMBD&)).Value = True
cboRecords.Clear
End Sub
Private Sub optPMBD_Click(Index As Integer)
lngPMBD& = CLng(Index%)
End Sub
Private Sub equ_Click()
Anser.Caption = cal_PMBD(lngPMBD)
With cboRecords
.AddItem X.Text & optPMBD(CInt(lngPMBD&)).Caption & Y.Text & "=" &a
mp; Anser.Caption
.ListIndex = .ListCount - 1: .SetFocus
End With
End Sub
Private Function cal_PMBD(ByVal lngPMBD As Long) As Double
Select Case lngPMBD&
Case 0: cal_PMBD# = Val(X.Text) + Val(Y.Text)
Case 1: cal_PMBD# = Val(X.Text) - Val(Y.Text)
Case 2: cal_PMBD# = Val(X.Text) * Val(Y.Text)
Case 3: cal_PMBD# = Val(X.Text) / Val(Y.Text)
End Select
End Function