您所在位置：主题：一段代码为什么在qbasic中可以在freebasic中不行呢？
breakan
[专家分：80] 发布于 2008-07-22 19:15:00
declare sub fact(m!,total!)
cls
a=5
b=6
c=8
call fact(a,tot)
s=tot
call fact(b,tot)
s=s+tot
call fact(c,tot)
s=s+tot
print a;"! +";b;"! +";c;"! =";s
sleep
end
sub fact(m,total)
total=1
for i=1 to m
total=total*i
next i
end sub
就这段代码。
在qb中可以，但在freebasic中要把declare sub fact(m!,total!)这一句改成declare sub fact(m,total)才行，要不然就提示"Type mismatch,at parameter 1 of FACT()"。
在第6行。
在freebasic中不可以用单精度吗？
cls
a=5
b=6
c=8
call fact(a,tot)
s=tot
call fact(b,tot)
s=s+tot
call fact(c,tot)
s=s+tot
print a;"! +";b;"! +";c;"! =";s
sleep
end
sub fact(m,total)
total=1
for i=1 to m
total=total*i
next i
end sub
就这段代码。
在qb中可以，但在freebasic中要把declare sub fact(m!,total!)这一句改成declare sub fact(m,total)才行，要不然就提示"Type mismatch,at parameter 1 of FACT()"。
在第6行。
在freebasic中不可以用单精度吗？
