VB的编程

s=1
a=1
do while s<601
a=a+1
s=s*a
loop

sum=1
i=0
while sum>600
i=i+1
sum=sum*i
Wend
print sum

dim i as integer, s as single
n=val(inputbox(""))
s=1
for i = 1 to n
s=s*i
if s>600 then
exit for
end if
next for

dim k ,i as integer
k=1
for i=1 to 600
k=k*i
next
print k

或:
dim k ,n as integer
k=1
do
n=n+1
k=k*n
loop Until n>600 '当n大于600退出循环,最符合题意