求程序（最好VB），输出指定范围数据？谢谢大侠，加奖！

来源：百度知道 编辑：UC知道 时间：2024/05/22 08:50:12
有33个由人工输入的4位小数点数（每个小数都在0.0100~0.5555之间，容许有相等的情况出现），任意抽取6个，之和A在一个可设定的范围内（比如0.1500~0.2500之间），输出所有满足要求的6个数的组合，可以输出在程序框架中，最好输出到文本保存的。谢谢大哥啦。
《你给的答案我运行过了，怎么就死机了啊，怎么回事？要怎么修改，谢谢啦！！》我又改过啦，结果放在C盘里的aaa.txt里什么都没有，是不是跟C盘的格式有关啊，我的是NTFS，

我记得你问过这个题了的..

1个多行文本框Text1用来显示, 或是注释掉这行,用后面的存为txt文件,在C盘..

Private Sub Command1_Click()
Dim i%, ss(1 To 33) As Double, min As Double, max As Double

min = 0.15: max = 0.25 '之和A的范围

For i = 1 To 33 '得到33个手工输入的数据
reinput:
ss(i) = Val(InputBox("请输入第" & i & "个在0.0100~0.5555之间的小数!!"))
If ss(i) < 0.01 Or ss(i) > 0.5555 Then GoTo reinput
Next

'For i = 1 To 33 '这是我随机得到的33个你范围内的小数
'ss(i) = Int(Rnd * 5455 + 100) / 10000
'Next

Dim j%, k%, m%, n%, o%, a As Double, tmp$

tmp = ""

For i = 1 To 33
For j = i + 1 To 33
For k = j + 1 To 33
For m = k + 1 To 33
For n = m + 1 To 33
For o = n + 1 To 33

a = ss(i) + ss(j) + ss(k) + ss(m) + ss(n) + ss(o)
If a >= min And a <= max Then tmp = tmp & ss(i) & " " & ss(j) & &q