Quick Basic怎样才能弄1/1+1/2+1/3+1/4+1/5+……+1/99+1/100 用FOR语句 急!

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 22:07:37
Quick Basic怎样才能弄1/1+1/2+1/3+1/4+1/5+……+1/99+1/100 用FOR语句 急!

Quick Basic怎样才能弄1/1+1/2+1/3+1/4+1/5+……+1/99+1/100 用FOR语句 急!
Quick Basic怎样才能弄1/1+1/2+1/3+1/4+1/5+……+1/99+1/100 用FOR语句 急!

Quick Basic怎样才能弄1/1+1/2+1/3+1/4+1/5+……+1/99+1/100 用FOR语句 急!
CLS
FOR i = 1 TO 100
sum = 1 / i + sum
NEXT i
PRINT "sum="; sum
END

CLS
FOR i = 1 TO 100
sum = 1 / i + s
NEXT i
PRINT "s="; s
END