BASICの宿題はお前にまかせた

BASICの宿題はお前にまかせた at TECH

81:デフォルトの名無しさん
06/05/20 12:39:42
>>80
残りのUI関係は自分でやっとくれ。

Function lcm(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
Dim answer As Integer
answer = x
Do
If ((answer Mod y = 0) And (answer Mod z = 0)) Then Exit Do
answer = answer + x
Loop
lcm = answer
End Function

次ページ

続きを表示

1を表示