亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

程序設(shè)計題（10分）

 輸入任意兩個正整數(shù)m和n，求這兩個數(shù)的最大公約數(shù)（單擊窗體執(zhí)行程序）。

Private sub Form_click( )

Dim m%，n％，t％，r%

m=Inputbox(“輸入m”)        (1’)

n= Inputbox(“輸入m”)        (1’)

If  m<n then                (1’)

  t=m：m=n：n=t            (1’)

End If

r=m mod n                  (1’)

Do While r<>0              (1’)

  m=n                      (1’)

  n=r                       (1’)

 r=m mod n                 (1’)

Loop

Print “最大公約數(shù)為：”；n    (1’)

End Sub