VB如何实现各数字均不相同

Question

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"成立，且每个字母表示的数字均不相同。

Answer 1

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

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

Answer 2

你好,类风湿性关节炎早期有游走性关节疼痛,肿胀和功能障碍,晚期则表现为关节僵硬和畸形,功能丧失,导致残疾.若不能及时控制或治愈,终钭导致残废.类风湿在没有变形之前是可以治愈的,如果变形就只能控制不发展. 治疗从提高免疫系统和滋补肝肾着手全面调理,配合调和脾胃.去风通络，活血散寒,消肿止痛。治疗用纯中药追风舒筋疗法就可以,没有任何副作用,疗效好，疗程短。不要用西药,副作用太大,不要用冷水,注意防寒保暖,不要劳累，注意休息。保持好心情.

病情分析：
类风湿性关节炎到目前为止还不能通过医学的方法治愈。
指导意见：
建议避免受凉。感染等，必要时可以服用吲哚美辛、美洛昔康等缓解症状。

病情分析：
类风湿性关节炎目前没有根治的办法，主要是控制病情不继续发展加重，早期可用中西药结合的办法，一般用一线药和二线药相结合，不能过早用三线药，病情稳定时最好用中药对证调理。
指导意见：
日常生活中要始终保持一个乐观向上的良好心理状态，注意防寒保暖，适当的锻炼，以增强抵抗力和免疫力，减少受凉感冒的机会，也就是减少病情的发展加重，要保持充足的休息睡眠时间，避免长时间劳累及熬夜。饮食上不吃刺激性强的食物，注意营养均衡。

Answer 3

你好,类风湿性关节炎早期有游走性关节疼痛,肿胀和功能障碍,晚期则表现为关节僵硬和畸形,功能丧失,导致残疾.若不能及时控制或治愈,终钭导致残废.类风湿在没有变形之前是可以治愈的,如果变形就只能控制不发展. 治疗从提高免疫系统和滋补肝肾着手全面调理,配合调和脾胃.去风通络，活血散寒,消肿止痛。治疗用纯中药追风舒筋疗法就可以,没有任何副作用,疗效好，疗程短。不要用西药,副作用太大,不要用冷水,注意防寒保暖,不要劳累，注意休息。保持好心情.

病情分析：
类风湿性关节炎到目前为止还不能通过医学的方法治愈。
指导意见：
建议避免受凉。感染等，必要时可以服用吲哚美辛、美洛昔康等缓解症状。

病情分析：
类风湿性关节炎目前没有根治的办法，主要是控制病情不继续发展加重，早期可用中西药结合的办法，一般用一线药和二线药相结合，不能过早用三线药，病情稳定时最好用中药对证调理。
指导意见：
日常生活中要始终保持一个乐观向上的良好心理状态，注意防寒保暖，适当的锻炼，以增强抵抗力和免疫力，减少受凉感冒的机会，也就是减少病情的发展加重，要保持充足的休息睡眠时间，避免长时间劳累及熬夜。饮食上不吃刺激性强的食物，注意营养均衡。