關於vb編程問題

最大公約數的壹種方法。但必須保證m>n。

Dim

m

As

Integer,

n

As

Integer,

r

As

Integer

,

t

As

Integer

m

=

InputBox("請輸入m的值："):

n

=

InputBox("請輸入n的值：")

Print

m;

"和";

n;

"的最大公約數是："

If

m<n

Then

t=m:m=n:n=t

'保證m>n

EndIf

r

=

m

Mod

n

Do

Until

r

=

0

m

=

n:

n

=

r:

r

=

m

Mod

n

Loop

Print

n