急，求幫忙計算雙色球和值

因為我估計結果超過了65536，所以用VBA寫入EXCEL估計比較麻煩(需要換行)

所以幫妳寫了以下VBS代碼，新建壹個TXT文檔，然後把下面的代碼復制到這個文檔中，把這個文檔的擴展名改成VBS--保存，雙擊就可以運行代碼，指定壹個文本結果輸出的路徑就可以把所有和值在120-130的紅球組合保存在壹個文本文檔中，代碼親測，希望對妳有用！

----------------------------PART OF CODES-----------------------------

dim fs,objf,lj,i1,i2,i3,i4,i5,i6,tem

lj=inputbox("輸入創建文本文件路徑!" & chr(10) & "例如: C:\res.txt ","C0de-By-F0reSt*","C:\res.txt")

set fs=createobject("Scripting.fileSystemObject")

set objf=fs.createtextfile(lj,true)

objf.writeline(" 福彩雙色球和值120-130的所有組合")

objf.writeblanklines(1)

objf.writeline(" ---C0de-By-F0reSt*,QQ: 157608436---")

objf.writeblanklines(1)

for i1=1 to 28

for i2=i1+1 to 29

for i3=i2+1 to 30

for i4=i3+1 to 31

for i5=i4+1 to 32

for i6=i5+1 to 33

if i1+i2+i3+i4+i5+i6>=120 and i1+i2+i3+i4+i5+i6<=130 then

tem=i1 & ", " & i2 & ", " & i3 & ", " & i4 & ", " & i5 & ", " & i6 & " " & i1+i2+i3+i4+i5+i6

objf.writeline(tem)

tem=""

end if

objf.close