(计算机等级考试二级常用算法.docVIP

1求任意自然数n的阶乘： 方法一 Do循环法 S=1 For I=1 To N S=S*I Next I 方法二 For循环 S=1：T=1 Do While T=5 S=S*T T= T +1 Loop 2闰年判断 Y = Text1.Text If (Y Mod 4 = 0 And Y Mod 100 0) Or Y Mod 400 = 0 Then Msgbox Y 是闰年 Else Msgbox Y 不是闰年 End If 3求两个自然数m、N的最大公约数hmax和最小公倍数hmin M=Text1.Text : N=Text2.Text ‘M和n可通过其他途径赋值 mn=M*N ‘暂存m和n的乘积，以便后面算最小公倍数 If MN Then T=M ：M=N ：N=T End If R=M Mod N Do While R 0 M=N N=R R=M Mod N Loop Hmax=N Hmin=Mn/Hmax 4. 素数判断 素数判断 方法一 提前退出法 N=Inputbox( “输入=3的正整数”) For I=2 To N－1 ‘或sqr(N) ，提前退出法 If (N Mod I =0) Then Exit For Next I If IN-1 Then Print N; “是素数” E