- 500 名前：困ったくん [04/11/19 18:25:52]
- 割り算を減算（引き算で）行うプログラムを作っています。
［ Text1 ］ ÷ ［ Text2 ］ ＝ ［ Text3 ］ 余り ［ Text4 ］
のように表示させるのですが、例えば、３５÷６をしたときに、
答えが、Text3＝１ Text4＝２９ になってしまいます。
どうすればいいのでしょうか？
よろしくお願いします。 なお、僕の考えたプログラムは以下の通りです。
（※”＝”部分がコマンド１です）
Private Sub Command1_Click()
M = Text1.Text
N = Text2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
Text3.Text = sho
Text4.Text = M
End Sub
