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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 用vb证明一个数组可以经过换行和换列的方法等于另一个数组
北京石油化工学院2026年研究生招生接收调剂公告
41/1返回列表
查看: 758  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 土木水利专硕276分求调剂 +4 我想上学！！6 2026-04-05 7/350 2026-04-07 22:10 by Delta2012
[考研] 363求调剂 +9 zh096 2026-04-04 9/450 2026-04-07 21:51 by 418490947
[考研] 285求调剂 +11 AZMK 2026-04-05 17/850 2026-04-07 19:05 by 中飞院空管学院�
[考研] 312求调剂 +18 gtw1 2026-04-06 20/1000 2026-04-07 18:16 by 蓝云思雨
[考研] 0702物理学学硕299求调剂 +3 祁柒连 2026-04-06 3/150 2026-04-07 12:48 by 小木虫gyh
[考研] 085100建筑学 寻求跨专业调剂 一志愿南大294分 校级省级国家级奖项若干 踏实肯干 +3 1021075758 2026-04-06 4/200 2026-04-07 09:23 by 蓝云思雨
[考研] 生物与医药求调剂 +7 heguanhua 2026-04-05 8/400 2026-04-06 18:41 by macy2011
[考研] 生物学308分求调剂（一志愿华东师大） +8 相信必会光芒万� 2026-04-05 10/500 2026-04-05 12:19 by Hdyxbekcb
[考研] 311分 22408 求调剂 +3 bing_bot 2026-04-03 3/150 2026-04-05 00:43 by chongya
[考研] 可跨专业调剂 +3 周的得地 2026-04-04 6/300 2026-04-04 22:21 by barlinike
[考研] 一志愿北交大材料工程总分358 +6 cs0106 2026-04-03 6/300 2026-04-04 11:20 by w_xuqing
[考研] 085601一志愿北理325分求调剂 +6 找调剂，， 2026-04-02 6/300 2026-04-03 22:20 by 柟�?
[考研] 295求调剂 +3 尚偌呀 2026-04-03 4/200 2026-04-03 21:23 by zhq0425
[考研] 335求调剂 +7 沈清璃 2026-04-03 7/350 2026-04-03 18:55 by lijunpoly
[考研] 274求调剂 +10 薛定谔的虎。 2026-04-01 10/500 2026-04-03 10:13 by tianyyysss
[考研] 085600，320分求调剂 +6 大馋小子 2026-04-02 6/300 2026-04-02 21:54 by dongzh2009
[考研] 22408 266求调剂 +3 masss11222 2026-04-02 3/150 2026-04-02 18:11 by 笔落锦州
[考研] 324求调剂 +5 想上学求调 2026-04-01 6/300 2026-04-02 10:16 by sanrepian
[考研] 348环境工程调剂 +3 吴彦祖24k 2026-04-01 3/150 2026-04-02 09:14 by nanaliuyun
[考研] 379求调剂 +3 ?苦瓜不苦 2026-04-01 3/150 2026-04-01 20:09 by 暮云清寒
信息提示
关闭
请填处理意见
关闭