求助：vb.net操作题

[落雪待听梅]

如图所示，不知道怎么让字母循环

[智者知已应修善业]

6字6行固定的?

[智者知已应修善业]

[落雪待听梅]

现在是这样

[落雪待听梅]

你好，我们现在学到for语句，您看能按我这个思路写吗？

[智者知已应修善业]

按你的思路写，有问题再说了。

[智者知已应修善业]

我一贯认为学人应该自己动手才学得更好，因此，大多不直接给代码，用图片只是给参考思路和写法，你的这种也想过，不是很复杂的，用求余的算法即可。
看一下你的图片，意思差不多了，不过要把判断语句放在循环内，不是循环外。

[落雪待听梅]

感谢，已经解决了！

[智者知已应修善业]

[智者知已应修善业]

问题解决了赶紧结帖

[jhonsonzhang]

dim src="DEFGH"
label1.text=src
dim TpsCol()=split(src,"")
for i=0 to 100
dim Sort1=sub(tpscol)
dim newScol() as new string(tpscol.length-1)
for i=1 to tpscol.length-1
newscol(i-1)=tpscol(i)
next
newscol(0)=tpscol(tpscol.length-1)
tpscol=newscol
label1.text=join(tpscol,"")
end sub
next
这样不管多少字母都可以循环显示，代码未测试，应该没错

[jhonsonzhang]

有错： newscol(i-1)=tpscol(0)

[jhonsonzhang]

重新补充下
dim src="DEFGH"
label1.text=src
dim TpsCol()=split(src,"")
for i=0 to 100
dim Sort1=sub(tpscol)
dim newScol() as new string(tpscol.length-1)
for i=1 to tpscol.length-1
newscol(i-1)=tpscol(i)
next
newscol(tpscol.length-1)=tpscol(0)
tpscol=newscol
me.begininvoke(sub()
dim lab=new label
lab.text=join(tpscol,"")
me.controls.add(lab)
end sub）
end sub
next