计算机等级考试二级VB常用算法SFA.doc

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 =
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= : N= ‘M和n可通过其他途径赋值
mn=M*N ‘暂存m和n的乘积,以便后面算最小公倍数
If M<N 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 I>N-1 Then
Print N; “是素数”
Else
Print N; “不是素数”
End If
方法二标志法
N=Inputbox( “输入一个>=3的正整数”)
End If
F=0 ‘F也可用逻辑型变量,标志法
For I=2 To N-1 ‘或sqr(N)
If (N Mod I =0) Then F=1
Next I
If F=0 Then
Print N; “是素数”
Else
Print N; “不是素数”
End If
= ""
m = Val()
If m > 0 Then '正数
= "1"
ElseIf m < 0 Then '负数
= "-1"
End If
m = Abs(m)
n = m
For i = 2 To n
Do While m Mod i = 0 '找相同因子
= & "*" & i
m = m \ i
Loop
Next i
End If
4单词数统计
方法一标志法,以空格作为单词间的间隔(假设只有空格和字母)
Dim A$, Temp$
Dim N%, I%
Dim Newword As Boolean, Wordnum As Integer
A = 'A = Ltrim()
N = Len(A)
Newword = False '未遇到新单词(也可用数值变量)
Wordnum = 0
For I = 1 To N
Temp = Mid(A, I, 1)
If Temp = " " Then
Newword = False
'简化为elseif Newword = Fal