投稿

数字代码翻译器（数字代码表）

用户投稿 • • 营销资讯
数字代码翻译器（数字代码表）

数字游戏

精彩的数字，随机的数字，终于可以做成矩阵图了，而且是双矩阵，为什么是对的，因为矩阵告诉我们一定会这样，在随机的数字世界里，终于可以自由翱翔，前段代码历时半年完成，终于启动，数字代码研究，后期是最难的历时7天完成，纯粹是VBA代码完成！从计算结果来看，非常令我满意！不管你怎么随机，你都在矩阵中！

' Debug.Print cs4(q + 1 + 7 * (p – 1), j)

Next j

'———–替换原来的第几位开0~5区域，为具体对应的数字

cs4(q + 1 + 6 * (p – 1), p) = ""

cs5 = w1.Range("t" & 1, "z" & 33)

cs6 = w1.Range("b" & 1, "b" & 33)

If q = 0 Or q = 1 Or q = 2 Then

For j = 23 – q * 11 To 33 – q * 11

If cs5(j, p) = "" And p >= 1 And p <= 6 Then

cs4(q + 1 + 6 * (p – 1), 8) = cs4(q + 1 + 6 * (p – 1), 8) & "," & cs6(j, 1) ' p & "位开" & q

End If

If cs5(j, p) = "" And p = 7 And cs6(j, 1) <= 16 Then

cs4(q + 1 + 6 * (p – 1), 8) = cs4(q + 1 + 6 * (p – 1), 8) & "," & cs6(j, 1) ' p & "位开" & q

End If

Next j

cs4(q + 1 + 6 * (p – 1), 8) = p & "位开" & cs4(q + 1 + 6 * (p – 1), 8)

End If

If q = 3 Or q = 4 Or q = 5 Then

For j = (q – 3) * 11 + 1 To (q – 3) * 11 + 11

If cs5(j, p) <> "" And p >= 1 And p <= 6 Then

cs4(q + 1 + 6 * (p – 1), 8) = cs4(q + 1 + 6 * (p – 1), 8) & "," & cs6(j, 1) ' p & "位开" & q

End If

If cs5(j, p) <> "" And p = 7 And cs6(j, 1) <= 16 Then

cs4(q + 1 + 6 * (p – 1), 8) = cs4(q + 1 + 6 * (p – 1), 8) & "," & cs6(j, 1) ' p & "位开" & q

End If

Next j

cs4(q + 1 + 6 * (p – 1), 8) = p & "位开" & cs4(q + 1 + 6 * (p – 1), 8)

End If

'————

Next q

Next p

r4 = cs4

真的太幸福了，不是能得到什么，而是解决了随机数字的最大问题！世界是美好的，随机数字也是美好的！没有枯燥得到数字，只有呆萌的灵魂，人生何其不是这样，这就是魔矩阵！专门对付随机的！

本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 sumchina520@foxmail.com 举报，一经查实，本站将立刻删除。
如若转载，请注明出处：https://www.yiheng8.com/6206.html
赞 (0)
用户投稿
0 0 打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022年5月8日 am7:16
下一篇 2022年5月8日 am7:46

相关推荐

更新视频
一恒问答
我要提问
公众号