三个数加一起等19的数有多少

Answer 1

0 0 19
0 1 18
等等
共40种.
Private Sub Command1_Click()
Dim i,j,k,Sum
Sum = 0
For i = 0 To 10
For j = i To 10
k = 19 - i - j
If k >= j Then List1.AddItem i & " " & j & " " & k:Sum = Sum + 1
Next j
Next i
List1.AddItem Sum
End Sub