应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 用vb证明一个数组可以经过换行和换列的方法等于另一个数组
41/1返回列表
查看: 751  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

Micah1011

银虫 (小有名气)

[求助] 用vb证明一个数组可以经过换行和换列的方法等于另一个数组 已有1人参与

用vb证明一个数组可以经过换行和换列的方法等于另一个数组，如下文，vb运行就卡住了，是运算方法太复杂了，还是我写的程序有错？求你一个能解决问题的方法
Dim zj(11, 12) As Integer
        For i = 0 To 11
            For j = 0 To 12
                zj(i, j) = 0
            Next
        Next
        zj(1, 1) = 1
        zj(1, 2) = 1
        zj(1, 3) = 1
        zj(1, 4) = 1
        zj(1, 5) = 1
        zj(1, 6) = 1
        zj(1, 7) = 2
        zj(1, 8) = 2
        zj(1, 9) = 2
        zj(1, 10) = 2
        zj(1, 11) = 2
        zj(1, 12) = 2
        zj(2, 1) = 1
        zj(2, 2) = 1
        zj(2, 3) = 1
        zj(2, 4) = 2
        zj(2, 5) = 2
        zj(2, 6) = 2
        zj(2, 7) = 1
        zj(2, 8) = 1
        zj(2, 9) = 1
        zj(2, 10) = 2
        zj(2, 11) = 2
        zj(2, 12) = 2
        zj(3, 1) = 1
        zj(3, 2) = 1
        zj(3, 3) = 2
        zj(3, 4) = 1
        zj(3, 5) = 2
        zj(3, 6) = 2
        zj(3, 7) = 2
        zj(3, 8) = 2
        zj(3, 9) = 1
        zj(3, 10) = 2
        zj(3, 11) = 1
        zj(3, 12) = 1
        zj(4, 1) = 1
        zj(4, 2) = 1
        zj(4, 3) = 2
        zj(4, 4) = 2
        zj(4, 5) = 1
        zj(4, 6) = 2
        zj(4, 7) = 2
        zj(4, 8) = 1
        zj(4, 9) = 2
        zj(4, 10) = 1
        zj(4, 11) = 2
        zj(4, 12) = 1
        zj(5, 1) = 1
        zj(5, 2) = 1
        zj(5, 3) = 2
        zj(5, 4) = 2
        zj(5, 5) = 2
        zj(5, 6) = 1
        zj(5, 7) = 1
        zj(5, 8) = 2
        zj(5, 9) = 2
        zj(5, 10) = 1
        zj(5, 11) = 1
        zj(5, 12) = 2
        zj(6, 1) = 1
        zj(6, 2) = 2
        zj(6, 3) = 1
        zj(6, 4) = 1
        zj(6, 5) = 2
        zj(6, 6) = 2
        zj(6, 7) = 1
        zj(6, 8) = 2
        zj(6, 9) = 2
        zj(6, 10) = 1
        zj(6, 11) = 2
        zj(6, 12) = 1
        zj(7, 1) = 1
        zj(7, 2) = 2
        zj(7, 3) = 1
        zj(7, 4) = 2
        zj(7, 5) = 1
        zj(7, 6) = 2
        zj(7, 7) = 2
        zj(7, 8) = 2
        zj(7, 9) = 1
        zj(7, 10) = 1
        zj(7, 11) = 1
        zj(7, 12) = 2
        zj(8, 1) = 1
        zj(8, 2) = 2
        zj(8, 3) = 1
        zj(8, 4) = 2
        zj(8, 5) = 2
        zj(8, 6) = 1
        zj(8, 7) = 2
        zj(8, 8) = 1
        zj(8, 9) = 2
        zj(8, 10) = 2
        zj(8, 11) = 1
        zj(8, 12) = 1
        zj(9, 1) = 1
        zj(9, 2) = 2
        zj(9, 3) = 2
        zj(9, 4) = 1
        zj(9, 5) = 1
        zj(9, 6) = 2
        zj(9, 7) = 1
        zj(9, 8) = 1
        zj(9, 9) = 2
        zj(9, 10) = 2
        zj(9, 11) = 1
        zj(9, 12) = 2
        zj(10, 1) = 1
        zj(10, 2) = 2
        zj(10, 3) = 2
        zj(10, 4) = 1
        zj(10, 5) = 2
        zj(10, 6) = 1
        zj(10, 7) = 2
        zj(10, 8) = 1
        zj(10, 9) = 1
        zj(10, 10) = 1
        zj(10, 11) = 2
        zj(10, 12) = 2
        zj(11, 1) = 1
        zj(11, 2) = 2
        zj(11, 3) = 2
        zj(11, 4) = 2
        zj(11, 5) = 1
        zj(11, 6) = 1
        zj(11, 7) = 1
        zj(11, 8) = 2
        zj(11, 9) = 1
        zj(11, 10) = 2
        zj(11, 11) = 2
        zj(11, 12) = 1
        Dim pb(11, 12) As Integer
        For i = 0 To 11
            For j = 0 To 12
                pb(i, j) = 0
            Next
        Next
        pb(1, 1) = 2
        pb(1, 2) = 2
        pb(1, 3) = 1
        pb(1, 4) = 2
        pb(1, 5) = 2
        pb(1, 6) = 2
        pb(1, 7) = 1
        pb(1, 8) = 1
        pb(1, 9) = 1
        pb(1, 10) = 2
        pb(1, 11) = 1
        pb(1, 12) = 1
        pb(2, 1) = 1
        pb(2, 2) = 2
        pb(2, 3) = 2
        pb(2, 4) = 1
        pb(2, 5) = 2
        pb(2, 6) = 2
        pb(2, 7) = 2
        pb(2, 8) = 1
        pb(2, 9) = 1
        pb(2, 10) = 1
        pb(2, 11) = 2
        pb(2, 12) = 1
        pb(3, 1) = 2
        pb(3, 2) = 1
        pb(3, 3) = 2
        pb(3, 4) = 2
        pb(3, 5) = 1
        pb(3, 6) = 2
        pb(3, 7) = 2
        pb(3, 8) = 2
        pb(3, 9) = 1
        pb(3, 10) = 1
        pb(3, 11) = 1
        pb(3, 12) = 1
        pb(4, 1) = 1
        pb(4, 2) = 2
        pb(4, 3) = 1
        pb(4, 4) = 2
        pb(4, 5) = 2
        pb(4, 6) = 1
        pb(4, 7) = 2
        pb(4, 8) = 2
        pb(4, 9) = 2
        pb(4, 10) = 1
        pb(4, 11) = 1
        pb(4, 12) = 1
        pb(5, 1) = 1
        pb(5, 2) = 1
        pb(5, 3) = 2
        pb(5, 4) = 1
        pb(5, 5) = 2
        pb(5, 6) = 2
        pb(5, 7) = 1
        pb(5, 8) = 2
        pb(5, 9) = 2
        pb(5, 10) = 2
        pb(5, 11) = 1
        pb(5, 12) = 1
        pb(6, 1) = 1
        pb(6, 2) = 1
        pb(6, 3) = 1
        pb(6, 4) = 2
        pb(6, 5) = 1
        pb(6, 6) = 2
        pb(6, 7) = 2
        pb(6, 8) = 1
        pb(6, 9) = 2
        pb(6, 10) = 2
        pb(6, 11) = 2
        pb(6, 12) = 1
        pb(7, 1) = 2
        pb(7, 2) = 1
        pb(7, 3) = 1
        pb(7, 4) = 1
        pb(7, 5) = 2
        pb(7, 6) = 1
        pb(7, 7) = 2
        pb(7, 8) = 2
        pb(7, 9) = 1
        pb(7, 10) = 2
        pb(7, 11) = 2
        pb(7, 12) = 1
        pb(8, 1) = 2
        pb(8, 2) = 2
        pb(8, 3) = 1
        pb(8, 4) = 1
        pb(8, 5) = 1
        pb(8, 6) = 2
        pb(8, 7) = 1
        pb(8, 8) = 2
        pb(8, 9) = 2
        pb(8, 10) = 1
        pb(8, 11) = 2
        pb(8, 12) = 1
        pb(9, 1) = 2
        pb(9, 2) = 2
        pb(9, 3) = 2
        pb(9, 4) = 1
        pb(9, 5) = 1
        pb(9, 6) = 1
        pb(9, 7) = 2
        pb(9, 8) = 1
        pb(9, 9) = 2
        pb(9, 10) = 2
        pb(9, 11) = 1
        pb(9, 12) = 1
        pb(10, 1) = 1
        pb(10, 2) = 2
        pb(10, 3) = 2
        pb(10, 4) = 2
        pb(10, 5) = 1
        pb(10, 6) = 1
        pb(10, 7) = 1
        pb(10, 8) = 2
        pb(10, 9) = 1
        pb(10, 10) = 2
        pb(10, 11) = 2
        pb(10, 12) = 1
        pb(11, 1) = 2
        pb(11, 2) = 1
        pb(11, 3) = 2
        pb(11, 4) = 2
        pb(11, 5) = 2
        pb(11, 6) = 1
        pb(11, 7) = 1
        pb(11, 8) = 1
        pb(11, 9) = 2
        pb(11, 10) = 1
        pb(11, 11) = 2
        pb(11, 12) = 1


        Dim hl(11, 12), hh(11, 12)   '定义过程数组：换行和换列，分别采用循环穷举所有可能的排列，在每一个换列的数组穷举换行的所有结果
        For i = 0 To 11
            For j = 0 To 12
                hl(i, j) = 0
                hh(i, j) = 0
            Next
        Next

        For i1 = 1 To 11
            For i2 = 1 To 11
                For i3 = 1 To 11
                    For i4 = 1 To 11
                        For i5 = 1 To 11
                            For i6 = 1 To 11
                                For i7 = 1 To 11
                                    For i8 = 1 To 11
                                        For i9 = 1 To 11
                                            For i10 = 1 To 11
                                                For i11 = 1 To 11
                                                    For j1 = 1 To 11
                                                        For j2 = 1 To 12
                                                            If j1 = 1 Then hl(j1, j2) = pb(i1, j2)
                                                            If j1 = 2 Then hl(j1, j2) = pb(i2, j2)
                                                            If j1 = 3 Then hl(j1, j2) = pb(i3, j2)
                                                            If j1 = 4 Then hl(j1, j2) = pb(i4, j2)
                                                            If j1 = 5 Then hl(j1, j2) = pb(i5, j2)
                                                            If j1 = 6 Then hl(j1, j2) = pb(i6, j2)
                                                            If j1 = 7 Then hl(j1, j2) = pb(i7, j2)
                                                            If j1 = 8 Then hl(j1, j2) = pb(i8, j2)
                                                            If j1 = 9 Then hl(j1, j2) = pb(i9, j2)
                                                            If j1 = 10 Then hl(j1, j2) = pb(i10, j2)
                                                            If j1 = 11 Then hl(j1, j2) = pb(i11, j2)
                                                        Next
                                                    Next


                                                    For k1 = 1 To 12
                                                        For k2 = 1 To 12
                                                            For k3 = 1 To 12
                                                                For k4 = 1 To 12
                                                                    For k5 = 1 To 12
                                                                        For k6 = 1 To 12
                                                                            For k7 = 1 To 12
                                                                                For k8 = 1 To 12
                                                                                    For k9 = 1 To 12
                                                                                        For k10 = 1 To 12
                                                                                            For k11 = 1 To 12
                                                                                                For k12 = 1 To 12
                                                                                                    For l2 = 1 To 12
                                                                                                        For l1 = 1 To 11
                                                                                                            If l2 = 1 Then hh(l1, l2) = hl(l1, k1)
                                                                                                            If l2 = 2 Then hh(l1, l2) = hl(l1, k2)
                                                                                                            If l2 = 3 Then hh(l1, l2) = hl(l1, k3)
                                                                                                            If l2 = 4 Then hh(l1, l2) = hl(l1, k4)
                                                                                                            If l2 = 5 Then hh(l1, l2) = hl(l1, k5)
                                                                                                            If l2 = 6 Then hh(l1, l2) = hl(l1, k6)
                                                                                                            If l2 = 7 Then hh(l1, l2) = hl(l1, k7)
                                                                                                            If l2 = 8 Then hh(l1, l2) = hl(l1, k8)
                                                                                                            If l2 = 9 Then hh(l1, l2) = hl(l1, k9)
                                                                                                            If l2 = 10 Then hh(l1, l2) = hl(l1, k10)
                                                                                                            If l2 = 11 Then hh(l1, l2) = hl(l1, k11)
                                                                                                            If l2 = 12 Then hh(l1, l2) = hl(l1, k12)
                                                                                                        Next
                                                                                                    Next
                                                                                                    Dim test2 = 0

                                                                                                    For x = 1 To 11
                                                                                                        For y = 1 To 12
                                                                                                            If hl(x, y) = zj(x, y) Then
                                                                                                                test2 = test2 + 1

                                                                                                            End If
                                                                                                        Next
                                                                                                    Next
                                                                                                    If test2 = 11 * 12 Then
                                                                                                        TextBox1.Text = "成功"+ TextBox1.Text
                                                                                                    End If
                                                                                                Next
                                                                                            Next
                                                                                        Next
                                                                                    Next
                                                                                Next
                                                                            Next
                                                                        Next
                                                                    Next
                                                                Next
                                                            Next
                                                        Next
                                                    Next
                                                Next
                                            Next
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
每天叫醒我的不是闹钟，是梦想；每天让我做实验的不是老板，是兴趣
1楼 2015-03-19 22:13:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
感谢参与，应助指数 +1
Micah1011: 金币+200, ★★★★★最佳答案, 感谢回答，请问我用visual stidio2013能让他多线程吗？需要如何配置 2015-03-21 22:17:27
你这个程序一定会卡住的，循环套循环，层数多了，就卡住。
1 要是你怕程序不正确，需要调试。在程序的关键位置 加上stop ，暂停时就会输出结果，可以检查结果，这样不用等到程序运行完就强制结束程序。
2 vb的程序老版本不能开多线程，运算速度不会快。只能等，让程序算，看似停止响应，但程序在计算着了，时间到了，自然出结果。我估计你这个程序可能要等20分钟。
3 有人为了不让程序假死，可以加上sleep(1) 语句。
赞一下 回复此楼
2楼2015-03-21 13:16:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Micah1011

银虫 (小有名气)
引用回帖:
2楼: Originally posted by deephill at 2015-03-21 13:16:23
你这个程序一定会卡住的，循环套循环，层数多了，就卡住。
1 要是你怕程序不正确，需要调试。在程序的关键位置 加上stop ，暂停时就会输出结果，可以检查结果，这样不用等到程序运行完就强制结束程序。
2 vb的程序 ...

感谢回答，请问我用visual stidio2013能让他多线程吗？需要如何配置

[ 发自小木虫客户端 ]
赞一下 回复此楼
每天叫醒我的不是闹钟，是梦想；每天让我做实验的不是老板，是兴趣
3楼2015-03-21 22:18:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
我看了有的介绍，vb.net 就可以开多线程。我也不会用vb.net 和更新的版本。
赞一下 回复此楼
4楼2015-03-21 23:43:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 Micah1011 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 化学工程321分求调剂 +9 大米饭！ 2026-03-15 12/600 2026-03-16 21:59 by 大米饭！
[考研] 302求调剂 +3 小贾同学123 2026-03-15 5/250 2026-03-16 20:39 by zhq0425
[考研] 梁成伟老师课题组欢迎你的加入 +8 一鸭鸭哟 2026-03-14 9/450 2026-03-16 17:35 by 沐霖12138
[考研] 326求调剂 +4 诺贝尔化学奖觊� 2026-03-15 7/350 2026-03-16 17:11 by 诺贝尔化学奖觊�
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 6/300 2026-03-16 15:58 by 漾漾123sun
[考研] 0703 物理化学调剂 +3 我可以上岸的对� 2026-03-13 5/250 2026-03-16 10:50 by 我可以上岸的对�
[考研] 289求调剂 +4 这么名字咋样 2026-03-14 6/300 2026-03-14 18:58 by userper
[考研] 290求调剂 +4 @将就将就看 2026-03-10 8/400 2026-03-14 14:23 by 千千运气
[考研] 331求调剂（0703有机化学 +5 ZY-05 2026-03-13 6/300 2026-03-14 10:51 by Jy?
[考研] 308 085701 四六级已过求调剂 +7 温乔乔乔乔 2026-03-12 14/700 2026-03-14 10:49 by JourneyLucky
[考研] 321求调剂 +3 CUcat 2026-03-10 3/150 2026-03-14 00:25 by JourneyLucky
[考研] 考研调剂 +4 芬达46 2026-03-12 4/200 2026-03-13 16:04 by ruiyingmiao
[考研] 材料专硕350 求调剂 +4 王金科 2026-03-12 4/200 2026-03-13 16:02 by ruiyingmiao
[考研] 307求调剂 +5 超级伊昂大王 2026-03-12 5/250 2026-03-13 15:56 by 棒棒球手
[考研] 工科278分求调剂 +5 周慢热啊 2026-03-12 7/350 2026-03-13 15:49 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-12 3/150 2026-03-13 14:30 by 求调剂zz
[考研] 求调剂 资源与环境 285 +3 未名考生 2026-03-10 3/150 2026-03-13 10:31 by houyaoxu
[考博] 福州大学杨黄浩课题组招收2026年专业学位博士研究生，2026.03.20截止 +3 Xiangyu_ou 2026-03-12 3/150 2026-03-13 09:36 by duanwu655
[考研] 调剂 +5 呵唔哦豁 2026-03-10 5/250 2026-03-10 22:00 by 28375m
[考研] 085602化工求调剂 +7 董boxing 2026-03-10 7/350 2026-03-10 17:07 by BruceLiu320
信息提示
关闭
请填处理意见
关闭