求帮忙一个排列组合程序 - 编程论坛

风吹过b2014-10-29 10:14

的确不止一组，开始直接输出，结果超出屏幕。
然后使用文本框保存结果，结果卡死。

最后使用临时文件来保存。代码自己看。

程序代码：

Private Sub Command1_Click()
Dim a&, b&, c&, d&                                              '四个循环变量
Dim f As Single                     '中间值
Dim fs As String
fs = App.Path                       '生成临时文件路径
If Right(fs, 1) <> "\" Then         '生成临时文件名
    fs = fs & "\tmp.txt"
Else
    fs = fs & "tmp.txt"
End If

Open fs For Output As #1            '打开临时文件
For a = 3 To 40                     '四个循环
    For b = 35 To 100
        For c = 10 To 45
            For d = 40 To 100
                If b > a And d > c Then             '符合条件
                    f = (b / a) * (d / c)           '计算中间值
                    If f > 7.7 And f < 7.75 Then    '在范围中
                        Print #1, "a,b,c,d="; a; b; c; d, "f="; f       '保存结果
                    End If
                End If
            Next d
        Next c
    Next b
Next a
Close #1                            '关闭临时文件
DoEvents                            '确保写完
Shell "cmd /c start " & fs, vbHide  '显示临时文件内容
End Sub