回复：VB不知道怎么让字母循环https://bbs.csdn.net/topics/392562181

最新推荐文章于 2022-05-17 11:55:24 发布

智者知已应修善业

最新推荐文章于 2022-05-17 11:55:24 发布

阅读量453

点赞数

本文链接：https://blog.csdn.net/xianfajushi/article/details/89002648

版权


    Sub 让字母循环()
        Dim aa = " D E F G H", bb = aa, ff = 1, hh = 0, jj = 0
        For Each SS In aa
            bb += aa
            jj = 12 * ff + hh
            If bb.Length > jj Then
                bb = bb.Insert(jj, (Chr(13) + Chr(10)).ToString())
                ff += 1
                hh += 2
            End If
            If ff > 6 Then Exit For
        Next
        MessageBox.Show(bb.Substring(0, jj), "友情提示：")
    End Sub

    Sub 让字母循环()
        Dim aa = "DEFGH", ss = ""
        For I = 0 To 35
            If I Mod 6 = 0 Then ss += vbCrLf
            ss &= aa(I Mod 5)
        Next
    End Sub