高太尉和高衙内的关系:求解VB作业

来源:百度文库 编辑:高考问答 时间:2024/04/29 19:25:36
问题是:
从3个红球,5个白球和6个绿球中任意取出8个球,且其中必须有白球,试利用循环结构编写所有可能的方案

请朋友们帮忙解答一下!

main()
{
int a,b,c;
int i,j,k;
a=3;b=5;c=6;

for(i=0;i<=a;i++)
for(j=0;j<=b;j++)
for(k=0;k<=c;k++)
if (i+j+k==8 && j>0) printf("%d,%d,%d\n",i,j,k);
getch();
}

结果
0,2,6
0,3,5
0,4,4
0,5,3
1,1,6
1,2,5
1,3,4
1,4,3
1,5,2
2,1,5
2,2,4
2,3,3
2,4,2
2,5,1
3,1,4
3,2,3
3,3,2
3,4,1
3,5,0

VB的:
Private Sub Command1_Click()
Dim a, b, c, i, j, k As Integer
a = 3: b = 5: c = 6
For i = 0 To a
For j = 0 To b
For k = 0 To c

If i + j + k = 8 And j > 0 Then Print i, j, k
Next
Next
Next

End Sub