请教各位程序员一个排列组合问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 12:49:39
足彩共14场比赛，每场都有三种可能出现的结果，即3（代表胜）1（代表平）0（代表负），用哪种程序软件的什么语句能有效的算出14场比赛的所有排列组合情况。即：
第1场310
第2场310
第3场310
第4场310
第5场310
第6场310
第7场310
第8场310
第9场310
第10场310
第11场310
第12场310
第13场310
第14场310
的所有排列组合， 还请帮在下写出详细的语句编写内容，万分感激!
越详细越好！！！！！告诉我用的程序软件！！！！！！
麻烦大家写明要用什么软件编写，不然我知道代码不知道软件还是白费，谢谢

用visual basic 6.0
'经运行,共有 4782969 所有排列组合情况.全部代码如下:

Option Explicit
Dim A(14, 3) As Integer, B(14) As Integer
Dim I As Integer, J As Integer, ZsUu As Long

Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Show
Cls
For I = 1 To 14
A(I, 1) = 0
A(I, 2) = 1
A(I, 3) = 3
Next
Open "D:\结果.txt" For Output As #1
Print "正在处理,请稍候......"
I = 1
B(1) = 1
ZsUu = 0
Call PlLm
Print #1, "完成,共有"; ZsUu; "种组合"
Close #1
Cls
Print "完成,共有"; ZsUu; "种组合"
End Sub

Private Sub PlLm()
Do While B(I) <= 3
If I = 14 Then
ZsUu = ZsUu + 1
Cls
Print "正在处理,请稍候......"
Print
Print "已经完成 "; ZsUu; "种组合"
Print #1, ZsUu;
For J = 1 To 14
Print #1, A(J, B(J));
DoEvents
Next
Print #1,