Foxtable(狐表)用户栏目专家坐堂 → 求循环语句


  共有3927人关注过本帖树形打印复制链接

主题:求循环语句

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 

 回到顶部