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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 用vb证明一个数组可以经过换行和换列的方法等于另一个数组
41/1返回列表
查看: 783  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 河北省自然科学基金 +5 Peterchao 2026-05-18 8/400 2026-05-24 11:58 by 晓晓爱翠翠
[教师之家] 论文撤稿了 +3 bjvtcliu 2026-05-24 5/250 2026-05-24 10:06 by Equinoxhua
[教师之家] 某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！ +4 zju2000 2026-05-21 5/250 2026-05-24 09:35 by songwz
[考博] 26/27申博自荐 10+4 ZXW0202 2026-05-22 9/450 2026-05-24 08:47 by bjvtcliu
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 hvkbtfonbv 2026-05-23 3/150 2026-05-24 08:01 by 9ps9vgkqva
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 pmo95bazuy 2026-05-23 7/350 2026-05-24 06:35 by fpo5ljpv91
[基金申请] 揭秘青基评审内幕：几个A才能顺利中标 +3 国自然国社科中 2026-05-23 4/200 2026-05-23 15:37 by 2000zf36392
[基金申请] 青B发送上会通知了吗 +5 chemBioBro 2026-05-22 7/350 2026-05-23 12:35 by zhuifengzhy
[考博] 博士申请 +3 焦晓明 2026-05-21 3/150 2026-05-23 11:26 by mlc840311
[论文投稿] 投稿求助，期刊 +4 希冀，有书读 2026-05-20 8/400 2026-05-22 10:16 by 希冀，有书读
[文学芳草园] 献血感触 +7 呀呀好傻 2026-05-19 13/650 2026-05-21 20:15 by 呀呀好傻
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +14 1234567wang 2026-05-17 16/800 2026-05-21 17:58 by 脆脆的饼干
[基金申请] 国自然评分 +4 无名者登山 2026-05-20 5/250 2026-05-21 16:35 by swuq
[基金申请] 国自然上会要求 +7 无名者登山 2026-05-18 11/550 2026-05-21 15:50 by draco1987
[基金申请] 提交了我也来说说感想 +9 fummck 2026-05-20 10/500 2026-05-21 14:17 by draco1987
[基金申请] 评审有感 +15 popular289 2026-05-18 26/1300 2026-05-21 10:35 by 西葫芦炒鸡蛋
[有机交流] 反应很差，大量原料没有反应 5+3 Mr.Zot 2026-05-19 8/400 2026-05-20 22:19 by Equinoxhua
[考博] 如果工作了想读博，可以边工作边读全日制嘛？ 30+3 铁达火车 2026-05-18 5/250 2026-05-20 09:33 by tfang
[考博] 博士申请 +5 星…… 2026-05-18 6/300 2026-05-18 23:49 by 糊糊涂涂好
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
信息提示
关闭
请填处理意见
关闭