|
▼まくりん さん:
>このままでは時間が掛かるばかりでなく、折角のご厚意に結果報告も
>ままならない... と、感じましたので現在知人に御願いして計算式を
>作って貰っています(お恥ずかしいですけど...)。
とのことで、問題ないと思うのですが念のため書いておきます。
先般提示した中に修正すべき内容が2箇所あります。
1.大きい順に並べ替え処理が間違っている。
'大きい順に並べ替え(修正例、他にもっとスマートな方法があると思います)
AA(1) = x
AA(2) = y
AA(3) = z
If AA(1) < AA(2) Then AA(0) = AA(1): AA(1) = AA(2): AA(2) = AA(0)
If AA(1) < AA(3) Then AA(0) = AA(1): AA(1) = AA(3): AA(3) = AA(0)
If AA(2) < AA(3) Then AA(0) = AA(2): AA(2) = AA(3): AA(3) = AA(0)
A = AA(1)
B = AA(2)
C = AA(3)
2.例題では問題ないが、個数が増えたときの対応としてIntegerをLongにする。
です。
計算結果には、数学的価値は全くありませんが、そこそこの答えは出てきますよ。
|
|