Question

VBS 简单计算题，高手来，速度解决来。。。

a<9
b<9
c<9
d=a+b+c
d<13
问题
1.请求出 符合这样条件的a,b,c有多少种组合
2.能否将符合条件的a,b,c 导入到文件中以便观看（比如文本文档，WORD，EXCEL）
3.请将代码附上。
高手很快就能解决的~~~~~~~~~~

Answer 1

照你说的，a,b,c,d应该只是整数吧？
如果是整数就好办。
以下代码已测试通过：
set fso=createobject("scripting.filesystemobject")
set zsc=createobject("scripting.dictionary")

if (fso.fileexists("a.txt")) then
'打开文件，参数1为forreading，2为forwriting，8为appending
set file=fso.opentextfile("a.txt",2,ture)

else
'创建文件，参数1为forreading，2为forwriting，8为appending
set file=fso.createtextfile( "a.txt",2,ture)
end if

'写入文件内容，有三种方法：write(x)写入x个字符，writeline写入换行，writeblanklines(n)写入n个空行

for a=1 to 8
for b=1 to 8
for c=1 to 8
if a+b+c<13 then file.writeline a & "+" & b & "+" & c & "<13"
next
next
next

以上就是代码，运算结果会保存到与你的这些vbs代码的vbs文件夹内的a.txt中。 如果已有a.txt，那么a.txt里的内容将会被覆盖。

Answer 2

a，b,c应该是自然数吧，否则没有答案
Dim i,j,k,count,fso,file,value
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set file=fso.CreateTextFile("c:\result.txt")
file.Close
count=0
For i=0 To 8
For j=0 To 8
For k=0 To 8
If i+j+k<13 Then
count=count+1
Set add=fso.OpenTextFile("c:\result.txt",8,true)
value=add.Write(i&" "&j&" "&k&vbcrlf)
add.Close
End If
Next
Next
Next
MsgBox(count)
结果是395种组合

Answer 3

Set fso = CreateObject("Scripting.FileSystemObject")
set o =fso.createtextfile("1.txt",true)
for a= 0 to 8
for b= 0 to 8
for c= 0 to 8
s=a+b+c
if s<13 then
o.writeline a&" "&b&" "&c
end if
next
next
next
o.Close