lulululu

2021/1/19 17:49

11回答

乱数を発生させる関数を使って、ある数からある数までの間の数値を1つ作るFunctionプロシージャを作成し、このFunctionプロシージャを利用して、

乱数を発生させる関数を使って、ある数からある数までの間の数値を1つ作るFunctionプロシージャを作成し、このFunctionプロシージャを利用して、 100から200までの間の整数を2つランダムに表示させ、その2つの整数の最大公約数と最小公倍数を表示させるプログラムを作成したいときのコードを教えて頂きたいです。 「乱数の発生」というButtonを押すと2つのtextboxに乱数がそれぞれ表示され、「2つの乱数の最大公約数と最小公倍数の計算」というButtonを押すと別の2つのtextboxに最大公約数と最小公倍数がそれぞれ表示されるようにしたいです。

Visual Basic・43閲覧

ベストアンサー

0

ear********

2021/1/21 13:15

動作未確認です。間違ってたらすいません。 Option explicit Private sub 乱数の発生_click() Textbox1=Rnum(100,200) Textbox2=Rnum(100,200) End sub Private sub 計算_click() If Textbox1<0 or Textbox2<0 then Msgbox”値が不正です。” Exit sub End if dim min as long, max as long dim num as long min = iif(textbox1<=textbox2, textbox1, textbox2) max=iif(min=textbox1, textbox2,textbox1) num=min Do while max mod num <>0 do num-=1 Loop until min mod num=0 Loop Textbox3=num ‘ 最大公約数 num=min do while num<max num+=min Loop do while num mod max <> 0 num+= min Loop Textbox4=num ‘最小公倍数 Function Rnum(min as long, max as Long) as long Randomize Rnum=int(rnd()*(max-min+1)+min) End function