早教吧 育儿知识 作业答案 考试题库 百科 知识分享

VB如何实现各数字均不相同a,b,c,d,e,f,g,h,i这9个字母分别表示1、2、3、4、5、6、7、8、9中的某个数字,如何用VB编程实现“a+13b/c+d+12e-f+gh/i=87"成立,且每个字母表示的数字均不相同。

题目详情
VB如何实现各数字均不相同
a,b,c,d,e,f,g,h,i 这9个字母分别表示1、2、3、4、5、6、7、8、9中的某个数字,如何用VB编程实现“a+13b/c+d+12e-f+gh/i=87"成立,且每个字母表示的数字均不相同。
▼优质解答
答案和解析

'想不出别的办法,只能穷举法。本已为要消耗不少时间的,还好才一秒多点,

Private Sub Command1_Click()
    'a,b,c,d,e,f,g,h,i 这9个字母分别表示1、2、3、4、5、6、7、8、9中的某个数字,如何用VB编程实现
    '“a+13b/c+d+12e-f+gh/i=87"成立,且每个字母表示的数字均不相同。
    Dim ara() As Integer
    ReDim ara(8)
    Dim i As Integer
    For i = 0 To 8
        ara(i) = i + 1
    Next
    Dim a     As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer
    Dim arb() As Integer, arc() As Integer, ard() As Integer, are() As Integer, arf() As Integer, arg() As Integer, arh() As Integer, ari() As Integer
    Dim dt
    dt = Timer
    Dim Count As Integer
    For a = 0 To 8
        arb = ara
        arb(a) = arb(8)
        'ReDim Preserve arb(7)
        For b = 0 To 7
            arc = arb
            arc(b) = arc(7)
            'ReDim Preserve arc(6)
            For c = 0 To 6
                ard = arc
                ard(c) = ard(6)
                'ReDim Preserve ard(5)
                For d = 0 To 5
                    are = ard
                    are(d) = are(5)
                    'ReDim Preserve are(4)
                    For e = 0 To 4
                        arf = are
                        arf(e) = arf(4)
                        'ReDim Preserve arf(3)
                        For f = 0 To 3
                            arg = arf
                            arg(f) = arg(3)
                            'ReDim Preserve arg(2)
                            For g = 0 To 2
                                arh = arg
                                arh(g) = arh(2)
                                'ReDim Preserve arh(1)
                                For h = 0 To 1
                                    ari = arh
                                    ari(h) = ari(1)
                                    'ReDim Preserve ari(0)
                                    i = 0
                                    If ara(a) + 13 * arb(b) / arc(c) + ard(d) + 12 * are(e) - arf(f) + arg(g) * arh(h) / ari(i) = 87 Then
                                        Debug.Print ara(a); " + 13 * "; arb(b); " / "; arc(c); " + "; ard(d); " + 12 * "; are(e); " -"; arf(f); " + "; arg(g); " * "; arh(h); " / "; ari(i)
                                        Count = Count + 1
                                    End If
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    Debug.Print Int((Timer - dt) * 1000); "毫秒", Count; "条"
End Sub
看了 VB如何实现各数字均不相同a...的网友还看了以下:

别指望别人的宽容陈虹人生的成败大体上可以分成两部分:一部分靠自己打拼,另一部分指望别人。指望别人的  2020-05-17 …

物理兴趣小组的同学,利用如图所示的装置,在杠杆支点的两边分别挂上钩码来探究杠杆的平衡条件.(1)如  2020-06-20 …

小明和小红利用如图甲所示装置,在杠杆支点的两边分别挂上钩码来探究杠杆的平衡条件.(1)如图甲,为使  2020-06-20 …

(2012•南京)物理实验小组的同学,利用如图所示的装置,在杠杆支点的两边分别挂上钩码来探究杠杆的  2020-06-20 …

如图,偶函数f(x)的图象如字母M,奇函数g(x)的图象如字母N,若方程f(f(x))=0,f(g  2020-06-22 …

告别母校作文,希望不要复制别人的,不用写全,写出重点优美句,间断时给些提示,要插入校园片段急!岁月  2020-07-21 …

洛必达法则,如果只是分母为零或无穷可以用吗?小弟数学不太好,洛必达法则书上说只能是分子和分母同时为零  2020-11-07 …

(2012•惠州模拟)某同学利用如图实验装置用酵母菌做了如下实验,回答相应问题.注:a.本实验所用的  2020-11-12 …

如图是多莉羊的产生过程示意图.(1)在科学家克隆多莉羊的过程中,母羊A、B、C的作用分别是什么?(2  2021-01-07 …

如图,偶函数f(x)的图象形如字母M(图1),奇函数g(x)的图象形如字母N(图2),若方程f(g(  2021-02-09 …