Visual Basic 6 :: 覆盖所有方程以获得特定结果

Question

我的目标是涵盖所有可能的方程式（整数）以获得特定数字并将结果提取到文本文件中。

这是我当前的 VB6 代码：

Private Sub Form_Load()

Dim myFile, parameterA, parameterB, parameterC, equalTo As Integer
myFile = FreeFile

equalTo = 10

parameterA = 0
parameterB = 0
parameterC = 0

parameterA = equalTo

Open App.Path + "\gangina.txt" For Output As #myFile

Do

 Print #myFile, Format(parameterA, "00") & " + " & Format(parameterB, "00") & " + " & Format(parameterC, "00") & " = " & equalTo

 parameterA = parameterA - 1
 parameterB = parameterB + 1

Loop Until parameterA < 0

Close #myFile

End Sub

当前输出：

10 + 00 + 00 = 10
09 + 01 + 00 = 10
08 + 02 + 00 = 10
07 + 03 + 00 = 10
06 + 04 + 00 = 10
05 + 05 + 00 = 10
04 + 06 + 00 = 10
03 + 07 + 00 = 10
02 + 08 + 00 = 10
01 + 09 + 00 = 10
00 + 10 + 00 = 10

（...显然）我期待得到：

10 + 00 + 00 = 10
00 + 10 + 00 = 10
00 + 00 + 10 = 10

09 + 01 + 00 = 10
09 + 00 + 01 = 10

等...

谢谢！ :)

Answer 1

使用 Do 循环

Do
    parameterB = equalTo - parameterA

    Do
        parameterC = equalTo - parameterA - parameterB

        Print #myFile, Format(parameterA, "00") & " + " & Format(parameterB, "00") & " + " & Format(parameterC, "00") & " = " & equalTo

        parameterB = parameterB - 1
    Loop Until parameterB < 0

    parameterA = parameterA - 1
Loop Until parameterA < 0

有 For 循环

For parameterA = equalTo To 0 Step -1
    For parameterB = (equalTo - parameterA) To 0 Step -1
        parameterC = equalTo - parameterA - parameterB

        Print #myFile, Format(parameterA, "00") & " + " & Format(parameterB, "00") & " + " & Format(parameterC, "00") & " = " & equalTo
    Next parameterB
Next parameterA

Visual Basic 6 :: 覆盖所有方程以获得特定结果

Visual Basic 6 :: Cover all equations to get a specific outcome

loops

math

vb6

basic