以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求循环语句  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185669)
--  作者：shixia
--  发布时间：2023/3/8 21:56:00
--  求循环语句
例：
dim st as string ="一二三四五六七八九十“
用循环语句显示如下：

一二三四五六七八九十
一二三四五六七八九
   二三四五六七八九
   二三四五六七八
      三四五六七八
      三四五六七
         四五六七
         四五六
            五六
            五
--  作者：有点蓝
--  发布时间：2023/3/9 8:52:00
--  
Dim st As String = "一二三四五六七八九十"
Dim k As Boolean = True
Do While st.Length > 0
    Output.Show(st)
    If k Then
        st = st.Substring(0, st.Length - 1)
        k = False
    Else
        st = st.Substring(1)
        k = True
    End If 
Loop