莫非楼主中间的"="是"+"号?!
dim r as double,s as double:r=10000
for p=1 to 28
for q=1 to p
s=[27(q-1)+ ¦q-2 ¦+ ¦q-3 ¦+…+ ¦q-(p+q-1)/2 ¦+ ¦p-(p+q+1)/2 ¦+ ¦p-(p+q+3)/2 ¦+…+ ¦p-28 ¦]/27
if r>s then r=s
next q
next p
dim r as double,s as double:r=10000
for p=1 to 28
for q=1 to p
s=[27(q-1)+ ¦q-2 ¦+ ¦q-3 ¦+…+ ¦q-(p+q-1)/2 ¦+ ¦p-(p+q+1)/2 ¦+ ¦p-(p+q+3)/2 ¦+…+ ¦p-28 ¦]/27
if r>s then r=s
next q
next p
上面代码中+ 是楼主原来的 = 号运行结果是 r 的值