我实在有些毛手毛脚，又要更正一下：
a = ......      '先算到本年的上一年年终；再算本年中：本月之前的几个月的所有 天数（先按30天/月计算),加上本月之前的比30天/月多出的天数(即大月的月数,包括平月或闰月比30天/月少的天数),加到本月本日的日期为止。

题1:
m=7
n=3
print (m*(m-1)*(m-2))/(n*(n-1)*(n-2))

题2:
function Week%(y%,m%,d%)
       for i%=1 to y%-1
              r%=((i% mod 4)=0 and (i% mod 100)<>0) or (i% mod 400=0)
              days&=365+r%
       next
       v%=28-((y% mod 4)=0 and (y% mod 100)<>0) or (y% mod 400=0)
       v$=ltrim$(rtrim$(str$(v%)))
       t$="31"+v$+"31303130313130313031"
       for i%=1 to m%-1
              r%=Mid$(t$,(i%-1) *2+1,3)
              days&=days&+r%   
       next
       week%=(Days&+d%) mod 7
end function

这是QB71吗？
QB71会写得出从1到2005年累计天数这种程序出来？
这不会是冒牌的吧？

for i=1 to 7
  for j=1 to 7
   for k=1 to 7
    if i<>j and j<>k and i<>k then u=u+1
   nexxt k
  next j
next i
print u
end

上面做的好像都错了吧，怎么没有结果的啊！不信你自己运行一下可以吗？

上面好像都错了，没有结果的啊，不信你自己运行一下！

下面的好像都错了，没有结果的啊！不信你们自己运行一下啊

cls
n=0
for a=1 to 7
  for b=a+1 to 7
    for c=b+1 to 7
print a,b,c:n=n+1
next c,b,a
print n
end

建议：请在标题中具体、明确点明主题，最好不用“小菜问题”、“跪求”之类的模糊标题。