Private Sub Command1_Click()b = "1234"s = 1For i = 1 To 4 a1 = Mid(b, i, 1) b1 = Replace(b, a1, "") For j = 1 To 3 a2 = Mid(b1, j, 1) b2 = Replace(b1, a2, "") For k = 1 To 2 a3 = Mid(b2, k, 1) Print s, a1 & a2 & a3 s = s + 1 Next NextNextEnd Sub
【评论】 【打印】 【字体：大 中 小】 本文链接：http://blog.pfan.cn/tcmcz/6289.html
Private Sub Command1_Click()b = "1234"s = 1For i = 1 To 4 a1 = Mid(b, i, 1) b1 = Replace(b, a1, "") For j = 1 To 3 a2 = Mid(b1, j, 1) b2 = Replace(b1, a2, "") For k = 1 To 2 a3 = Mid(b2, k, 1) Print s, a1 & a2 & a3 s = s + 1 Next NextNextEnd Sub
阅读(333) | 评论(0)
版权声明：编程爱好者网站为此博客服务提供商，如本文牵涉到版权问题，编程爱好者网站不承担相关责任，如有版权问题请直接与本文作者联系解决。谢谢！
评论