程序设计题(10分)
输入任意两个正整数m和n,求这两个数的最大公约数(单击窗体执行程序)。
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 “最大公约数为:”;n (1’)
End Sub
2015年全国职称计算机考试教材(2007模 .. 定价:¥225 优惠价:¥213 更多书籍 | |
全国职称计算机考试速成过关系列套装:W .. 定价:¥133 优惠价:¥133.0 更多书籍 |