vbs实现编程算法之二
上一篇 /
下一篇 2012-02-16 16:29:35
/ 个人分类：VBScript
51Testing软件测试网Y;Y(lQi v6KB
水仙花算法
———1个数的各位上的立方和等于该数，如：153=1*1*1+5*5*5+3*3*3
dim mumber,i,j,k
1yIR vn%S0
for mumber=100 to 999
51Testing软件测试网i7q%Pw({ `Gr
i=mumber \ 100
j=(mumber Mod 100)\10
k=mumber Mod 100 Mod 10
if mumber=i^3+j^3+k^3 then
'msgbox mumber
end if
next
'返回153、370、371、407
51Testing软件测试网cy9L A'ti7~ Rx
51Testing软件测试网 W(j(Zn6d&n r Y.]
九章算术-百钱买百鸡
’100元刚好买100只鸡，公鸡5元一只、母鸡3元一只、小鸡1元2只
dim i,j,k,flag
flag=0
for i=1 to 100
for j=1 to 100
for k=1 to 100
if i+j+k=100 then
if 5*i+3*j+0.5*k=100 Then
'msgbox "买公鸡为:"& i &"母鸡:"&j &"小鸡:"&k
else
'exitfor
end if
end if
next
next
next
J:l1XZ Z1Q)~Wp(]!y0
埃拉托尼筛子算法求素数
‘埃拉托尼筛子的思想就是，从2到100，依次把2到50的倍数都划去，剩下的都是素数
dim i,j,arr(99),num
num=0
for i=2 to 50
for j=2*i to 100 step i
arr(j-1)=1
next
next
for i=2 to 99
if arr(i-1)<>1 then
'msgbox i
y}
|9r}M6s0
递归求阶乘
vbs也可以用递归
FUNCTION fabtorial (a)
if (0 = a) THEN
fabtorial =1
else
fabtorial =a * fabtorial (a - 1)
END IF
END FUNCTION
!@k Gf Nx0
哥德巴赫猜想————任何一个大于2的偶数都可写成两个质数之和
'判断素数
function prime (m)
r = sqr(m)
for i=2 to r
if m Mod i=0 then
prime=false
exit for
else
prime=true
end if
next
end function
!z L T.@ Qo} bC0
l/[{#Q-`\NIN0
’哥德巴赫猜想证明
function gedebahe (m)
for r=1 to m \ 2
if prime(r) and prime(m-r) then
gedebahe =true
exit for
else
gedebahe =false
end if
next
end function
!w4E,za/DL/~O#G0
51Testing软件测试网g X^%CqO x
收藏
举报
TAG:
