こんにちは。私はVisual Basic６を使って今計算のプログラムを作成しています。
簡単にどのような計算表を作っているかを以下に説明します。
X(n)←「テキストボックス」（＋−／＊）←「オプションボタンで選択」
Y(n)←「テキストボックス」　（＝）←「コマンドボタン」
Anser(n)←「ラベル」
X(n) [+ or - or / or *] Y(n) = Anser(n)と言った計算を行うわけでAnser(n)は「＝」を
クリックすることで表示されると言った形です。

　今回、質問なのは、以下のように計算結果を「＝」をクリックするとAnser(n)が表示させると
同時に別のボックスｏｒラベルｏｒリスト（どれでも良いです）で順に表示させて残すには
どうしたらいいかです。以下のように表示させたいのでどなたか教えていただけたら幸いです。

１．X(1) [+ or - or / or *] Y(1) = Anser(1)
２．X(2) [+ or - or / or *] Y(2) = Anser(2)
３．X(3) [+ or - or / or *] Y(3) = Anser(3)
・
・
・

と言うように表示させたいのでお願いします。

> 　こんにちは。私はVisual Basic６を使って今計算のプログラムを作成しています。
> 簡単にどのような計算表を作っているかを以下に説明します。
> X(n)←「テキストボックス」（＋−／＊）←「オプションボタンで選択」
> Y(n)←「テキストボックス」　（＝）←「コマンドボタン」
> Anser(n)←「ラベル」
> X(n) [+ or - or / or *] Y(n) = Anser(n)と言った計算を行うわけでAnser(n)は「＝」を
> クリックすることで表示されると言った形です。
>
> 　今回、質問なのは、以下のように計算結果を「＝」をクリックするとAnser(n)が表示させると
> 同時に別のボックスｏｒラベルｏｒリスト（どれでも良いです）で順に表示させて残すには
> どうしたらいいかです。以下のように表示させたいのでどなたか教えていただけたら幸いです。
>
> １．X(1) [+ or - or / or *] Y(1) = Anser(1)
> ２．X(2) [+ or - or / or *] Y(2) = Anser(2)
> ３．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

パーミヤンさん、返信とアドバイスありがとうございます。
これを参考にしてやってみます。実行がうまく言ったらまた記述させていただきます。本当に
ありがとうございました。

　こんにちは。パーミヤンさん本当にありがとうございます。パーミヤンさんの
プログラムを参考にして作成した結果、見事にリストボックスにデータ結果を
格納していくことができました。表示も小数点にしたりと個人的に改造しました。
本当に勉強になりました。ありがとうございます。失礼します。