心に空いた穴が、財物によって埋まることは無いのだということを、彼らはまだ知らない。
岡本英三
Okamoto Eizo
心に空いた穴が、財物によって埋まることは無いのだということを、彼らはまだ知らない。
岡本英三
Okamoto Eizo
岡本英三
Okamoto Eizo
'コード開始-------------
Function koubai(x, y, z) As Double
Dim a As Double
Dim k(2) As Double
a = x / y
i = 1
Do While a - Int(a) >= 1 / 10 ^ z
a = a + x / y
i = i + 1
Loop
k(0) = a * y
a = y / x
i = 1
Do While a - Int(a) >= 1 / 10 ^ z
a = a + y / x
i = i + 1
Loop
k(1) = a * x
If k(0) > k(1) Then
koubai = k(1)
Else
koubai = k(0)
End If
End Function
'-----------------コード終了岡本英三
Okamoto Eizo