[练习]拐角（转角）计算

afan

向各位学习了~~

p.s, 大家不一定要禁锢在循环取值的思维中，也可换做小学生答题的方式试试，否则用循环数字较大的话试卷都不够写了…  ^ ____ ^

tubaba

回复 14# austere


    可能是民间版本BUG造成的,可以尝试使用官方版,看是否有此问题

fenhanxue

这个貌似是数组原理吧

fenhanxue

这个貌似是数组原理吧

游客，如果您要查看本帖隐藏内容请回复

veket_linux

直接来个vba 吧
Sub test()
    Dim i As Long
    Dim x As Long
    x = 2
    For i = 2 To 1000
        x = x + (i + 1) \ 2
        Debug.Print x
    Next
End Sub

dabaiyun

好好练习练习

qwerty

看看。。。。。

gywxdn

感谢分享，感谢分享

Duvet

糟糕，我的想法跟veket_linux一樣

...
veket_linux 发表于 2018-3-11 16:47

游客，如果您要查看本帖隐藏内容请回复

pcbar

回复 1# afan


进阶篇，请打印输出此螺旋矩阵

afan

回复 25# pcbar


    老大提出了个很有趣的进阶，暂无头绪…

研究了一下，试了个拐24弯的

169　122　123　124　125　126　127　128　129　130　131　132　133　
168　121　082　083　084　085　086　087　088　089　090　091　134　
167　120　081　050　051　052　053　054　055　056　057　092　135　
166　119　080　049　026　027　028　029　030　031　058　093　136　
165　118　079　048　025　010　011　012　013　032　059　094　137　
164　117　078　047　024　009　002　003　014　033　060　095　138　
163　116　077　046　023　008　001　004　015　034　061　096　139　
162　115　076　045　022　007　006　005　016　035　062　097　140　
161　114　075　044　021　020　019　018　017　036　063　098　141　
160　113　074　043　042　041　040　039　038　037　064　099　142　
159　112　073　072　071　070　069　068　067　066　065　100　143　
158　111　110　109　108　107　106　105　104　103　102　101　144　
157　156　155　154　153　152　151　150　149　148　147　146　145