作者Berger927 (rabbit)
看板Visual_Basic
标题Re: 请问高手们
时间Tue Jan 23 15:21:30 2007
※ 引述《sam927 ()》之铭言:
: 标题: 请问高手们
: 时间: Mon Jan 22 14:56:52 2007
: 小弟不才,不熟basic语言,想请教各位一下
: 1...S=0
: 2...FOR I=1 TO 100
: 3...N=I*I
: 4...IF N>50 THEN 70
: 5...S=S+N
: 6...NEXT I
: 7...PRINT "N=";N, "S="S
: 8...END
: 我了解第二行到第六行在做回圈
: 但不了解第四行的的判断 (THEN 70 是什麽意思??是哪个变数=70?等於70有影响程式吗?)
: 最後的结果是S=1+4+9+16+25+36+49....(不了解为何只算到7*7??)
: N=64 (8*8)
: 共呼叫第四行8次
: 谢谢,感激不尽
: --
:
※ 发信站: 批踢踢实业坊(ptt.cc)
: ◆ From: 140.119.234.104
: 推 jz:then Goto 70 ?? 01/22 15:42
: 推 BearWu:程式行70?? 01/22 20:54
: 推 fumizuki:错误连篇的程式@@ 01/23 07:38
哈哈,真没想到还可以看到这个程式码... XD
这是很早期basic的写法。
你前面的行号後面应该都少个0,也就是行号是 10,20,30...
那的确是跳到70行没错,也就是跳出回圈。
至於为什摸没有加到8*8=64,则是因为回圈会先加完I再做判断,超过50就跳至70行
所以没有执行到加总S。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.105.147.162
※ 编辑: Berger927 来自: 59.105.147.162 (01/23 15:26)
1F:→ Berger927:同生日吗 XD? 01/23 15:28
2F:→ Berger927:And 你去哪边找到basic软体的押,真是神奇~ XD? 01/23 15:31